VBA Tabellen erstellen und überprüfen ob vorhanden
07.09.2016 12:56:27
Donald
Nach anfänglichem Haareraufen komme ich nun zu euch, da das sicher ein Kinderspiel für euch ist. Folgende beiden Codes habe ich (teils glaube ich sogar hier aus dem Forum von Hajo_Zi anno 2012):
Sub NewSheets()
For I = 1 To 12
Dim wsNew As Worksheet
Set wsNew = Worksheets.Add
With wsNew
.Name = "A" & I
.Move after:=Sheets(Sheets.Count)
End With
Next I
I = 1
End Sub
Sub NewSheets2()
For I = 1 to 12
Dim BoVorhanden As Boolean
For Each WsNew In Sheets
If WsNew.Name = Range("A" & I) Then
BoVorhanden = True
End If
Next WsNew
If BoVorhanden = False Then
Sheets.Add.Name = Range("A" & I)
End If
Next I
End Sub
Mit dem zweiten möchte ich überprüfen, ob z.B. A5 schon besteht und dann soll es eben NICHT erstellt werden. Ich schaffe es aber leider nicht, die beiden zusammenzufügen, da ich immer bei den Schleifen durcheinander komme und Fehler auswerfe :-(
Also Endprodukt soll ein EINZIGES Makro sein, dass sich alle Sheets ankuckt, schaut Ob A1,A2,...,A12 vorhanden sind und wenn eines oder mehrere nicht vorhanden sind sollen diese erstellt werden.
Liebe Grüße
Donald
Anzeige