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