Hallo,

ich würde gerne die selektierte Zeile der Zelle ausgeben lassen , um danach in der nächsten Zeile automatisch etwas einfügen zu lassen.

Funktioniert eigentlich alles, ausser dieser ersten drei Zeilen.

Hier der Code:

Private Sub CommandButton3_Click()
Dim x, i, s, t As Integer
Dim y, z, f As String

s = Selection.Rows
x = Selection.Value
t = s + 1

For i = 4 To 400
If Sheets("TopDown Listen").Range("A" & i).Value = x Then
f = Sheets("TopDown Listen").Range("B" & i).Value
Sheets("Top30 Dokumentation").Range("B" & t).Value = f
End If
Next i

End Sub

Vielleicht kann mir je einer schnell helfen. Danke
Felix