Ergänzung zu VBA Code

Question

Hallo ihr Lieben...
ich habe folgenden Code erstellt.
Allerdings bräuchte ich ne kleine Ergänzung, die ich als "Laie" nicht so hinbekomme wie gewünscht.

Wenn er die Kundennummer eingefügt hat soll er automatisch eine Zeile unter den letzten vorhandenen Datensatz springen, bevor er wieder zu "Kundennummer neu" springt. Damit die eingegebene Nummer nicht wieder überschrieben wird beim nächsten Mal

Ich hoffe, dass ihr mir da weiterhelfen könnt..

Sub Neue_Kundennummer_in_Hauptdatei()
'
' Neue_Kundennummer_in_Hauptdatei Makro
'

'
Range("B4").Select
Selection.Copy
Sheets("Hauptdatei").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A9").Select
Sheets("Kundennummer neu").Select
Application.CutCopyMode = False
End Sub


Vielen Dank

Answer 1

Hallo Domei,

scroll mal in Deiner Datei etwas nach unten. Da tauchen die Zahlen auf. Lösche mal in Spalte A die gesamten Inhalte. ich vermute mal, dass in einer Zelle weiter oben ein Leerzeichen steht. Das wird bei den Makros natürlich als Text angesehen und daher wird die Zelle danach als erste freie Zelle angesehen.
Mein Makro funktioniert jedenfalls in Deiner Datei.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

ahhhh deshalb.. oh lol... es funzt bestens... suppi... nur wegen der einen zeile die unten eingegeben war... oh mann.

Danke an euch drei