Excel Makro Automatisches Tabellenblatt
24.06.2022 12:43:25
Patrick
ich bin neu in diesem Forum und habe eine Frage zu VB Makros mit der Hoffnung, dass mir weitergeholfen werden kann.
Mein Ziel ist das automatische Anlegen von Tabellenblättern mit Makro.
Diese Tabellenblätter sollen auch direkt das Datum der jeweiligen Zelle übernehmen
Allerdings sind manche Zellen auf Grund einer WENN-Funktion leer, da ich nur bestimmte Wochentage in einem Monat benötige.
Je nachdem welchen Monat ich eingebe, ändern sich die leeren Zellen.
Ich erhalte immer einen Fehler bei "Tabelle.Name = Zelle.Text" wenn die Makro auf eine leere Zelle stößt.
Kann das Makro so geschrieben werden, dass die Zelle die durch die WENN-Funktion leer bleibt übersprungen wird, ohne zu versuchen hier ein Tabellenblatt zu erstellen?
Von A1:A42 stehen Tage - siehe Screenshot
Hierfür habe ich folgenden Code benutzt:
Sub Blätter()
Dim Bereich As String
Dim Zelle As Range
Dim Tabelle As Worksheet
Bereich = "a1:a43"
With ActiveWorkbook
For Each Zelle In ActiveSheet.Range(Bereich).Cells
Set Tabelle = .Sheets.Add(After:=.Sheets(Sheets.Count))
Tabelle.Name = Zelle.Text
Next Zelle
End With
End Sub
Lieben Dank.
Anzeige