Makro ergänzen
05.09.2005 12:15:00
Achim
Wer kann helfen und das Makro ergänzen?
Sub AnzahlKopienAnfertigen()
Sheets("Monate").Select
neuSuchen = InputBox("Suchen nach:")
If neuSuchen = "Okt." Then Range("C1").Select
If neuSuchen = "Nov." Then Range("G1").Select
If neuSuchen = "Nov." Then Range("K1").Select
Selection.CurrentRegion.Select
Selection.Copy
An dieser Stelle soll nun eine Box erscheinen die nach der Anzahl der Kopien fragt.
Sheets("Einteiler").Select
Range("I2").Select
MsgBox ("Fertig")
End Sub
MfG
Achim H.