Wie kann ich mehrere Blätter mittels VBA Inputbox auswählen?

Um mehrere Blätter in Excel mithilfe einer VBA InputBox auszuwählen, kannst du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es dir, die Namen der Blätter einzugeben, die du auswählen möchtest, und markiert dann diese Blätter.

```vba
Sub SelectMultipleSheets()
Dim sheetNames As String
Dim sheetArray() As String
Dim i As Integer

' InputBox to get the sheet names
sheetNames = InputBox("Gib die Namen der Blätter ein, die du auswählen möchtest, getrennt durch Kommas:", "Blätter auswählen")

' Split the input string into an array
sheetArray = Split(sheetNames, ",")

' Loop through the array and select each sheet
For i = LBound(sheetArray) To UBound(sheetArray)
sheetArray(i) = Trim(sheetArray(i)) ' Remove any leading/trailing spaces
On Error Resume Next
Sheets(sheetArray(i)).Select Replace:=False
On Error GoTo 0
Next i
End Sub
```

Dieser Code funktioniert wie folgt:

1. Eine InputBox wird angezeigt, in der du die Namen der Blätter eingeben kannst, die du auswählen möchtest, getrennt durch Kommas.
2. Die eingegebenen Namen werden in ein Array aufgeteilt.
3. Der Code durchläuft das Array und wählt jedes Blatt aus, das im Array enthalten ist.

Um diesen Code zu verwenden, öffne den VBA-Editor (Alt + F11), füge ein neues Modul hinzu und kopiere den obigen Code in das Modul. Führe dann das Makro `SelectMultipleSheets` aus.