Hallo Zusammen
ich habe auf der Suche nach einem makro, dass in meiner Tabelle ein Makro startet folgendes gefunden
Code:
Option Explicit
Public Sub Suche_Anzeige()
Dim rngBereich As Range
Dim strGefunden As String
Dim strFinden As String
Dim wksBlatt As Worksheet
Dim wksBlattNeu As Worksheet
Dim lngLetzteZeile As Long
Dim lngZeile As Long
Dim intSpalte As Integer
On Error GoTo Suche_Anzeige_Error
For Each wksBlatt In ThisWorkbook.Sheets
If wksBlatt.Name Like „Gefunden_*“ Then
Application.DisplayAlerts = False
wksBlatt.Delete
Application.DisplayAlerts = True
End If
Next wksBlatt
strFinden = InputBox(„Geben sie das gesuchte Wort oder“ & vbLf & _
„den gesuchten Wortteil ein:“, „Suchen“, „Suchbegriff“)
If strFinden = „“ Then Exit Sub
Set wksBlattNeu = Worksheets.Add(before:=Sheets(1))
wksBlattNeu.Name = „Gefunden_“ & Format(Now, „dd_mm_yy_hh_mm_ss“)
For Each wksBlatt In ThisWorkbook.Sheets
If wksBlatt.Name wksBlattNeu.Name Then
Set rngBereich = wksBlatt.Cells.Find(What:=strFinden, LookIn:=xlValues, LookAt:=xlPart)
If Not rngBereich Is Nothing Then
strGefunden = rngBereich.Address
Do
lngZeile = rngBereich.Row
intSpalte = rngBereich.Column
lngLetzteZeile = lngLetzteZeile + 1
wksBlatt.Rows(lngZeile).Copy wksBlattNeu.Rows(lngLetzteZeile)
wksBlattNeu.Hyperlinks.Add Anchor:=wksBlattNeu.Cells(lngLetzteZeile, intSpalte), Address:="", SubAddress:= _
wksBlatt.Name & „!“ & rngBereich.Address, TextToDisplay:=rngBereich.Value
wksBlattNeu.Cells(lngLetzteZeile, intSpalte).AddComment wksBlatt.Name & Chr(10) & rngBereich.Address & Chr(10)
Set rngBereich = wksBlatt.Cells.FindNext(rngBereich)
Loop While rngBereich.Address strGefunden
wksBlattNeu.Columns.AutoFit
End If
End If
Set rngBereich = Nothing
Next
Set wksBlattNeu = Nothing
On Error GoTo 0
Exit Sub
Suche_Anzeige_Error:
MsgBox „Error " & Err.Number & " (“ & Err.Description & „)“
Set wksBlattNeu = Nothing
Set rngBereich = Nothing
End Sub
Das Makro funktioniert auch super! ich möchte aber jetzt, dass bei den Suchergebnissen immer die erste Zeile, also die Überschrift, der ursprünglichen Tabelle angezeigt wird.
Kenne mich selber leider mit VBA nicht wirklich aus…kann jemand helfen?
Danke