Suchmakro ändern
10.11.2016 22:02:17
Luna
Habe im Netz das folgende Suchmakro gefunden.
Option Explicit
Sub inputboxaufrufen()
Dim strWert As String
strWert = InputBox("Geben Sie den zu suchenden Wert ein", "Sucheingabe")
If Not IsError(Application.Match(CDbl(Date), Columns(2), 0)) Then
Cells(Application.Match(CDbl(Date), Columns(2), 0), 2).Select
End If
End Sub
Kann man das so ändern das es in Spalte A nach einer bis zu 5stelligen Zahl sucht und dann in die Zelle wo die Zahl drinsteht springt?
Wie immer
Muchas Gracias für die Hilfe hier
Luna