Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Mehrer Zeilen Ausblenden VBA

Mehrer Zeilen Ausblenden VBA
22.01.2018 15:40:26
simon
Hallo zusammen
Ich will mit diese Code mehrer Spalten auf einmal schliessen.
Eine bring ich zusatnd jedoch am Code für mehrer scheitere ich kläglich:(
ev kann mir jemand weiterhelfen

Private Sub Druckbereich_Click()
With Worksheets("Sub.Verlauf")
If Druckbereich Then
.Range("G:H""K:M""O""R:S""W:AC""AE""AI:AJ""AM:AN").EntireColumn.Hidden = True
Else
.Range("G:H""K:M""O""R:S""W:AC""AE""AI:AJ""AM:AN").EntireColumn.Hidden = False
End If
End With
End Sub

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrer Zeilen Ausblenden VBA
22.01.2018 15:46:34
simon
Kann es nun lösen, wenn ich für jeden abschnitt ein neuen Range erstelle.
aber ev geht dies noch einfacher?
lg simon
AW: Mehrer Zeilen Ausblenden VBA
22.01.2018 15:47:20
ChrisL
Hi Simon
.Range("G:H,K:M,O:O,R:S,W:AC,AE:AE,AI:AJ,AM:AN").EntireColumn.Hidden = True
cu
Chris
AW: Mehrer Zeilen Ausblenden VBA
22.01.2018 15:51:45
EtoPHG
Hallo,
Die Ranges so benennen:
.Range("G:H,K:M,O:O,R:S,W:AC,AE:AE,AI:AJ,AM:AN")
Gruess Hansueli
Anzeige
AW: Mehrer Zeilen Ausblenden VBA
22.01.2018 16:25:41
Daniel
Hi
wie du mehrere, nicht zusammenhängende Spalten ansprichst, kannst du doch leicht mit Hilfe des Recorders rausfinden:
- Recorder starten
- Mehrere Spalten mit gedrückter STRG-Taste selekieren
- Recorder stoppen
- aufgezeichneten Code anschauen.
das Ergebnis wurde dir hier ja schon gezeigt.
hier noch ein Tip:
du kannst den Code vereinfachen, indem du das TRUE/FALSE des Steuerelements "Druckbereich" nicht im IF, sondern direkt in der Anweisung verwendest:
Private Sub Druckbereich_Click()
Worksheets("Sub.Verlauf").Range("G:H,K:M,O,R:S,W:AC,AE,AI:AJ,AM:AN").EntireColumn.Hidden =  _
Druckbereich.Value
End Sub
gruß Daniel
Anzeige
AW: Mehrer Zeilen Ausblenden VBA
23.01.2018 08:04:48
simon
Guten Morgen zusammen
ahh das mit STRG kannte ich nicht, ist ne super funktion!
besten dank für den Input! :)
lg simon
AW: Mehrer Zeilen Ausblenden VBA
26.01.2018 15:19:04
simon
hi Daniel
Funktioniert nun super besten Dank :)
mfg simon
AW: Mehrer Zeilen Ausblenden VBA
26.01.2018 17:17:55
Hajo_Zi
warum offen?

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Mehrere Zeilen und Spalten in Excel mit VBA ausblenden


Schritt-für-Schritt-Anleitung

Um mehrere Zeilen oder Spalten in Excel mit VBA auszublenden, kannst du den folgenden Code verwenden. Dieser Code ermöglicht es dir, mehrere Spalten auf einmal auszublenden.

  1. Öffne Excel und gehe zu dem Arbeitsblatt, in dem du arbeiten möchtest.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf "VBAProject (dein Arbeitsblattname)" klickst und "Einfügen" > "Modul" wählst.
  4. Kopiere und füge den folgenden Code in das Modul ein:
Private Sub Druckbereich_Click()
    With Worksheets("Sub.Verlauf")
        .Range("G:H,K:M,O:R,S,W:AC,AE:AI,AJ,AM:AN").EntireColumn.Hidden = Druckbereich.Value
    End With
End Sub
  1. Schließe den VBA-Editor und gehe zurück zu Excel.
  2. Füge einen Button hinzu, um den Makro auszuführen, und verlinke den Button mit der Druckbereich_Click-Subroutine.

Jetzt kannst du mehrere Spalten gleichzeitig ausblenden. Mit der Änderung des Druckbereich-Wertes kannst du die Sichtbarkeit der Spalten steuern.


Häufige Fehler und Lösungen

  • Problem: Der Code funktioniert nicht wie erwartet.

    • Lösung: Überprüfe, ob der Arbeitsblattname "Sub.Verlauf" korrekt ist. Stelle sicher, dass alle Referenzen im Code stimmen.
  • Problem: Excel zeigt eine Fehlermeldung an, wenn du den Makro ausführst.

    • Lösung: Stelle sicher, dass du den Code korrekt eingefügt hast und dass keine Syntaxfehler vorhanden sind. Der Bereich muss korrekt formatiert sein (z.B. "G:H,K:M").

Alternative Methoden

Eine einfache Methode, um mehrere Spalten auszublenden, ist die Verwendung des Excel-Makro-Recorders:

  1. Starte den Recorder (Entwicklertools > Makro aufzeichnen).
  2. Wähle die gewünschten Spalten aus, während du die STRG-Taste gedrückt hältst.
  3. Stoppe den Recorder und schaue dir den generierten Code an.

Diese Methode ist besonders nützlich, um den richtigen VBA-Code für verschiedene Aktionen zu lernen.


Praktische Beispiele

Wenn du weitere Zeilen oder Spalten ausblenden möchtest, kannst du den Bereich im Code erweitern. Hier sind einige Beispiele:

  • Um die Spalten A bis C und die Zeilen 1 bis 10 auszublenden, kannst du diesen Code verwenden:
Private Sub Druckbereich_Click()
    With Worksheets("Sub.Verlauf")
        .Range("A:C").EntireColumn.Hidden = True
        .Range("1:10").EntireRow.Hidden = True
    End With
End Sub
  • Um nur bestimmte Spalten auszublenden, kannst du die Ranges anpassen, wie im vorherigen Abschnitt gezeigt.

Tipps für Profis

  • Nutze das Application.ScreenUpdating = False und Application.ScreenUpdating = True im Code, um das Flackern des Bildschirms zu vermeiden, wenn du viele Zeilen oder Spalten ausblenden möchtest.
Private Sub Druckbereich_Click()
    Application.ScreenUpdating = False
    With Worksheets("Sub.Verlauf")
        .Range("G:H,K:M,O:R,S,W:AC,AE:AI,AJ,AM:AN").EntireColumn.Hidden = Druckbereich.Value
    End With
    Application.ScreenUpdating = True
End Sub
  • Experimentiere mit dem AutoFilter-Feature von Excel, um Datensätze schnell zu verbergen, anstatt sie manuell auszublenden.

FAQ: Häufige Fragen

1. Frage: Kann ich auch mehrere Zeilen auf einmal ausblenden?
Antwort: Ja, du kannst Zeilen genauso wie Spalten ausblenden. Ändere einfach .EntireColumn in .EntireRow im VBA-Code.

2. Frage: Funktioniert dieser Code in allen Excel-Versionen?
Antwort: Ja, der Code sollte in den meisten modernen Excel-Versionen funktionieren, solange VBA unterstützt wird. Achte darauf, dass du die Entwicklertools aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige