Informationen und Beispiele zum Thema InputBox | |
---|---|
![]() |
InputBox-Seite mit Beispielarbeitsmappe aufrufen |
![]() |
![]() ![]() |
Re: Suchen und Finden
von: th.heinrich
Geschrieben am: 12.04.2003 - 12:50:59
hallo Oliver,
hier wird die zeile markiert.
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
von Knut
gruss thomas
![]() ![]() |
Re: Suchen und Finden
von: Oliver
Geschrieben am: 12.04.2003 - 13:23:21
Hallo Thomas,
das ist das gleiche VBA, was ich habe.
Ich möchte aber das nur in Spalte C gesucht wir und auch nur die gefundene Zelle und nicht die ganze Zeile markiert wird.
Danke
Gruß
Oliver
![]() ![]() |
Re: Suchen und Finden
von: th.heinrich
Geschrieben am: 12.04.2003 - 14:20:56
hallo Oliver,
mein wissen ist damit leider ueberfordert.
poste die frage neu inkl. code.
gruss thomas
![]() |