Schleife für Inputbox
24.02.2018 10:08:57
Thomas
ich möchte eine Schleife erzeugen die eine Inputbox so oft erscheinen lässt bis ich sie auf eine taste drücke.
die werte die ich in die Inputbox schreibe, dienen zur Identifizierung von Tabellenblätter und dort sollen später dann Spezialfilter angewendet werden.
gibt es da Möglichkeiten?
Hier der Code zur Identifizierung von einem Blatt:
Sub Filter_Ergebnis_1()
Dim strWks As String
strWks = InputBox("Welches Tabellenblatt soll identifiziert werden:")
If strWks "" Then
On Error Resume Next
Err.Clear
Set wks = Worksheets(strWks)
If Err.Number > 0 Then
Beep
MsgBox "Blatt nicht gefunden!"
Else
wks.Select
Set wks = Nothing
End If
End If
End Sub
Anzeige