Ich habe jetzt -mit Hilfe von Micha- ein funktionsfähiges
Makro wie folgt:
Sub strassen()
Dim string1 As String, string2 As String, string3 As String
Dim int1%, int2%, int3%
' On Error GoTo 0 ' Fehlerbehandlung aus.
string3 = InputBox("Bitte Ort eingeben:")
If string3 = "" Then End
On Error Resume Next
Range("A1").Select
Cells.Find(What:="o= ***" & string3, After:=ActiveCell, Lookin:=xlFormulas, Lookat:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
string1 = InputBox("Bitte Strasse eingeben:")
Set worksheet1 = Workbooks("Touren.xls").Worksheets("Tour 04")
int1 = worksheet1.Cells(worksheet1.Rows.Count, 1).End(xlUp).Row
For int2 = 1 To int1
If (worksheet1.Cells(int2, 1).Text = string1) Then Exit For
Next
If (int2 > int1) Then End
If (int2 > int1) Then
MsgBox "Strasse nicht gefunden!"
Else
Do
int2 = int2 - 1
Loop While (Left(worksheet1.Cells(int2, 1).Text, 2) <> "o=")
string2 = Right(worksheet1.Cells(int2, 1).Text, Len(worksheet1.Cells(int2, 1).Text) - 2) & " mit der Tour-Nr: " & (worksheet1.Cells(int2, 2).Text)
MsgBox "Die Strasse " & string1 & " liegt in " & string2
End If
End Sub
..hierzu noch eine Bitte: Ich wollte es so, dass eine Auswahlbox
auf dem Blatt erschein, über welches man entweder alle sheets
(14 sheets) auswählen kann oder eine Auswahl treffen kann.
..das 2.Problem ist, dass -wenn kein Ort vorhanden ist- trotzdem
auf das 2.Input (String 1=Strassen) springt. Ausserdem kommt nicht
die Meldung: Ort nicht gefunden.
Kann mir jemand (oder Micha) helfen?
Micha, danke nochmals.
Gruss
Günter