Hallo allerseits,
ich möchte in viele Sheets einer Tabelle in eine Zeile den Begriff "Abrechnungszeitraum" + die vorher per Inputbox erfragten Werte eingeben. Verzweifle aber dabei gerade...Hat jemand eine Idee?
Hier das Makro:
Dim Wert
Wert = Application.InputBox("Bitte geben Sie den Datumsbereich ein:", "Datumseingabe")
Sheets(Array("Fischer", "Rathje", "Kock", "Szewczyk", "Voss", "Böge", "FreierHelmut", _
"Schnoor", "Lubanski", "Horree", "Lütt", "Klein", "Krüger", "Hinrichsen", "Kinne", _
"Jensen", "Michalewski", "Dunker", "Stöckel", "Mumm", "Altenburg Rolf", "Lindemann", _
"Bartsch", "Kühl", "Kursel")).Select
Sheets("Fischer").Activate
Sheets(Array("BernhardtLeo", "Kath", "Kummerfeldt", "Holst", "Altenburg Andreas", _
"Groth", "Ramm", "Hammer", "Seider", "Latzel", "Maschmann", "Bernhard Knut", "Kramer", _
"Biernacki", "Gloyer", "Bergagnin", "Wollenberg", "Johannsen", "Grahlmann", _
"Stojanovic", "Farkas", "Lüben", "FreierThomas", "Bökenhauer", "Grothkopp")).Select _
Replace:=False
Sheets(Array("Wegner", "Krause", "Schlünzen", "SpotaValerie", "Fröck", "Kuhn", _
"Meyer", "Neinstell", "Stahlschmidt", "Zabel", "Wulf", "Staben", "Völkel", "Greve", _
"Vogel", "Lang", "Kamp", "Grube", "Rütz", "Fuhrmann", "Mauer", "Losch", "Weiss", _
"Peters", "Pahl")).Select Replace:=False
Sheets("Willomeit").Select Replace:=False
Range("A2:N2").Select
In A2:N2 soll nun der "Abrechnungszeitraum (Wert)" eingegeben werden..
Danke schonmal.
Gruß
Kai