Gruppe
Allgemein
Problem
Wie kann ich Eingabelücken mit Werten auffüllen?
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