ich habe Folgendes im Code stehen:
Dim Zb As Long
Zb = Sheets("import data").Cells(Rows.Count, 1).End(xlUp).Row
If Not Intersect(Range("E3:E" & Zb + 1), Target) Is Nothing And Target.Count = 1 Then
If Target "" Then
With Sheets("import data")
.Activate
.Range("A" & ?).Select
End With
End If
End If
Wie kann man die Fragezeichen ? so ersetzen, dass er die Zeilennummer der target-Zelle wiedergibt, also im sheet import data (anderes sheet) in der Spalte A die Zeilennummer sucht, sodass man da hinspringen kann.
Beispiel: In E5 steht 1001 und im sheet import data steht 1001 in A19.
Ich bedanke mich!
Viele Grüße,
Kürsat