Copy und in nächste freie Zelle

Forumthread: Copy und in nächste freie Zelle
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Copy und in nächste freie Zelle

04.11.2020 22:24:59

Marko

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.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Copy und in nächste freie Zelle

05.11.2020 00:05:18

GerdL
AW: Copy und in nächste freie Zelle

05.11.2020 00:10:30

Marko

AW: Copy und in nächste freie Zelle

05.11.2020 00:05:18

GerdL

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

AW: Copy und in nächste freie Zelle

05.11.2020 00:10:30

Marko

Dankeschön...