Hallo Leute,
Ich habe einen Code bekommen, der in der Rohfassung perfekt lief, habe nun aber versucht ihn an meine Datei anzupassen: Excel soll statt in Spalte 1:1 von Tabelle "Tabelle 2" die makro-funktion erstmals in der Zelle D7 anwendet. Wie bekomme ich das hin?
Hier der Code:
Dim loLetzte As Long
If Intersect(target, Range("d17")) Is Nothing
Then Exit Sub
If Len(Range("d17")) < 3 Or Not IsNumeric(Range("d17"))
Then Exit Sub
loLetzte = Sheets("Tabelle 2").Cells( Rows.Count, 1).End(xlUp).Row
Sheets("Tabelle 1").Cells(loLetzte + 1, 1) = Range("d17")
Range("d17").Select
Der Gedanke dahinter ist: Man gibt 5-stellige PLZ in Tabelle 1 alleinig in der Zelle D17 ein. Man drückt *Enter* und Excel listet alle eingegeben PLZ (größer 3 Nummern) in Tabelle 2 ab Zelle D7 untereinander auf.
Der urpsrüngliche Code lief super! Meiner Meinung nach, geht’s bei der Anpassung nur um den folgenden Teil: Cells( Rows.Count, 1)
Kann mir bitte bitte jemand helfen?!
Beste Grüße,
RoB