Wie kann ich in einem Makro alle Tabellenblätter ausschließen, deren Name mit "P70" beginnt?

Question

Wie kann ich in einem Makro alle Tabellenblätter ausschließen, deren Name mit "P70" beginnt?

Antwort

Verwandte Fragen

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

Was ist im Excel-Makro bei einer For-Schleife besser: Dim as Integer oder Dim as Long?

Wie kann ich mit einem VBA-Makro die Zeilen 8 bis 10 ausblenden?

Wie kann man aus makro1() den Makro makro2() mit dem Wert 5 aufrufen?

Wie ruft makro1() in VBA makro2() mit dem Wert 5 auf?

Wie lautet die Syntax, um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren?

Mit welcher Funktion kann ich in VBA einen im Arbeitsblatt ermittelten Wert anzeigen?

Accepted Answer

Um in einem VBA-Makro bestimmte Tabellenblätter – in deinem Fall alle, deren Name mit "P70" beginnt – auszuschließen, kannst du eine If-Bedingung mit der Funktion `Left` verwenden Hier ein Beispiel wie du das in einer Schleife umsetzt: ```vba Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If Left(ws.Name, 3) <> "P70" Then ' Hier kommt dein Code für alle anderen Blätter End If Next ws ``` **Erklärung:** - `Left(ws.Name, 3)` gibt die ersten drei Zeichen des Blattnamens zurück. - Mit `<> "P70"` schließt du alle Blätter aus, deren Name mit "P70" beginnt. Füge diesen If-Block in dein Makro ein, um die gewünschten Blätter auszuschließen.

Accepted Answer

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... [mehr]

Accepted Answer

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. "ThisWorkbook") verwenden: ```vba Private Sub Workbook_Open() Application.CommandBars("Cell").Enabled = False Application.CommandBars("Row").Enabled = False Application.CommandBars("Column").Enabled = False End Sub ``` **Hinweise:** - Der Code gehört in das Objekt "DieseArbeitsmappe" im VBA-Editor (ALT+F11 → Doppelklick auf "DieseArbeitsmappe"). - Damit werden die Kontextmenüs für Zellen, Zeilen und Spalten deaktiviert. - Um die Kontextmenüs wieder zu aktivieren, kannst du folgenden Code verwenden: ```vba Application.CommandBars("Cell").Enabled = True Application.CommandBars("Row").Enabled = True Application.CommandBars("Column").Enabled = True ``` **Wichtig:** Das Deaktivieren von Kontextmenüs wirkt sich auf die gesamte Excel-Anwendung aus, nicht nur auf die aktuelle Datei. Es empfiehlt sich, beim Schließen der Datei die Menüs wieder zu aktivieren, z.B. im `Workbook_BeforeClose`-Ereignis. Weitere Infos findest du z.B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/office.commandbar.enabled).

Accepted Answer

In Excel-Makros (VBA) ist es besser, Schleifenvariablen mit `Dim ... As Long` zu deklarieren statt mit `Dim ... As Integer`. Der Grund: In VBA werden alle Integer-Werte intern trotzdem als Long behand... [mehr]

Accepted Answer

In Excel-Makros (VBA) ist es besser, Schleifenvariablen mit `Dim ... As Long` zu deklarieren statt mit `Dim ... As Integer`. Der Grund: In VBA werden alle Integer-Werte intern trotzdem als Long behandelt, da VBA auf 32-Bit-Architektur basiert. Die Verwendung von `Long` vermeidet unnötige Typumwandlungen und ist daher effizienter und sicherer, besonders bei größeren Schleifenbereichen (über 32.767 hinaus). Zusammengefasst: **`Dim i As Long` ist die empfohlene Wahl für For-Schleifen in VBA.** Weitere Infos: [Microsoft Docs: Integer-Datentyp (VBA)](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/integer-data-type) [Microsoft Docs: Long-Datentyp (VBA)](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/long-data-type)

Accepted Answer

Um in Excel mit einem VBA-Makro die Zeilen 8 bis 10 auszublenden, kannst du folgenden Code verwenden: ```vba Rows("8:10").Hidden = True ``` So gehst du vor: 1. Drücke `ALT + F11`, um... [mehr]

Accepted Answer

Um in Excel mit einem VBA-Makro die Zeilen 8 bis 10 auszublenden, kannst du folgenden Code verwenden: ```vba Rows("8:10").Hidden = True ``` So gehst du vor: 1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Wähle im Projektfenster das gewünschte Arbeitsblatt oder „DieseArbeitsmappe“ aus. 3. Füge den obigen Code in ein neues oder bestehendes Makro ein. 4. Schließe den Editor und führe das Makro aus. Damit werden die Zeilen 8 bis 10 im aktiven Arbeitsblatt ausgeblendet.

Accepted Answer

Um aus der Prozedur `makro1()` die Prozedur `makro2()` aufzurufen und dabei den Wert 5 zu übergeben, muss `makro2()` einen Parameter akzeptieren. Hier ein Beispiel in VBA (Visual Basic for Applic... [mehr]

Accepted Answer

Um aus der Prozedur `makro1()` die Prozedur `makro2()` aufzurufen und dabei den Wert 5 zu übergeben, muss `makro2()` einen Parameter akzeptieren. Hier ein Beispiel in VBA (Visual Basic for Applications), wie das aussehen kann: ```vba Sub makro1() Call makro2(5) ' oder einfach: makro2 5 End Sub Sub makro2(ByVal wert As Integer) MsgBox "Der übergebene Wert ist: " & wert End Sub ``` **Erklärung:** - `makro1()` ruft `makro2()` auf und übergibt den Wert 5 als Argument. - `makro2()` nimmt einen Parameter (`wert`) entgegen und kann damit weiterarbeiten. Das funktioniert genauso in anderen Programmiersprachen, solange die Syntax angepasst wird.

Accepted Answer

So sieht das in VBA aus: ```vba Sub Makro1() Call Makro2(5) End Sub Sub Makro2(ByVal Wert As Integer) MsgBox "Der übergebene Wert ist: " & Wert End Sub ``` **Erkläru... [mehr]

Accepted Answer

So sieht das in VBA aus: ```vba Sub Makro1() Call Makro2(5) End Sub Sub Makro2(ByVal Wert As Integer) MsgBox "Der übergebene Wert ist: " & Wert End Sub ``` **Erklärung:** - `Makro1` ruft `Makro2` auf und übergibt den Wert 5. - `Makro2` nimmt einen Parameter (`Wert`) entgegen und kann damit weiterarbeiten.

Accepted Answer

Um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren, verwendest du folgende Syntax: ```vba Worksheets("Tabellenblattname").Activate ``` Ersetze dabei `"Tabellenblattname"`... [mehr]

Accepted Answer

Um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren, verwendest du folgende Syntax: ```vba Worksheets("Tabellenblattname").Activate ``` Ersetze dabei `"Tabellenblattname"` durch den tatsächlichen Namen des gewünschten Blattes. Beispiel: ```vba Worksheets("Daten").Activate ``` Alternativ kannst du auch die Indexnummer verwenden, z.B.: ```vba Worksheets(2).Activate ``` Das aktiviert das zweite Blatt in der Arbeitsmappe.

Accepted Answer

In VBA kannst du einen Wert, den dein Makro zuvor ermittelt hat, mit der Funktion `MsgBox` anzeigen. Beispiel: ```vba Dim ermittelterWert As Double ermittelterWert = Worksheets("Tabelle1").... [mehr]

Accepted Answer

In VBA kannst du einen Wert, den dein Makro zuvor ermittelt hat, mit der Funktion `MsgBox` anzeigen. Beispiel: ```vba Dim ermittelterWert As Double ermittelterWert = Worksheets("Tabelle1").Range("A1").Value MsgBox "Der ermittelte Wert ist: " & ermittelterWert ``` Mit `MsgBox` wird ein Dialogfenster angezeigt, das den Wert ausgibt. Alternativ kannst du den Wert auch direkt in eine Zelle schreiben, z.B.: ```vba Worksheets("Tabelle1").Range("B1").Value = ermittelterWert ``` Die Wahl hängt davon ab, ob du den Wert nur anzeigen oder auch im Arbeitsblatt speichern möchtest.