|
Hallo zusammen,
ich habe hier ein Makro, dass mir in Abhängigkeit des Zellenwertes A3 automatisch ein Tabellenblatt mit dem Namen des Zelleninhalts erstellt.
Sub NeuesBlatt()
'Varialen deklarieren
Dim ws As Worksheet, wb As Workbook, sName As String
' Name des neuen Blattes auslesen
sName = ActiveWorkbook.Sheets(1).Range("A3")
Set wb = ActiveWorkbook
' Falls kein Blatt mit dem Namen existiert,
' wird ein Fehler auftreten. Diesen Fangen
' wir vorerst ab.
On Error Resume Next
Set ws = wb.Sheets(sName)
' Wenn kein Blatt mit dem Namen exisitiert...
If Err.Number = 9 Then
On Error GoTo 0
'... wird ein neues erstellt ...
Set ws = wb.Sheets.Add(, wb.Sheets(wb.Sheets.Count))
'... und sein Name gesetzt.
ws.Name = sName
End If
Set ws = Nothing
End Sub
Dieses möchte ich jetzt so erweitern, dass die Tabellenblätter in Abhängigkeit aller Zelleninhalte der Spalte A erstellt werden. Habe dieses mit dem Befehl Columns probiert, aber es kommt immer eine Fehlermeldung.
Hat jemand eine Idee, wie ich den Code entsprechend abändern kann?
Vielen Dank
|