Sub test()
Dim i As Long, tLR As Long
Dim tarWks As Worksheet, srcWks As Worksheet
Set srcWks = Worksheets("Tabelle1")
Set tarWks = Worksheets("Tabelle2")
With srcWks
For i = 1 To .Cells(.Rows.Count, 10).End(xlUp).Row
If .Cells(i, 14).Value = "x" Then
tLR = tarWks.Cells(Rows.Count, 1).End(xlUp).Row + 0
Debug.Print tLR
With tarWks
.Range(.Cells(tLR, 1), .Cells(tLR, 10)).Value = srcWks.Range(srcWks.Cells(i, 1), _
_
_
_
srcWks.Cells(i, 10)).Value
End With
End If
Next i
End With
End Sub
Das funktioniert, die jeweilig ausgewählte Zelle wird kopiert.
Aber: Die mit dem X ausgewählte Zeile soll in ein Formular übertragen werden. Sozusagen die markierte Zeile "aufgedröselt" an unterschiedliche Zellen kopiert werden. Z.B. A1 nach B3; A2 nach E3; A3 nach G5; A4 nach A14; A5 nach D14; A6 nach D15; A7 nach F14 und A8 nach G14. Dafür habe ich folgendes gefunden, weiß aber nicht, ob es das richtige ist:
tarWks.Cells(3, 1).Value = .Cells(i, 1)
Wie trage ich denn die Zielzellen ich den o.g. Code ein und wie bzw. wo füge ich diese geänderten Code oben ein? Hab schon ein paar Versuche durchprobiert und es funktioniert nicht.
Und jetzt DIE Frage: bekomme ich Hilfe und Unterstützung mit meinen Problem?
Viel Grüße aus Thüringen!
Manfred