Makro zur Blatt Erstellung
02.05.2016 16:26:04
Bela
Ich versuche mittels Makro eine Excel Liste zu durchsuchen und dann mit bestimmten Werten neue Blätter zu erstellen. Dabei soll eine Spalte durchgegangen werden und für jeden nicht vorher schon vorhandenen Eintrag ein Blatt erstellt werden. Das erstellte Blatt soll als Namen den Spalteneintrag haben.
Das Erstellen funktioniert zwar aber abgesehen von den Blättern die erstellt werden sollen, erstellt mir das Makro noch weitere Blätter die einfach Tabelle1-x heißen.
Sub Makro1()
Dim wsNew As Worksheet
Dim arrayInhalt(10) As Variant
' Speichert CarNo
Erase arrayInhalt
For i = 0 To 9
If IsError(Application.Match(Cells(i + 3, 7), arrayInhalt, 0)) Then
arrayInhalt(i) = Cells(i + 3, 7).Value
Else
End If
Next i
'erstellt neues Blatt
For i = 0 To UBound(arrayInhalt)
Set wsNew = Worksheets.Add
If arrayInhalt(i) Leer Then
With wsNew
.Name = arrayInhalt(i)
.Move after:=Sheets(Sheets.Count)
End With
Set wsNew = Nothing
End If
Next i
End Sub
Anzeige