Worksheets hinzufügen
14.11.2016 11:29:03
Gabi
ich habe ein Problem bei dem ich nicht weiter komme. Es handelt sich dabei um ein einzelnes _
Workbook. Das erste Worksheet beinhaltet eine Übersichtsliste mit einer ID pro Kundendatensatz ( _ ca. 300 Kunden = 300 Zeilen). Jeder Kunde soll ein eigenes Worksheet erhalten, was nach der Übersichtsliste eingefügt werden soll. Die Kunden können allerdings variieren. Deshalb soll die
Sub zudem prüfen, ob zu der Kunden-ID bereits ein Worksheet existiert. Wenn nein, soll _
automatisch eins angelegt werden. Mein Gedanke war es, das Ganze mit einer For Each Schleife zu _
lösen. Allerdings weiß ich nicht genau, wie ich der
Sub sagen soll, dass die jeweilige ID in Spalte A zu einem bestimmten Worksheet gehört. Ich _
hoffe das ist verständlich erklärt.
Hier ist der Ansatz von meiner bisherigen Sub. Sie ist aber noch lange nicht fertig...
Sub AddWorksheets()
Dim ws As Worksheet
Dim Kunde(1 To 300) As Long
Dim ExistiertWs As Boolean
Dim WsName As String
Set ws = ThisWorkbook.Worksheets.Add
ExistiertWs = False
For Each ws In ThisWorkbook.Sheets.Range("A4:A")
If ws.Name = ... Then
ws After:=Worksheets(Worksheets.Count)
ws.Name = "Kunde_" & Range("A4:A").Value
End Sub
Vielen Dank schon mal für eure Hilfe.
Liebe Grüße
Gabi