Supportnet / Forum / Tabellenkalkulation
Tabellenblätter nach Liste benennen und Daten einfügen
Frage
Hallo zusammen,
Ich muß mit rund 140 Tabellenblättern arbeiten. (Zeiterfassung Angestellte u. Verknüpfung zur Lohnliste usw. Angelegt vor meiner Zeit und alles von Hand....) passt auch alles, allerdings wollte ich sie nun neu machen, Zeitarten hinterlegen über sverweis abfragen, hat auch alles funktioniert, dank dieses Makros was ich hier gefunden habe:
Sub Makro1()
For n = 1 To 146
Sheets("Vorlage").Select
Sheets("Vorlage").Copy After:=Sheets(2)
Sheets("Namen").Select
Name = Range("B" & n).Text
Sheets("Vorlage (2)").Select
Sheets("Vorlage (2)").Name = Name
Next n
End Sub
Nun habe ich aber das mit dem doppelten Namen.
und ist es möglich wenn ich die zeitdaten der Angestellten schon vorliegen habe (steht in einer Liste untereinander weg, Vor jeder zeile name und PersNr. ) gleich mit in das Blatt kopieren?
Ich hoffe ihr könnt mir helfen :o)
Vielen Dank im voraus!!
Gruß Snuddler

