Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblat suche über mehrere Arbeitsmappen

Tabellenblat suche über mehrere Arbeitsmappen
26.10.2005 18:51:28
ToM
hallo,
wäre schön wenn mir jemand helfen könnte.....
Mein Problem:Ich möchte mit dem Code unten ein Tabellenblatt anzeigen lassen.Das funktioniert auch aber leider nur für die aktive Arbeitsmappe.Was muss ich ändern damit es es für alle geöffneten Arbeitsmappen funktioniert..
Danke
Zeile1:
Set blatt = Nothing
blatt = InputBox("Bitte Namen eingeben!")
If nr = "" Then Exit Sub
On Error GoTo err
Sheets(blatt).Select
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbYes Then GoTo Zeile1
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Exit Sub
err:
MsgBox ("Blatt " & blatt & " existiert nicht!")
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbYes Then GoTo Zeile1
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblat suche über mehrere Arbeitsmappen
26.10.2005 19:03:26
Josef
Hallo Tom!
Versuchs mal so!
Sub sucheBlatt()
Dim wks As Worksheet, wkb As Workbook
Dim strName As String, bFound As Boolean

Do
  bFound = False
  strName = InputBox("Bitte Namen eingeben!")
  If strName = "" Then Exit Sub
  For Each wkb In Application.Workbooks
    For Each wks In wkb.Worksheets
      If wks.Name = strName Then
        bFound = True
        If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then
          wks.Activate
          Exit Sub
        End If
      End If
    Next
  Next
  If Not bFound Then
    If MsgBox("Blatt nicht gefunden!" & vbLf & vbLf & "Weitersuchen?", _
      vbYesNo + vbQuestion) = vbNo Then Exit Sub
  End If
Loop

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Tabellenblat suche über mehrere Arbeitsmappen
26.10.2005 19:29:46
ToM
hey ,
nachdem ich wks.activate vor die MsgBox geschoben hab scheint es zu funktionieren.......
super vielen Danke Sepp(Josef)
Grüße ToM
Dim wks As Worksheet, wkb As Workbook
Dim strName As String, bFound As Boolean
Do
bFound = False
strName = InputBox("Bitte Namen eingeben!")
If strName = "" Then Exit Sub
For Each wkb In Application.Workbooks
For Each wks In wkb.Worksheets
If wks.Name = strName Then
bFound = True
wks.Activate
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then

Exit Sub
End If
End If
Next
Next
If Not bFound Then
If MsgBox("Blatt nicht gefunden!" & vbLf & vbLf & "Weitersuchen?", _
vbYesNo + vbQuestion) = vbNo Then Exit Sub
End If
Loop
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige