Wie wählt man mehrere Blätter in VBA mit Application.InputBox aus?

Antwort vom

Um mehrere Blätter in VBA mit `Application.Input` auszuwählen, kannst du den Benutzer dazu auffordern, die Namen der Blätter einzugeben, und diese dann in einem Array speichern. Hier ist ein Beispiel, wie das gemacht werden kann: ```vba Sub SelectMultipleSheets() Dim sheetNames As Variant Dim sheetName As Variant Dim selectedSheets As Collection Dim ws As Worksheet ' Prompt the user to enter sheet names separated by commas sheetNames = Application.InputBox("Enter the names of the sheets separated by commas:", "Select Sheets", Type:=2) ' Split the input string into an array sheetNames = Split(sheetNames, ",") ' Initialize the collection to store selected sheets Set selectedSheets = New Collection ' Loop through the array and add the sheets to the collection On Error Resume Next For Each sheetName In sheetNames Set ws = ThisWorkbook.Sheets(Trim(sheetName)) If Not ws Is Nothing Then selectedSheets.Add ws End If Set ws = Nothing Next sheetName On Error GoTo 0 ' Check if any sheets were selected If selectedSheets.Count = 0 Then MsgBox "No valid sheets were selected.", vbExclamation Exit Sub End If ' Do something with the selected sheets For Each ws In selectedSheets ' Example: Print the sheet names in the Immediate Window Debug.Print ws.Name Next ws End Sub ``` In diesem Beispiel wird der Benutzer aufgefordert, die Namen der Blätter durch Kommas getrennt einzugeben. Diese Namen werden dann in ein Array aufgeteilt und die entsprechenden Blätter werden in einer `Collection` gespeichert. Schließlich kannst du mit den ausgewählten Blättern weiterarbeiten.

Verwandte Fragen

Was bedeutet ErrNum 75 in Access VBA?

Der Fehlercode ErrNum = 75 in Microsoft Access VBA steht für "Pfad/Datei-Zugrifffehler" (englisch: "Path/File access error"). Dieser Fehler tritt auf, wenn ein Zugriff auf ein...

Was bedeutet 'On Error GoTo 0'?

Die Anweisung On Error GoTo 0 stammt aus der Programmiersprache Visual Basic (z. B. VBA, VB6). Sie wird verwendet, um die aktuelle Fehlerbehandlung zu deaktivieren. Das bedeutet: Nach On Error GoTo 0...

Ist Shapes("Rechteck 1").Visible = True korrekt in Excel-VBA?

Der Ausdruck Shapes("Rechteck 1").Visible = True ist in Excel-VBA nicht korrekt, da das Visible-Eigenschaftsmerkmal für Shapes in Excel-VBA nicht existiert. In Excel-VBA steuerst du d...

Ist folgender Excel-VBA-Code korrekt: HeightPt = Rows("4:" & Cells(49,19).Row).Height?

Der gezeigte Code ist in Excel-VBA nicht korrekt und führt zu einem Fehler. Das Problem liegt in der Syntax innerhalb der Rows-Funktion. Hier die Analyse: Dein Code: vba HeightPt = Rows("4:...

Wie kann man in Excel-VBA einen RGB-Code aus einer Zelle lesen?

Um in Excel-VBA einen RGB-Code aus einer Zelle zu lesen und diesen z.B. für die Füllfarbe eines Shapes zu verwenden, kannst du wie folgt vorgehen: Angenommen, in Zelle A1 steht der RGB-Code...

Was bewirkt der VBA-Code mit shp.Line.Visible = msoFalse und shp.Fill.ForeColor.RGB = 0?

Der gezeigte VBA-Code (Visual Basic for Applications) wird typischerweise in Microsoft Office-Anwendungen wie PowerPoint oder Excel verwendet, um die Formatierung einer Form (Shape) zu steuern. Hier i...

Was bewirkt der VBA-Code mit shp.Line.Visible = msoFalse, shp.Fill.Visible = msoTrue und shp.Fill.ForeColor.RGB = 0?

Der gezeigte VBA-Code (Visual Basic for Applications) wird typischerweise in Microsoft Office-Anwendungen wie PowerPoint oder Excel verwendet, um die Formatierung einer Form (Shape) zu steuern. Hier i...

Wie erstelle ich in Access VBA eine SQL-Abfrage?

Um in Microsoft Access per VBA eine Abfrage (Query) mit SQL zu erstellen, kannst du das DAO-Objektmodell verwenden. Hier ein Beispiel, wie du per VBA eine neue Abfrage mit einer SQL-Anweisung erstells...

Was ist falsch an folgendem Access VBA SQL-Statement: strSQL = "INSERT INTO tbl_Bestände_HZV (Datum, RLEx) IN " & strPfadExtern & "." & ZielTabelle & ...?

In deinem SQL-Statement gibt es mehrere Probleme: 1. Syntaxfehler bei IN: Das IN-Schlüsselwort wird in Access-SQL für das Einfügen in eine externe Tabelle verwendet, aber die Syntax...

Wie kann man per VBA-Makro beim Öffnen einer Datei das Kontextmenü der rechten Maustaste deaktivieren?

Um beim Öffnen einer Excel-Datei per VBA-Makro die Kontextmenüs der rechten Maustaste zu deaktivieren, kannst du folgenden Code im Modul "DieseArbeitsmappe" (engl. "ThisWorkbo...