VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wert in erste leere Zelle eintragen

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

    


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