VBA -
05.12.2013 16:40:01
Melanie
ihr wart schon oftmals meine Rettung - diesmal hoffentlich auch :-)
Ich habe einen Tab "Mitarbeiterübersicht", in welchem bspw. in Spalte A die Personalnummern stehen, und ich habe einen Tab "Muster". Zu jeder Personalnummer lasse ich mir über ein Makro einen eigenen Tab aus "Muster" erstellen. Jeder Tab wird über das Makro mit der Personalnummer aus "Mitarbeiterübersicht" benannt.
Das Makro sieht so aus (hab ich auch hier im Forum gefunden :-) Danke dafür):
Sub Sheetsanlegen_aktuell()
Dim x As Long
Dim wksP As Worksheet 'wks steht für Worksheet P steht für Personen
Application.ScreenUpdating = False
Set wksP = Worksheets("Zeitarbeiter")
For x = 2 To 47 'anpassen
Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = wksP.Cells(x, 1).Text
Next
Set wksP = Nothing
Worksheets("Zeitarbeiter").Activate
Application.ScreenUpdating = True
End Sub
Nun möchte ich aber, dass in Zelle A2 jedes neu erstellten Tabs auch die jeweilige Personalnummer steht. Kann mir bitte bitte jemand sagen, wie ich das hin bekomme?Vielen Dank im Voraus
Liebe Grüße
Melanie