Excel - Schleifenproblem

Excel - Schleifenproblem (8 Beiträge, 81 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hi!

....und wieder einmal ein Schleifenproblem....

Wie kann ich eine Schleife so programmieren, dass ein per Input-Box eingegebener Begriff im gesamten Datenblatt gesucht wird, und nach der ersten Fundstelle auch das restliche Datenblatt weiter durchsucht, da es noch weiterer gleiche Begriffe geben könnte?

Ich stelle mir dies in etwa so vor:

Input-Box ->
Anzeige der Fundstelle ->
Abfrage ob noch weiter gesucht werden soll ->
weitersuchen / Ende

mein bisheriges makro:

Sub Suchen()

Dim gZelle As Range, sBegriff As String

sBegriff = InputBox("Bitte Suchbegriff eingeben:", "Hallo Kollege " & _
    Application.UserName & "! Wieder mal auf der Suche?")
If sBegriff = "" Then Exit Sub

Sheets("Datensätze").Select

Set gZelle = ActiveSheet.Columns("A:K").Find(sBegriff)

If gZelle Is Nothing Then
    Beep
    MsgBox "Suchbegriff konnte nicht gefunden werden!", vbCritical, "Leider Kollege " & Application.UserName & "....."
    Range("A1").Select
    Sheets("Daten suchen").Select
    Range("e2").Select
    Exit Sub
End If

Sheets("Daten suchen").Select
Range("c1").Select
ActiveCell.FormulaR1C1 = gZelle.Row - 1
Range("e2").Select

End Sub

thx, SunnyHill

Re: Excel - Schleifenproblem (hariw am 26.06.2006, 17:42:28)

Re(2): Excel - Schleifenproblem (SunnyHill am 26.06.2006, 17:44:53)

Re(3): Excel - Schleifenproblem (hariw am 26.06.2006, 17:46:38)

Re(4): Excel - Schleifenproblem (SunnyHill am 26.06.2006, 17:58:52)

Re(5): Excel - Schleifenproblem (hariw am 26.06.2006, 18:11:10)

Re(6): Excel - Schleifenproblem (SunnyHill am 27.06.2006, 13:12:25)

Re(7): Excel - Schleifenproblem (hariw am 27.06.2006, 13:37:10)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung