Office: (Office 2016) Suche über mehrere Excel-Tabellen und Excel-Dateien

Schlumpfine910 · 16. November 2020

Guten Morgen zusammen.

Ich habe zu einer Suche mit einem vba-Code eine Frage.

Man hat mir freundlicherweise mit einem Code geholfen in einer ExcelDatei in einem Arbeitsblatt nach einem Namen zu suchen:

Code:

Private Sub Name_suchen_Click()
Dim rngCell As Range, rng As Range
Dim strFirstAddress As String
If Me.TextBox1 = "" Then
Me.ListBox1.Clear
Exit Sub
End If
With Worksheets("Stammdaten")
Set rng = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
Set rngCell = rng.Find(Me.TextBox1.Value, LookIn:=xlValues, LookAt:=xlPart)
With Me.ListBox1
.Clear
.ColumnCount = 6
.ColumnWidths = "2,0cm;9,0cm;2,5cm;6,5cm;2,6cm;2,5cm"
End With
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.AddItem
.List(.ListCount - 1, 0) = rngCell.Offset(0, -1).Value
.List(.ListCount - 1, 1) = rngCell.Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 5) = rngCell.Offset(0, 4).Value
.List(.ListCount - 1, 6) = rngCell.Row
End With
Set rngCell = rng.FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Name nicht gefunden", 48
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt ist es so, dass sich das ganze so erweitert hat, dass ich mehrere ExcelDateien habe. Diese ExcelDateien liegen in anderen Ordnern im Netzlaufwerk. Die ExcelDateien haben die Namen "AES", "HBS", "MMS", "PKS" und "SZR".

Also: Die Datei mit der Suche liegt unter: K:Austausch/Beitrag/2020_2021/Suche.xls

Die Dateien liegen unter:
K:Austausch/Beitrag/AES/AES.xls
K:Austausch/Beitrag/HBS/HBS.xls
K:Austausch/Beitrag/MMS/MMS.xls
K:Austausch/Beitrag/PKS/PKS.xls
K:Austausch/Beitrag/SZR/SZR.xls

Kann mir einer jemand helfen, wie ich den Code oben anpassen muss, dass die Suche über die ganzen Excel-Dateien geht?

Danke schonmal.

Lieben Gruß

:)

Flotter Feger · 18. November 2020

Hallo,

bei mehreren Dateien, solltest du deinen Code wegwerfen und das Suchen der Daten einer ADODB-Connection überlassen, die über ein SQL-Statement ein RecordSet anlegt, welches du auslesen kannst.

Sabina

PS: eigentlich sollten die Daten bei der Menge Dateien in einer Datenbank stehen ... aber gut ... ist halt so, wie es ist. *rolleyes.gif*

Schlumpfine910 · 18. November 2020

Danke für die Antwort, die mir leider nichts gebracht hat.

Vielleicht hat jemand noch eine Idee.

Lieben Gruß

Schlumpfine910 · 19. November 2020

Guten Morgen.

Ich habe es jetzt etwas anders gemacht und ich hoffe es gibt doch eine Lösung.

Ich habe alle Excel-Dateien in eine Excel-Datei mit mehreren Tabellenblättern gespeichert.

Dies ist der Code, der mir damals zur Verfügung gestellt wurde, um in einer Tabelle zu suchen:

Code:

Dim rngCell As Range, rng As Range
Dim strFirstAddress As String
If Me.TextBox1 = "" Then
Me.ListBox1.Clear
Exit Sub
End If
With Worksheets("Stammdaten")
Set rng = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
Set rngCell = rng.Find(Me.TextBox1.Value, LookIn:=xlValues, LookAt:=xlPart)
With Me.ListBox1
.Clear
.ColumnCount = 6
.ColumnWidths = "2,0cm;9,0cm;2,5cm;6,5cm;2,6cm;2,5cm"
End With
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.AddItem
.List(.ListCount - 1, 0) = rngCell.Offset(0, -1).Value
.List(.ListCount - 1, 1) = rngCell.Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 5) = rngCell.Offset(0, 4).Value
.List(.ListCount - 1, 6) = rngCell.Row
End With
Set rngCell = rng.FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Name nicht gefunden", 48
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie kann ich diese Suche jetzt auf alle Tabellenblätter erweitern?

Danke schon mal.

Lieben Gruß

drambeldier · 19. November 2020

Moin,

es gibt eine Collection der Worksheets, die nudelst Du durch:
Code:

Dim ws as Worksheet
for Each ws in Worksheets
' anstelle des With Worksheets("Stammdaten")
Call Suche(ws.name)
next ws
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schlumpfine910 · 19. November 2020

Leider bin ich in der Anwendung VBA nicht fit.

Wie sieht der ganze Code dann aus mit dem Befehl "Call Suche" und "Next WS"?

Weiß leider nicht wo das hin muss?

Danke.

Schlumpfine910 · 23. November 2020

Guten Morgen.

Ich habe es jetzt anders hinbekommen, da ich mit dem Call etc. nicht klar kam.

Aber eine kurze Frage noch.

Wenn ich die ListBox per Doppelklick in Textboxen einlesen lasse (um Daten zu ändern, etc, sieht das bei mir so aus:

Code:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Anzeigeform.Show
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub UserForm_Initialize()
Dim i As Integer, lngRow As Long

If IstFormularGeladen("Suchenform") Then
lngRow = Suchenform.ListBox1.List(Suchenform.ListBox1.ListIndex, 6)
For i = 1 To 32
Me.Controls("TextBox" & CStr(i)) = Worksheets("Stammdaten").Cells(lngRow, i)
Next i
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert auch super mit dem Modul.

Wie schaffe es jetzt, dass ich einzelne Textboxen formatieren kann. Bedeutet, einzelne Textboxen als Währung.

Weiterhin wäre hier noch eine andere Frage. Aufgrund von Bezüge in den Tabellen habe ich die Nullwerte ausblenden lassen. Leider werden mir diese in den Textboxen angezeigt. Bekomme ich diese hier auch weg. Natürlich nur die Nullwerte, die aufgrund von Excel gesetzt werden und nicht die, die ich als 0 eingebe.

Danke schon mal und ich hoffe ich habe mich verständlich ausgedrückt.

Lieben Gruß

WS-53 · 23. November 2020

Nur mal nebenbei.

Warum speicherst du deine Daten im uralten .xls-Format, das die neuen Funktionen nicht unterstützt und unnötig große Mappen erzeugt ???

Nimm .xlsx, damit bist du besser bedient !!!

Schlumpfine910 · 23. November 2020

Danke für die Antwort.

Habe es direkt gemacht.

Danke.

Lieben Gruß

Office: (Office 2016) Suche über mehrere Excel-Tabellen und Excel-Dateien

Suche über mehrere Excel-Tabellen und Excel-Dateien

Suche über mehrere Excel-Tabellen und Excel-Dateien

Suche über mehrere Excel-Tabellen und Excel-Dateien

Suche über mehrere Excel-Tabellen und Excel-Dateien

Suche über mehrere Excel-Tabellen und Excel-Dateien - Similar Threads - Suche Excel Tabellen

Excel - nach mehreren Wörtern suchen und diese farbig markieren?

sVerweis Blattübergreifend verwenden

Abfrage von mehreren Variablen aus einer Tabelle (Cocktaildatenbank)

VBA suchen nach Inhalten und bestimmter Teil in anderer Tabelle ausgeben

Mit ganze Tabellen durch einfache Suchfunktion darstellen - Excel '10

Suche Sparkästchen Excel Tabelle für 98 Sparer

Automatischer Such- Button in Excel Tabelle einrichten