ich habe folgende Anweisung erstellt:
Ich suche durch die ersten sechs Stellen der Zellen B8-B22 ob CX 10, oder CX 20, oder ..... steht. Wenn CX 10, dann kopiere z.B. C8 nach F64 und es soll z.B. D8 nach F66 kopiert werden.
Private Sub CommandButton1_Click()
y = 2
For i = 8 To 22
sLinks = Left(Cells(i, 2), 6)
Cells(i, y).Select
If sLinks = "CX 10," Then
ActiveCell.Offset(0, 1).Select (= z.B. C8)
Selection.Copy
Range("F64").Select
Selection.PasteSpecial
Bis hierher ist alles gut. Nun möchte ich aber in die Zelle neben der zu kopierenden Zelle springen (z.B. D8) und den Inhalt in die Celle F66 kopieren.
Kann mir jemand weiterhelfen