Microsoft Excel

Herbers Excel/VBA-Archiv

Copy und in nächste freie Zelle

Betrifft: Copy und in nächste freie Zelle von: Marko
Geschrieben am: 04.11.2020 21:24:59

Hallo in die Runde,
ich benötige Eure Hilfe.

In der Tabelle "Eingabe" gebe ich in Zelle "C5" eine Kundennummer ein. Diese möchte ich mit einem Makro in Tabelle "Daten" Spalte A (in die nächste freie Zelle) übertragen und anschließend die Eingabe in "Eingabe" Zelle "C5" löschen, um die nächste Kundennummer zu erfassen.

Vielen Dank um Voraus für Eure Hilfe.

Betrifft: AW: Copy und in nächste freie Zelle
von: GerdL
Geschrieben am: 04.11.2020 23:05:18

Moin Marko!
Ins Codefenster der Tabelle "Eingabe" einfügen.

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address(0, 0) = "C5" Then
If Not IsEmpty(Target) Then

    Worksheets("Daten").Cells(Worksheets("Daten").Rows.Count, 1).End(xlUp).Offset(1, 0) =  _
Target.Value
    Application.EnableEvents = False
    Target.ClearContents
    Application.EnableEvents = True

End If
End If


End Sub


Gruß Gerd

Betrifft: AW: Copy und in nächste freie Zelle
von: Marko
Geschrieben am: 04.11.2020 23:10:30

Dankeschön...

Beiträge aus dem Excel-Forum zum Thema "Copy und in nächste freie Zelle "