Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenblattname

    Betrifft: Tabellenblattname von: mike
    Geschrieben am: 31.08.2003 16:41:28

    Hallo Experten,
    vielleicht kann mir jemand helfen.

    In einer Excel Datei habe ich eine Anzahl (x) Namen aus einer Namensliste
    Ich möchte ein bestimmtes Tabellenblatt (x) mal kopieren und jedem Blatt einen eigenen Namen geben.
    Jedes Blatt hat dann einen der (x) Namen

    Wie muss das Makro aussehen ?
    Im Voraus Dank
    Mike

      


    Betrifft: AW: Tabellenblattname von: Beni
    Geschrieben am: 31.08.2003 17:13:49

    Hallo Mike,
    die Namen von Tabelle "Namensliste" in SpalteA ab Zeile2 werden als Tabellenname übernommen.
    Gruss Beni

    Sub Tabellenblätter_anlegen()
    Dim sWks As String
        Dim i As Long
        i = 2 ' Zeile2
    Dim Default
        Do While Sheets("Namensliste").Cells(i, 1).Value <> "" 'Spalte1
        Sheets("Muster").Copy After:=Sheets(2 + j) 'Muster zum kopieren
        j = j + 1
    sWks = Sheets("Namensliste").Cells(i, 1).Value 'Namen aus Spalte1
        ActiveSheet.Name = sWks
         i = i + 1
        Loop
    End Sub
    



      


    Betrifft: AW: Tabellenblattname von: Mike
    Geschrieben am: 31.08.2003 17:27:14

    Hallo Beni,
    habs sofort probiert.
    Läuft prima
    Vielen Dank !!!!!!!!!!!!!!!
    Mike


      


    Betrifft: AW: Tabellenblattname von: Mike
    Geschrieben am: 31.08.2003 17:48:47

    Hallo Beni,
    kannst Du nochmals helfen bitte?
    Wie kann jetzt in jedem neuen Tabellenblatt zb: in Zelle D12 auch der zugehörige Name aus der Namensliste autom. eingetragen werden ?
    Gruß Mike


      


    Betrifft: AW: Tabellenblattname von: Beni
    Geschrieben am: 31.08.2003 19:01:51

    Hallo Mike,
    hier die Lösung, musst nur die Spalte anpassen.
    gruss Beni

    Sub Tabellenblätter_anlegen()
    Dim sWks As String
        Dim i As Long
        i = 2 ' Zeile2
    Dim Default
        Do While Sheets("Namensliste").Cells(i, 1).Value <> "" 'Spalte1
        Sheets("Muster").Copy After:=Sheets(2 + j) 'Muster zum kopieren
        j = j + 1
    sWks = Sheets("Namensliste").Cells(i, 1).Value 'Namen aus Spalte1
        ActiveSheet.Name = sWks
        '.Cells(i, 1).Value '1 = Spalte1 anpassen
        [D12] = Sheets("Namensliste").Cells(i, 1).Value
         i = i + 1
        Loop
    End Sub
    



      


    Betrifft: AW: Tabellenblattname von: Mike
    Geschrieben am: 31.08.2003 19:08:46

    Beni - Nochmals Dank es klappt super.
    Hast Du für mein Problem "Makro automatisiert schreiben" auch noch eine Antwort.
    Über Schaltflächen neben den Namen auf der Namensliste möchte ich die zugehörigen Tabellenblätter einblenden. Dafür möchte ich alle Makros auf Basis der Namensliste generieren.

    Mike


     

    Beiträge aus den Excel-Beispielen zum Thema " Tabellenblattname"