Hallo Leute ;),
kurze frage: Ich habe ein Such Marko geschrieben das alles sich in der Datei befindende sucht und auch ausgibt. Jetzt möchte ich aber dass es mir nicht nur das gefundene ausgibt, sondern gleich die gesamte Zeile in der sich die gesuchte Zelle befindet.
Hier mein Code:
[code]Option Explicit
Public Sub Suchen_Ausgeben()
Dim rngBereich As Range
Dim strBereichAdresse As String
Dim strFundstelle As String
Dim wksBlatt As Worksheet
Dim wksBlattNeu As Worksheet
Dim c As Range
Dim lngZeile As Long
strFundstelle = InputBox("Geben sie das gesuchte Wort oder" & vbLf & _
"den gesuchten Wortteil ein:", "Suchen", "Suchbegriff")
If strFundstelle = "" Then Exit Sub
Set wksBlatt = ThisWorkbook.Sheets("Messwert-Datei")
Set wksBlattNeu = Worksheets.Add(Before:=Sheets(1))
wksBlattNeu.Name = "Suche_" & Format(Now, "dd_mm_yy_hhmmss")
Set rngBereich = wksBlatt.Cells.Find(What:=strFundstelle, LookIn:=xlValues, LookAt:=xlPart)
If Not rngBereich Is Nothing Then
strBereichAdresse = rngBereich.Address
Do
lngZeile = lngZeile + 1
wksBlattNeu.Cells(lngZeile, 1) = rngBereich
wksBlattNeu.Cells(lngZeile, 2) = rngBereich.Address(0, 0)
wksBlattNeu.Cells(lngZeile, 3) = wksBlatt.Name
[b]Ich denke diese Zeile wird falsch sein [/b]
wksBlattNeu.Cells(lngZeile, 4) = Cells(c.Row, c.Column + 1).Value
Set rngBereich = wksBlatt.Cells.FindNext(rngBereich)
Loop While rngBereich.Address <> strBereichAdresse
End If
wksBlattNeu.Columns("A:C").AutoFit
Set wksBlatt = Nothing
Set rngBereich = Nothing
Set wksBlattNeu = Nothing
End Sub[/code]
Besten Dank im Vorraus
Florian
|