Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Modul Blatt einblenden/ausblenden

Forumthread: VBA Modul Blatt einblenden/ausblenden

VBA Modul Blatt einblenden/ausblenden
09.08.2020 17:50:38
Steffen
Hallo Excel-Gemeinde,
habe ein großes Problem, mein bis vor kurzem funktionierendes Makro zeigt neuerdings eine Fehlermeldung an. Laufzeitfehler 1004 in Zeile " "
Es geht weder das Ein-noch Ausblenden im Makro der Tabellenblätter "Daten1" noch "Daten2" für die ExcelTabelle jedes mal
kommt jetzt der Fehler Laufzeitfehler,habe doch an dem Makro nicht verändert...
Vielleicht kann mir einer der Excel-VBA Profis weiterhelfen ,wo der Fehler ist...würde mich sehr freuen.
Gruß
steffen
hier mal der Code vom Modul5
*****************************************
Option Explicit
Sub Makro5()
' Makro5 Makro
'----> ausblenden  so:
'If Sheets("daten1").Visible = xlSheetVisible Then
'Sheets("daten1").Visible = xlSheetVeryHidden
'End If
If Sheets("daten2").Visible = xlSheetVisible Then
Sheets("daten2").Visible = xlSheetVeryHidden
End If
'--->   und einblenden so:
'Sheets("daten1").Visible = xlSheetVisible
'  Sheets("daten2").Visible = xlSheetVisible
End Sub
********************************************************
Hinweis:
Datei unter
https://www.herber.de/bbs/user/139556.xlsb
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Deine Datei ist korrupt/korrumpiert (owT)
09.08.2020 18:36:05
EtoPHG

AW: Deine Datei ist korrupt/korrumpiert (owT)
09.08.2020 20:59:27
onur
Kein Wunder, wenn die Arbeitsmappe kennewortgeschützt ist !
AW: Deine Datei ist korrupt/korrumpiert (owT)
10.08.2020 22:45:04
Steffen
Hi Excel-Forum
Hi onur,
du hast Recht gehabt mit dem Arbeitsmappenschutz.
Die Datei habe ich mir erstellt um mir meine Auswertearbeit bisschen zu erleichtern.
Tatsächlich hat ein "netter"Kollege den Arbeitsmappenschutz rein gehauen, hmm habe ich übersehen und zu blöd das ich nicht selbst drauf gekommen bin.War bisschen fehl geleitet, da der Button "Arbeitmappe schützen" und nicht "Arbeitsmappe Schutz aufheben" stand, das war meine Annahme,aber jetzt ist alles gut,hat mir jede Menge weiterer Arbeit erspart.
Allen und besonders
Onur, nochmals vielen herzlichen Dank,hast mir mit dem Tip sehr geholfen :-) Gruß Steffen
Anzeige
Gerne !
10.08.2020 22:46:37
onur
AW: Deine Datei ist korrupt/korrumpiert (owT)
09.08.2020 21:00:21
onur
Sorry . falscher Zweig!
AW: VBA Modul Blatt einblenden/ausblenden
09.08.2020 21:00:39
onur
Kein Wunder, wenn die Arbeitsmappe kennewortgeschützt ist !
Anzeige
;
Anzeige

Infobox / Tutorial

VBA Modul zum Ein- und Ausblenden von Tabellenblättern in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei, in der Du das VBA-Makro verwenden möchtest.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Füge ein neues Modul hinzu:
    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)".
    • Wähle "Einfügen" > "Modul".

  4. Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit

Sub MakroEinblenden()
   ' Tabellenblätter einblenden
   Sheets("Daten1").Visible = xlSheetVisible
   Sheets("Daten2").Visible = xlSheetVisible
End Sub

Sub MakroAusblenden()
   ' Tabellenblätter ausblenden
   If Sheets("Daten1").Visible = xlSheetVisible Then
       Sheets("Daten1").Visible = xlSheetVeryHidden
   End If
   If Sheets("Daten2").Visible = xlSheetVisible Then
       Sheets("Daten2").Visible = xlSheetVeryHidden
   End If
End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.
  6. Führe das Makro aus:
    • Gehe zu Entwicklertools > Makros.
    • Wähle das gewünschte Makro (Einblenden oder Ausblenden) und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Laufzeitfehler 1004: Dieser Fehler tritt häufig auf, wenn das Tabellenblatt, das Du einblenden oder ausblenden möchtest, nicht existiert. Überprüfe die Schreibweise des Blattnamens im Code.
  • Arbeitsmappe ist schreibgeschützt: Wenn der Arbeitsmappenschutz aktiv ist, kann das Makro eventuell nicht ausgeführt werden. Hebe den Schutz der Arbeitsmappe auf, bevor Du das Makro ausführst.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch die Excel-Funktionen nutzen. Du kannst die Sichtbarkeit von Tabellenblättern manuell ändern, indem Du mit der rechten Maustaste auf den Blattnamen klickst und „Ausblenden“ oder „Einblenden“ wählst. Diese Methode ist jedoch nicht so effizient wie ein Excel Makro, besonders bei vielen Blättern.

Praktische Beispiele

  1. Makro zum Ausblenden: Wenn Du die Sichtbarkeit von „Daten1“ und „Daten2“ in einer Excel-Tabelle steuern möchtest, kannst Du das oben angegebene VBA-Makro verwenden.
  2. Makro zum Einblenden: Verwende das MakroEinblenden, um die Blätter sichtbar zu machen, wenn Du die Daten wieder benötigst.

Tipps für Profis

  • Verwende xlSheetVeryHidden: Wenn Du ein Tabellenblatt so ausblendest, dass es nicht mehr über das Kontextmenü sichtbar ist, solltest Du xlSheetVeryHidden verwenden. Dies erhöht die Sicherheit, wenn Du sensible Daten hast.
  • Debugging: Nutze die Debug.Print-Anweisung, um den Status von Blättern während der Ausführung des Makros zu überprüfen.
  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in Dein Makro, um unerwartete Probleme abzufangen.

FAQ: Häufige Fragen

1. Wie kann ich ein VBA-Makro erstellen?
Um ein VBA-Makro zu erstellen, öffne den VBA-Editor mit ALT + F11, füge ein Modul hinzu, und schreibe Deinen Code.

2. Was ist der Unterschied zwischen xlSheetVisible und xlSheetVeryHidden?
xlSheetVisible zeigt ein Blatt an, während xlSheetVeryHidden ein Blatt so ausblendet, dass es nicht über das Menü sichtbar gemacht werden kann.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige