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
Vielen Dank im Voraus
Liebe Grüße
Melanie
Anzeige