Habs Herausgefunden.. WOW.
danke für deine Hilfe Rainberg.
Wünsche dir noch ein gutes neues Jahr
So sieht er meiner MEinugn anch aus, wenn ich auch andere Spalten durchsuchen möchte
Option Explicit
Private Sub CommandButton1_Click()
Dim rngc As Range, intZ As Integer
For Each rngc In Worksheets("FA").Range("A6:A" & Worksheets("FA").Cells(Rows.Count, 1).End(xlUp).Row)
If rngc.Offset(0, 1).Value = "" Then
intZ = intZ + 1
Worksheets("AA").Cells(intZ + 3, 1).Value = rngc.Value
End If
Next
For Each rngc In Worksheets("FA").Range("D6:D" & Worksheets("FA").Cells(Rows.Count, 1).End(xlUp).Row)
If rngc.Offset(0, 1).Value = "" Then
intZ = intZ + 1
Worksheets("AA").Cells(intZ + 3, 1).Value = rngc.Value
End If
Next
End Sub