Gruppe
Allgemein
Bereich
Zelle
Thema
Wert in erste leere Zelle eintragen
Problem
Wie kann ich Eingabelücken mit Werten auffüllen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub CopyInFirstEmptyCell()
Dim rng As Range
On Error GoTo ERRORHANDLER
Set rng = Cells.SpecialCells(xlCellTypeBlanks)
rng(1) = Range("C1").Value
Exit Sub
ERRORHANDLER:
Beep
MsgBox prompt:="Keine frei Zelle gefunden!"
End Sub