Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon DOMMEl vom 03.10.2021, 14:55 Options
Ergänzung zu VBA Code
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
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
Antwort 21 von coros vom 04.10.2021, 15:53 OptionsLösung
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
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
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
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
VBA-Code funktioniert nicht mehr
jojo5 03.07.2008 - 72 Hits - 3 Antworten
Brauche hilfe bei VBA Code
BenjaminM 30.07.2008 - 24 Hits - 20 Antworten
Richtige Trennung einer Formel im VBA-Code
Ron11 18.08.2008 - 29 Hits - 8 Antworten
Frage zu einem VBA-Code
Donjuandan 25.11.2008 - 43 Hits - 6 Antworten
Warum funktioniert dieser VBA code nicht???
Harm 06.02.2009 - 469 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
