Thema Datum  Von Nutzer Rating
Antwort
Rot Excel durchsuchen, Suchergebnis inkl. Spalten-und Zeilenüberschrift ausgeben
26.07.2021 10:10:36 Linda
NotSolved
26.07.2021 10:58:39 Gast11849
NotSolved
26.07.2021 18:11:54 Gast23387
NotSolved
26.07.2021 18:15:51 Gast23387
NotSolved

Ansicht des Beitrags:
Von:
Linda
Datum:
26.07.2021 10:10:36
Views:
150
Rating: Antwort:
  Ja
Thema:
Excel durchsuchen, Suchergebnis inkl. Spalten-und Zeilenüberschrift ausgeben

Liebe KollegInnen,

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 Spaltenüberschrift und Zeilenüberschrift der Suchergebnisse ausgegeben. Habt ihr hierzu eine Idee, ich stecke leider fest.

Hier mein bisheriges Ergebnis:


Private Sub Ausführen()
Dim ws As Worksheet
Dim Bereich As Range
Dim ichsuche 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

Do
Worksheets("Start").Cells(i, 3) = Bereich.Value

'in der ersten Spalte in Zeile 10 hätte ich gerne die Spaltenüberschrift des Suchtreffers und in Spalte 2 hätte ich gerne die Zeilenüberschrift des Suchtreffers. 


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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel durchsuchen, Suchergebnis inkl. Spalten-und Zeilenüberschrift ausgeben
26.07.2021 10:10:36 Linda
NotSolved
26.07.2021 10:58:39 Gast11849
NotSolved
26.07.2021 18:11:54 Gast23387
NotSolved
26.07.2021 18:15:51 Gast23387
NotSolved