|
Guten Morgen Gemeinde,
ich habe eine Eingabeoberfläche gebastelt, die eine automatisch fortlaufende Nummer enthält.
Alle Eingaben werden auf Knopfdruck in die zweite Tabelle übertragen. Allerdings versetzt.
Die Eingabeoberfläche sieht so aus:
Lfd-Nr. 0
Datum 13.06.2018
Lieferung 10 Kilo feinstes Schokoeis
Transport Lkw
usw.
Wenn ich das Ganze übertrage steht im Feld A1 die Lfd-Nr. und im Feld B2 bis ... schön nebeneinander alle Daten. Ich hätte allerdings gerne alle Daten nebeneinander gehabt.
Der Code für die Übertragung der lfd. Nr. lautet:
WkSh_Q.Range("c5").Copy
WkSh_Z.Range("A" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Der Code für das Datum und die folgenden Daten lautet:
WkSh_Q.Range("c7").Copy
WkSh_Z.Range("B" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Seltsamerweise versetzt es mir nur die Lfd.-Nr.
Für Hilfe wäre ich sehr dankbar..
Grüße
|