Mehrere Arbeitsblätter mit VBA und Application.InputBox markiert und ausgewählt?

Um mehrere Arbeitsblätter in Excel mithilfe von VBA und `Application.InputBox` auszuwählen, kannst du den folgenden Code verwenden. Dieser Code ermöglicht es dir, die Namen der Arbeitsblätter einzugeben, die du auswählen möchtest:

```vba
Sub SelectMultipleSheets()
Dim ws As Worksheet
Dim sheetNames As Variant
Dim i As Integer

' Eingabeaufforderung für die Namen der Arbeitsblätter
sheetNames = Application.InputBox("Gib die Namen der Arbeitsblätter ein, getrennt durch ein Komma:", "Arbeitsblätter auswählen", Type:=2)

' Überprüfen, ob die Eingabe abgebrochen wurde
If sheetNames = False Then Exit Sub

' Trennen der eingegebenen Namen in ein Array
sheetNames = Split(sheetNames, ",")

' Alle Arbeitsblätter des Arbeitsbuchs durchlaufen
For Each ws In ThisWorkbook.Worksheets
' Arbeitsblatt auswählen, wenn es in der Liste der eingegebenen Namen enthalten ist
For i = LBound(sheetNames) To UBound(sheetNames)
If Trim(ws.Name) = Trim(sheetNames(i)) Then
ws.Select Replace:=False
End If
Next i
Next ws
End Sub
```

Dieser Code funktioniert wie folgt:

1. `Application.InputBox` wird verwendet, um eine Eingabeaufforderung anzuzeigen, in der du die Namen der Arbeitsblätter eingeben kannst, getrennt durch ein Komma.
2. Die eingegebenen Namen werden in ein Array aufgeteilt.
3. Der Code durchläuft alle Arbeitsblätter im aktuellen Arbeitsbuch und wählt diejenigen aus, deren Namen in der Liste der eingegebenen Namen enthalten sind.

Stelle sicher, dass die Namen der Arbeitsblätter genau so eingegeben werden, wie sie im Arbeitsbuch erscheinen, einschließlich aller Leerzeichen.