Thema Datum  Von Nutzer Rating
Antwort
Rot Schräge Datenübertragung
13.06.2018 08:15:09 Billy Ray
Solved

Ansicht des Beitrags:
Von:
Billy Ray
Datum:
13.06.2018 08:15:09
Views:
78
Rating: Antwort:
 Nein
Thema:
Schräge Datenübertragung

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

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Schräge Datenübertragung
13.06.2018 08:15:09 Billy Ray
Solved