Zuordnung von Daten
06.11.2020 18:27:58
Daten
wie kann ich die Zuordnung mit dem Makro in der Tabelle "Daten" nicht immer in die nächste leere Zelle einer Spalte (B, C, D usw.), sondern nebeneinander in der gleichen Zeile übertragen werden. Der Wert in Spalte A bleibt hiervon ausgenommen. An diesem Wert in Zelle z.B. A2 sollen sich nebeneinander die Spalten B2, C2, D2 und folgende befüllen.
Ich hoffe ich konnte mich verständlich ausdrücken. Vielen Dank für Eure Unterstützung.
Private Sub Commandbutton1_Click()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Set WkSh_Q = ThisWorkbook.Worksheets("Eingabe")
Set WkSh_Z = ThisWorkbook.Worksheets("Daten")
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
'Ab hier nicht mehr in die nächste leere Zelle der folgenden Spalten, sondern immer neben dem _
Wert in Spalte A. z.B. Wert wurde in A2 übertragen und die nächsten Werte sollen in B2, C2, C3 übertragen werden.
WkSh_Q.Range("C13").Copy
WkSh_Z.Range("B" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
WkSh_Q.Range("C15").Copy
WkSh_Z.Range("C" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 3).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
WkSh_Q.Range("C17").Copy
WkSh_Z.Range("D" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 4).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
WkSh_Q.Range("C19").Copy
WkSh_Z.Range("E" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 5).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
WkSh_Q.Range("C21").Copy
WkSh_Z.Range("F" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 6).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub