Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert in erste leere Zelle eintragen

Gruppe

Zelle

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