Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Namenbereich erweitern
zurück: Prüfung ob Datei bereits besteht weiter: Klick in Zelle - Before Change? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
maffylein
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Jan 2009, 11:43
Rufname:
Wohnort: Steinach a. d. Fränkischen Saale

Namenbereich erweitern - Namenbereich erweitern

Nach oben
       Version: Office XP (2002)

Hallo,

Ich habe eine Tabelle Firmen und einen Namensbereich Firmendaten.

Wie kann ich den Namensbereich automatisch erweitern, wenn eich eine neue Firma in der Tabelle Firmen anlege.

Fügt aus einem Userform neue Firmen Daten in die Tabelle Firmen ein
Der Namensbereich Firmendaten soll dabei automatisch erweitert werden.

Code:

Private Sub Firma_Anlegen_Click()

    'Wählt das Arbeitsblatt
    Worksheets("Firmen").Select
       
    'Sucht die letzte Zeile
    lngLetzte = Worksheets("Firmen").Range("A65536").End(xlUp).Row
           
    ' Neue Zeile einfügen
    Cells(lngLetzte + 1, 1).Select
    Selection.EntireRow.Insert
           
    ' Werte aus Userform einfügen
    Cells(lngLetzte + 1, 1) = firma.Text      'Firma
    Cells(lngLetzte + 1, 2) = plz.Text        'plz
    Cells(lngLetzte + 1, 3) = ort.Text        'ort
    Cells(lngLetzte + 1, 4) = adresse.Text    'Straße Nr
    Cells(lngLetzte + 1, 5) = telefon.Text    'Telefonnummer
    Cells(lngLetzte + 1, 6) = fax.Text        'Faxnummer
     
    ' Format aus darüberliegender Zeile kopieren
    Worksheets("Firmen").Range("A65536").End(xlUp).Select
    ActiveCell.Offset(-1, 0).Range("A1:G1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1:G1").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
     
    'Schließt das UserForm2
    UserForm2.Hide
   
    'Wählt das Arbeitsblatt
    Worksheets("Belege").Select
   
    'Aktualisierung ist nicht sichtbar
    Application.ScreenUpdating = True


End Sub



MFG Maffylein
bst
Programmierer


Verfasst am:
28. Jan 2009, 13:00
Rufname: Bernd
Wohnort: Ilsfeld

AW: Namenbereich erweitern - AW: Namenbereich erweitern

Nach oben
       Version: Office XP (2002)

Hi Maffylein,

Nimm so was ähnliches:

Code:
Names.Add "FirmenDaten", WorkSheets("Firmen").Range("A1:A" & lngLetzte + 1)


cu, Bernd
Gast



Verfasst am:
30. Jan 2009, 11:17
Rufname:


AW: Namenbereich erweitern - AW: Namenbereich erweitern

Nach oben
       Version: Office XP (2002)

Danke, werd ich mal probieren.
Mfg Maffylein
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formelbereiche dynamisch erweitern! 1 Gast 1735 18. Aug 2010, 14:05
< Peter > Formelbereiche dynamisch erweitern!
Keine neuen Beiträge Excel Formeln: Excelformel erweitern aber wie und wo? 2 Sonnescheint 382 16. Jul 2010, 11:01
Sonnescheint Excelformel erweitern aber wie und wo?
Keine neuen Beiträge Excel Formeln: Formel erweitern 4 alibaba27 202 30. Apr 2010, 16:17
alibaba27 Formel erweitern
Keine neuen Beiträge Excel Formeln: Formel für Stundenmittelberechnung erweitern ? 2 macom 190 31. März 2010, 23:10
macom Formel für Stundenmittelberechnung erweitern ?
Keine neuen Beiträge Excel Formeln: Summenformel beim kopieren um eine Zelle erweitern 3 SebastianS. 803 18. Dez 2009, 07:46
Thomas Ramel Summenformel beim kopieren um eine Zelle erweitern
Keine neuen Beiträge Excel Formeln: Erweitern der Wenn-Funktion 2 nero9999 380 18. Okt 2009, 14:05
nero9999 Erweitern der Wenn-Funktion
Keine neuen Beiträge Excel Formeln: A B C ... automatisch erweitern wie 1 2 3 ... usw. 4 Mario H 5543 08. Mai 2009, 11:17
Mario H A B C ... automatisch erweitern wie 1 2 3 ... usw.
Keine neuen Beiträge Excel Formeln: Formel (Summe(Wenn(Zähelnwenn) erweitern! 2 klubo 1005 28. Apr 2009, 17:09
klubo Formel (Summe(Wenn(Zähelnwenn) erweitern!
Keine neuen Beiträge Excel Formeln: Wenn Formel erweitern 3 Gandalf-mg 380 06. Jan 2009, 20:10
HermannZ Wenn Formel erweitern
Keine neuen Beiträge Excel Formeln: Wenn-Verknüpfung erweitern 7 Gast 591 21. Aug 2008, 18:27
urs Wenn-Verknüpfung erweitern
Keine neuen Beiträge Excel Formeln: Vorhandene Formel erweitern! 1 Gast 389 03. Jul 2008, 09:24
steve1da Vorhandene Formel erweitern!
Keine neuen Beiträge Excel Formeln: Formel erweitern 5 Rossi1956 392 25. Mai 2008, 19:09
Rossi1956 Formel erweitern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks