Igelnet.de - Tipp der Woche

Einen Wert in viele Zellen gleichzeitig schreiben (Tipp_64) - 15.06.2008

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.