eine Hilfe brauch ich noch für heute, dann ist hoffentlich Schluß! :-)
Ich habe eine Datei mit ziemlichen vielen Tabellen.
Jetzt sind natürlich in diesen Tabellen sehr viele Daten eingetragen.
Jetzt wollte ich mir ein Makro schreiben, da ich öfters einen Eintrage
suchen muß, der in irgendeiner Tabelle versteckt ist.
Folgendes Makro hab ich gefunden und wollts anpassen. Es funktioniert,
daß es den ersten gefundenen Eintrag markiert. Ich möchte aber das Makro
nun so erweitern, daß die Abfrage folgt, ob ich nach den gleichen Wert
weitersuchen will oder nicht. Und beim Weitersuchen happerts!!!
Wie muß ich dieses Makro umändern, das es weitersucht?
Thx4hlp
lg Thommy
Sub DatenSuchen()
Dim Zelle As Range
Dim Blatt As Worksheet
Dim str As String
str = InputBox _
("Bitte geben Sie den Suchbegriff ein!")
AA:
If str = "" Then Exit Sub
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Activate
ActiveSheet.UsedRange.Select
For Each Zelle In Selection
If Zelle = str Then
Zelle.Select
Exit Sub
End If
Erg = MsgBox("Willst Du weiter suchen?", vbYesNoCancel, " Hallo " & Environ("Username"))
If Erg = vbYes Then
GoTo AA:
End If
If Erg = vbNo Then
Exit Sub
End If
If Erg = vbCancel Then
Exit Sub
End If
Next Zelle
Next Blatt
MsgBox "Suchbegriff nicht gefunden!"
End Sub