Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zelle