Hallo zusammen, ich habe mal wieder ein Problem.

Und zwar will ich über VB eine Excel DB (mehrere Tabellenblätter) durchsuchen.

Leider habe ich nur den Befehl für ein Tabellenblatt zu durchsuchen, welcher

Search Value.ActiveSheet....

lautet. Welchen Befehl kann ich jetzt benutzen um mehrere Tabellenblätter zu durchsuchen.

Vielen Dank für eure Hilfe.

Raaaner

Durchlaufe doch in einer Schleife alle vorhandenen Tabellenblätter und starte dann den Suchbefehl für jedes einzelne Blatt.

dim i as integer
for i = 0 to anzahltabellen - 1
search tabelle(i)
next i

So in der Art...

Hallo Marcus,
anbei ist mein code. Kannst du mir dann bitte noch sagen wie ich die Schleife einbauen kann, bin leider ein rechter Anfänger. Vielen vielen Dank.
Code:
Option Explicit

Private Sub cmdSearch_Click()
SearchValue ActiveSheet.UsedRange, txtStart, txtTarget
End Sub

Private Function SearchValue(ActiveSheet As Range, strValue1 As String, strValue3 As String)
'Durchsuchter Bereich: rgnSearchArea
'Spalte 1 des Bereiches wird nach strValue1 durchsucht
'Spalte 3 des Bereiches wird nach strValue3 durchsucht
Dim arr() As String
Dim i As Long, j As Long
Dim strTmp As String
lstResult.Clear

With ActiveSheet
For i = 1 To .Rows.Count
If Trim(.Cells(i, 1)) = Trim(strValue1) And Trim(.Cells(i, 3)) = Trim(strValue3) Then
For j = 1 To .Columns.Count
strTmp = strTmp & .Cells(i, j) & vbTab
Next j
lstResult.AddItem strTmp
strTmp = vbNullString
End If
Next i
End With

End Function

Versuche mal folgendes:

Jetzt bringt er die Fehlermeldung

Subscript out of Range und verweist auf die Zeile

SearchValue sheets(i).UsedRange, txtStart, txtTarget

Please help me


-------------------------------------------------------------------------------
PS: Ich bin vielleicht froh das es so nette Menschen in den
Forums gibt. Thanks @ all

Hey Marcus,

danke schön nochmal für deine Mühe. Jetzt funktioniert alles wunderbar.
Thanks Rainer

>>>>>> Thema geschlossen <<<<<<