Problem besteht!Codeanpassung nicht erfolgreich!:(
RoB
habe gestern über folgendes Anliegen geschrieben und ich schätze, ich bin in Vergessenheit geraten :S
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:1von Tabelle "Definition_Wachstumsstufen" die makro-funktion erstmals in der Zelle D7 anwendet. Wie bekomme ich das hin?
Hier der entscheidene Auszug des Codes:
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("Definition_Wachstumsstufen").Cells(loLetzte + 1, 1) = Range("d17")
Range("d17").Select
Es ging darum, 5-stellige PLZ in Tabelle 1 ausschließlich in der Zelle D17 einzugeben. 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, gehts bei der Anpassung weiterhin nur um den folgenden Teil: Cells( Rows.Count, 1)
Kann mir bitte bitte jemand helfen?!
Beste Grüße,
RoB