17.04.2019, 08:26
(Dieser Beitrag wurde zuletzt bearbeitet: 17.04.2019, 08:30 von WillWissen.
Bearbeitungsgrund: Codetags
)
Ich habe eine Datenbank mit 50 verknüpften Arbeitsblättern erstellt. Zum Auffinden von Daten soll mir ein Suchmakro helfen, daß folgendermaßen aussieht:
Leider bekomme ich nur die Meldung, das nichts gefunden wurde.
Kann mir jemand helfen, das Makro zu berichtigen?
Code:
Sub Suchen()
Dim rng As Range
Dim sBegriff As String, sAddress As String
Sheets "Active Sheet".Select
sBegriff = InputBox( _
prompt:="Bitte Suchbegriff eingeben:", _
Default:="Hallo")
If sBegriff = "" Then Exit Sub
Set rng = Columns("C:C").Find( _
What:=sBegriff, _
LookAt:=xlPart, _
LookIn:=xlValues, _
MatchCase:=False, _
After:=Cells(Rows.Count, 3))
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAddress = rng.Address
rng.Select
If (MsgBox(rng.Address(False, False), vbYesNo, "Weitersuchen?")) = vbYes Then
rng.Offset(1).Select
Do
Columns("C:C").FindNext(After:=ActiveCell).Activate
If ActiveCell.Address = sAddress Then Exit Sub
If (MsgBox(ActiveCell.Address(False, False), vbYesNo, "Weitersuchen?")) = vbNo Then Exit Do
Loop
End If
End Sub
Leider bekomme ich nur die Meldung, das nichts gefunden wurde.
Kann mir jemand helfen, das Makro zu berichtigen?