Hallo Excelprofis,
brauche schon wieder einmal Euere Hilfe:
1.
Mit dem Makro in Zelle A9 wird SpalteA nach X durchsucht und wenn X gefunden wurde, der Wert rechts (SpalteB) neben X in Spalte F kopiert.
Jetzt soll noch der Wert in SpalteC neben X in SpalteG und und der Wert aus SpalteD neben X nach SpalteH kopiert werden!
2.
Wie können die Zellen F2, G2, H2 direkt angesprochen werden und nicht über Range("F50").SelectSelection.End(xlUp).SelectActiveCell.Offset(1, 0).Range("A1").Select ?
Vielen Dank für Euere Mühe
Gruss Dieter

Tabelle1

A B C D E F G H 1   Nr. Name Personal-Nr   Nr. Name Personal-Nr 2 x 1 A 123   1     3   2 B 124   3     4 x 3 C 125   5     5   4 D 126   7     6 x 5 E 127         7   6 F 128         8 x 7 G 129         9         Sub X_Suchen() Dim i As Range For Each i In Range("A1:A10") If (i.Value) = ("x") Then i.Select ActiveCell.Offset(0, 1).Range("A1").Activate Selection.Copy Range("F50").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False End If Next i Range("A1").Select End Sub