|
Hallo zusammen,
ich benötige bitte eure Unterstützung.
Die Ausgangslage: Ich möchte mein gesamtes Excel nach Inhalten durchsuchen. Die Ergebnisse sollten im ersten Tabellenblatt ausgegeben werden.
Dies habe ich soweit geschafft. Ich hätte jedoch auch gerne die Zeilenüberschrift (Spaltenüberschrift, habe ich mit eurer Hilfe schon geschafft) der Suchergebnisse ausgegeben. Habt ihr hierzu eine Idee, ich stecke leider fest.
Vielen Dank im Voraus.
Sub SucheAusgabe()
Dim ws As Worksheet
Dim Bereich As Range
Dim sichsuche As String
Dim i As Long
i = 10
ichsuche = InputBox("Suche nach:", "Arbeitsmappe durchsuchen")
If ichsuche = "" Then
MsgBox ("Keine Sucheingabe erfolgt!")
Exit Sub
End If
Range("A10:C55").Clear
For Each ws In Worksheets
With ws.Range("B2:t55")
Set Bereich = .Find(ichsuche, LookIn:=xlValues)
If Not Bereich Is Nothing Then
Treffer = Bereich.Address
Set Spaltentitel = Bereich.Worksheet.Cells(1, Bereich.Column)
Do
Worksheets("Start").Cells(i, 3) = Bereich.Value
Worksheets("Start").Cells(i, 1) = Spaltentitel.Value
Set Bereich = .FindNext(Bereich)
i = i + 1
Loop While Not Bereich Is Nothing And Bereich.Address <> Treffer
End If
End With
Next ws
End Sub
|