habe folgendes Makro:
'suchen nach Tab.blatt
Dim strWKS As String
Application.ScreenUpdating = False
If TextBox1.Value = "A." Or TextBox1.Value = "" Then Exit Sub
strWKS = TextBox1.Value
On Error GoTo ErrorHandler
Worksheets(strWKS).Visible = True
Worksheets(strWKS).Activate
Unload UserForm2
UserForm1.Show
Application.ScreenUpdating = True
End
ErrorHandler:
Unload UserForm2
If MsgBox("Blattname existiert nicht. Neues Prüfblattlatt anlegen?", vbYesNo) = vbNo Then
UserForm2.Show
Exit Sub
Else
Unload UserForm2
Call Makro_neues_Blatt_anlegen
UserForm4.Show
ActiveSheet.Visible = True
ActiveSheet.Name = Range("K2").Value
UserForm1.Show
End If
Unload UserForm2
Application.ScreenUpdating = True
Mit dem Makro habe ich bisher eine Mappe nach einem Tabellenblatt durchsucht. Jetzt möchte ich aber 4 Mappen nach einem Blatt durchsuchen. Weiß leider nicht wie ich das anstellen soll.
Kann mir bitte jemand helfen?
Gruß Andi