Letzte Zelle im Bereich - Blattnamen Schleife
07.11.2017 16:43:18
Hase
ich sitze mal wieder vor einem mir unlösbaren Problem.
Folgendes:
Ich möchte für jeden Mitarbeiter Namen stehen im Bereich C13 bis C22) ein neues Tabellenblatt anlegen. Dabei soll er meine Vorlage "wks2" kopieren und das Blatt mit der dazugehörigen Personalnummer (B13 bis B22) umbenennen.
Jetzt kann es sein, dass in manchen Monaten nur im Bereich C13 bis C15 Werte vorhanden sind. Daher wollte ich über eine Schleife gehen in der erst geprüft wird, ob in C13 und folgende leer sind. Hab es auch schon über End(xlUp).Row probiert, aber Blöderweise sind weiter unten noch weitere Daten. Ich suche also irgendetwas, mit dem nur im Bereich C13 bis C22 gesucht wird. Habt ihr eine Lösung?
Soweit mal mein Ansatz, der jedoch nicht funktioniert. Excel macht zwar das Blatt, benennt es _ aber nicht um und stürzt dann weg.
Dim i As Integer
Dim wks1 As Worksheet
Set wks1 = ActiveWorkbook.Worksheets("Titel")
Dim wks2 As Worksheet
Set wks2 = ActiveWorkbook.Worksheets("blanco")
With wks1.Range ?
For i = 1 To 10
If wks1.Cells(i, 1) "" Then
wks2.Select
wks2.Copy after:=wks2 'Blatt "blanco" kopieren einfügen
ActiveSheet.Name = wks1.Cells(i, 2).Text 'Blattnamen vergeben
i = i + 1
End If
Next i
End With
Vielen lieben Dank für eure Hilfe!