Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Workbook/Sheets Abfrage

Workbook/Sheets Abfrage
16.08.2002 08:06:20
Günter
Hallo!
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zu Deinem 2. Problem
16.08.2002 10:30:42
BCM
Hi Günther,
das mit On Error ist in diesem Fall nicht ideal, weil es sich ja nicht um einen echten Fehler handelt, wenn der Ort nicht gefunden wird und Du darauf reagieren willst. Besser wäre sowas:

Set c = Selection.Find("Suchtext")
If c Is Nothing Then MsgBox "Suchtext nicht gefunden"

Damit kannst Du auch unterbinden, daß das Macro bei nicht gefundenem Ort einfach weiterläuft.
cu
BCM

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige