Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Nur bestimmte Zellen durchsuchen

Betrifft: Nur bestimmte Zellen durchsuchen
von: Knut
Geschrieben am: 11.04.2003 - 20:59:36

Hallo Forum

Ich habe eine Excel-Datei ca. 20 Arbeitsblättern. Darunter befinden sich u.a. 12 Arbeitsblätter für Januar bis Dezember, die die Namen 1 bis 12 tragen.
Nun möchte ich per VBA NUR in diesen Arbeitsblättern die Zellen B4 bis B35 nach einem bestimmten Wert durchsuchen (Eingabe über eine Input-Box).
Ausgegeben werden sollte das Ergebnis (Arbeitsblatt und Zelle in der sich der gesuchte Wert befindet) in einer MsgBox.

Kann mir da jemand weiterhelfen?
Vielen Dank im voraus

  

Re: Nur bestimmte Zellen durchsuchen
von: Mischa Richter
Geschrieben am: 11.04.2003 - 21:45:15

versuchs mit einer for-each-schleife
mischa

  

Re: Nur bestimmte Zellen durchsuchen
von: Mischa Richter
Geschrieben am: 11.04.2003 - 21:45:22

versuchs mit einer for-each-schleife
mischa

  

Re: Nur bestimmte Zellen durchsuchen
von: Knut
Geschrieben am: 12.04.2003 - 04:58:30

Das hilft mir nicht wirklich weiter, da ich von VBA kaum Ahnung habe.

  

Re: Nur bestimmte Zellen durchsuchen
von: th.heinrich
Geschrieben am: 12.04.2003 - 12:37:41

hallo Knut,

folgender ansatz.


Sub suchen_und_finden()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
sSearch = InputBox("Suchbegriff:")

Set rngFind = Cells.Find(what:=sSearch, lookat:=xlPart)


If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
sFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = sFind Then Exit Do
Loop
End If
rngRows.Select
End Sub

markiert die zeile in der der suchbegriff vorkommt.
auch von Knut (Dir?)

leider habe ich auch keine grosse ahnung von VBA, aber vielleicht hilft es weiter.

gruss thomas


 

Beiträge aus den Excel-Beispielen zum Thema "Nur bestimmte Zellen durchsuchen"