Wenn Sie viele Zellen mit ein und demselben Wert füllen müssen, können Sie sich diese mühevolle Arbeit mit folgendem Makro erleichtern:
Sub Werte_Abfragen()
Dim Wert
Dim Zellbereich As Range
Set Zellbereich = Application.InputBox("Zu füllender Bereich:", Type:=8)
Wert = InputBox("einzutragender Wert:")
Zellbereich.Select
Selection.Value = Wert
End Sub
Zuerst werden Sie nach dem zu füllenden Bereich gefragt. Danach geben Sie den Wert ein, der in die Zellen geschrieben werden soll.
Interessant hierbei ist, daß der gewünschte Zellbereich nicht per Hand in die Inputbox eingetippt werden muß, sondern mit der Maus ausgewählt werden kann.