Tabellenblatt automatisch erstellen

Dieses Thema Tabellenblatt automatisch erstellen im Forum "Microsoft Office Suite" wurde erstellt von joergi78, 21. Juli 2009.

Thema: Tabellenblatt automatisch erstellen Hallöchen an alle, Kann ich anhand einer Excel Liste für jede Zeile ein eigenes Tabellenblatt erstellen und dieses...

  1. Hallöchen an alle,
    Kann ich anhand einer Excel Liste für jede Zeile ein eigenes Tabellenblatt erstellen und dieses auich so bennen?

    Gruß Joergi78
     
  2. Hallo joergi78,

    das geht prinzipiell.

    Einschränkungen:
    - bestimmt Zeichen dürfen nicht enthalten sein, wie z.B. :.
    - Namenslänge von max. 31 Zeichen
    - keine doppelte Namen

    Gruß Matjes :)

    Makro könnte etwa so aussehen:
    Code:
    Option Explicit
    
    Sub BlaetterGenerieren()
     
     Const csBereich = A12:A20->< < < < A N P A S S E N > > >
     
     Dim ws As Worksheet, wsa As Worksheet, Zelle As Range
     Dim iReturn As Integer
     
     Set wsa = ActiveSheet
     
     On Error Resume Next
     For Each Zelle In wsa.Range(csBereich)
      If Zelle.Value <>  Then
       Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
       ws.Name = Zelle.Value
       If Err.Number <> 0 Then
        wsa.Activate
        ActiveWindow.ScrollRow = Zelle.Row
        iReturn = MsgBox( _
         Blatt konnte nicht entsprechend Zelle  & _
         Zelle.Address(False, False) &  benannt werden. & vbLf & vbLf & _
         Grund:  & Err.Description & vbLf & vbLf & _
         Fortfahren ?, vbDefaultButton1 + vbYesNo + vbQuestion)
         
        Err.Clear
        If vbYes <> iReturn Then Exit For
     
       End If
      End If
     Next
     
     wsa.Activate
    AUFRAEUMEN:
     Set ws = Nothing: Set wsa = Nothing: Set Zelle = Nothing
    End Sub
     
  3. supi, das klappt schonmal. Danke
    Kann man die Mappen auch aus einem Vorlagenblatt erstellen?
     
  4. Hallo joergi78,

    da muß als Typ der vollständige Pfad zur Template-Tabelle (.dot) angegeben werden. Ausserdem funktioniert das nur in der Sheet-Auflistung. deshalb muss die Add-Zeile geändert werden (nicht vergessen den Pfad anzupassen):
    Code:
    Set ws = Sheets.Add(After:=Sheets(Sheets.Count), Type:=E:\TestVorlagen\TestVorlage.xlt)
    Gruß Matjes :)
     
Die Seite wird geladen...

Tabellenblatt automatisch erstellen - Ähnliche Themen

Forum Datum
Excel - Werte unterschiedlicher Tabellenblätter für Übersicht automatisch ziehen Microsoft Office Suite 22. Aug. 2010
Excel - Bestimmte Daten (Zeilen) in ein anderes Tabellenblatt einfügen Windows XP Forum 7. Juli 2012
Neues Tabellenblatt einfügen durch Schaltfläche via Makro Windows XP Forum 9. Apr. 2012
Tabellenblatt aufrufen aus VBA Microsoft Office Suite 23. Sep. 2010
Excel '07 - Verweis auf Zeile im gleichen Tabellenblatt! Geht das? Microsoft Office Suite 24. Feb. 2010