Hallo liebes Forum.
Ich habe ein Problem, bei dem ich einfach keine Lösung finde.
Ich möchte Werte aus "Tabelle 1" fortlaufend in "Tabelle 2" übertragen.
Die Werte aus "Tabelle 1" A1,B1,C1,D1,E1 und F1 sollen in "Tabelle 2" in die Reihe AB in eine jeweils definierte Zeile eingetragen werden.
Die Zuordnung der jeweiligen Zeile klappt auch wunderbar.
Meine Problematik besteht derzeit darin, die Werte in die nächste Spalte zu übertragen, falls in "Tabelle 2" Spalte AB bereits eine Eintragung gemacht wurde.
Im Beispiel:
Sub Schaltfläche_Klicken()
Dim i As Long
Dim H1 As Variant
Dim A1 As Variant
Dim B1 As Variant
Dim C1 As Variant
Dim D1 As Variant
Dim E1 As Variant
Dim F1 As Variant
H1 = ThisWorkbook.Sheets("Tabelle 1").Range("H1")
A1 = ThisWorkbook.Sheets("Tabelle 1").Range("A1")
B1 = ThisWorkbook.Sheets("Tabelle 1").Range("B1")
C1 = ThisWorkbook.Sheets("Tabelle 1").Range("C1")
D1 = ThisWorkbook.Sheets("Tabelle 1").Range("D1")
E1 = ThisWorkbook.Sheets("Tabelle 1").Range("E1")
F1 = ThisWorkbook.Sheets("Tabelle 1").Range("F1")
With ThisWorkbook.Sheets("Tabelle 2")
For i = 1 To 100
If .Cells(i, "H") = H1 Then
.Cells(i, "AB") = A1 & B1 & " / " & C1 & D1 & " / " & E1 & F1
End If
Next i
End With
End Sub
Heißt also, wenn in "Tabelle 2" Spalte AB bereits die Werte aus "Tabelle 1" A1, B1, C1, D1, E1 und F1 übertragen wurden, sollen beim nächsten Mal die Werte in die Spalte AC, dann AD, dann AF, dann AG etc. übertragen werden.
Ich hoffe das ist soweit verständlich und ihr könnt mir weiterhelfen. |