Adressausgabe?
Gerd
Habe mit der Ausgabe eines Codes Probleme :
Sub test()
Dim vRow
vRow = Application.Match(Cells(3, 5).Value2, Range("A3:A100"), 1)
If IsNumeric(vRow) Then
MsgBox Range("A3:A100").Cells(vRow, 1).Address
Else
MsgBox "nix gefunden"
End If
End Sub
Kenne mich nicht so gut aus damit, ich bräuchte jedenfalls als Ausgabe nur die Zeilennummer und nicht die Zellenadresse. Könnte mir das jemand umschreiben, wenn möglich.
Gruß und Dank
Gerd S.
Anzeige