Wie kann ich mehrere Arbeitsblätter gleichzeitig auswählen und markieren mit VBA Application.InputBox?

Um mehrere Arbeitsblätter gleichzeitig auszuwählen und zu markieren, kannst du VBA in Excel verwenden. Hier ist ein Beispiel wie du dies mit `Application.InputBox` erreichen kannst:

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

' Prompt the user to enter sheet names separated by commas
sheetNames = Application.InputBox("Enter the names of the sheets to select, separated by commas:", "Select Sheets", Type:=2)

' Split the input string into an array of sheet names
sheetNames = Split(sheetNames, ",")

' Loop through the array and select each sheet
For i = LBound(sheetNames) To UBound(sheetNames)
On Error Resume Next
Set ws = ThisWorkbook.Sheets(Trim(sheetNames(i)))
If Not ws Is Nothing Then
ws.Select False ' False to add to the selection
End If
On Error GoTo 0
Next i
End Sub
```

In diesem Beispiel wird der Benutzer aufgefordert, die Namen der Arbeitsblätter einzugeben, die er auswählen möchte, getrennt durch Kommas. Die `Application.InputBox` wird verwendet, um die Eingabe zu erfassen. Die Namen der Arbeitsblätter werden dann in ein Array aufgeteilt und nacheinander ausgewählt.

Stelle sicher, dass die Arbeitsblattnamen korrekt eingegeben werden, da die Auswahl fehlschlägt, wenn ein Arbeitsblattname nicht existiert.