Supportnet / Forum / Tabellenkalkulation
Zeilennummer ausgeben und einfügen
Frage
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
Antwort 1 von Felix109
Habe schon die Antwort gefunden, brauche erstmal keine Hilfe mehr..