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

Zeilen ausblenden nach Klick OptionButto

Forumthread: Zeilen ausblenden nach Klick OptionButto

Zeilen ausblenden nach Klick OptionButto
17.03.2021 09:27:48
Kristina
Guten Morgen!
Ich habe folgendes -für mich nicht lösbares- Problem:
In Tabelle1 gibt es 3 Optionsfelder (aus Formularsteuerelement). Die habe ich nicht umbennant oder sonstiges: Optionsfeld 50,51,52. Ich habe eine Zellverknüpfung auf L34 gemacht, wonach bei anklicken Optionfeld 50 dort ein Wert 1 kommt, bei Optionfeld 51 eine 2 und Optionfeld 52 eine 3.
Nun möchte ich wenn Optionfeld 51 angeklickt wird, dass die Zeilen 66-70 eingeblendet werden, ansonsten sollen diese Zeilen ausgeblendet sein.
Ich habe sämtliche Foren und Codes ausprobiert, es klappt nur wenn ich eine Enter-Eingabe habe, also z.B. wenn ich in Zelle L34 eine 2 eintrage, mit Enter bestätige. Aber wenn in Zelle L34 eine 2 erscheint (weil ich Optionsfeld 51 anklicke) funktioniert gar nichts mehr. Ich weiß nicht weiter...Ich brauche bitte Hilfe!!
Soll ich ein Makro zuweisen? wenn ja, wie soll der Code aussehen? soll ich in VBA einen Code eingeben? wenn ja, welcher, denn da hab ich schon einige Varianten (erfolglos) ausprobiert.
Vielen Dank!

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden nach Klick OptionButto
17.03.2021 09:33:29
ralf_b
denn da hab ich schon einige Varianten (erfolglos) ausprobiert.
Die Gefahr das wir dir Diese jetzt nochmal vorschlagen ist groß.
Ich würde das Worksheet_change event nutzen um die Zelle L34 abzufragen.
gruß
rb

AW: Zeilen ausblenden nach Klick OptionButto
17.03.2021 09:53:40
Kristina
Ich habe Worksheet_Change sowie Worksheet_SelectionChange ausprobiert 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If OptionButton51.Value = True Then
Rows("66:70").Hidden = True
Else
Rows("66:70").Hidden = False
End If
End Sub

Hier noch mal mit Change (Hier beziehe ich mich auf eine andere Zelle-das war zum Üben) 
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(False, False)
Case "K33"
Range("66:70").EntireRow.Hidden = IIf(Range("K33") = "x", True, False)
End Select
End Sub

Beide varianten funktionieren nur wenn ich irgendwie ein Enter verwende, aber nicht wenn die Bezugszelle "von alleine" den Wert ändert.

Anzeige
AW: Zeilen ausblenden nach Klick OptionButto
17.03.2021 10:13:07
ralf_b
im Codemodul Modul1
Sub Optionsfeld1_Klicken()
[A1] = 1
End Sub
Sub Optionsfeld2_Klicken()
[A1] = 2
End Sub

im codemodul Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If [A1] = 1 Then
Rows("66:70").Hidden = True
Else
Rows("66:70").Hidden = False
End If
End If
End Sub


Anzeige
AW: Zeilen ausblenden nach Klick OptionButto
17.03.2021 10:40:10
Kristina
Ich glaub es nicht! Danke es funktioniert! und dann auch noch so einfach! ich wusste es gibt eine Lösung! Danke Danke Danke!!!

gern, danke für die rückmeldung o.w.T
17.03.2021 11:13:07
ralf_b
;

Forumthreads zu verwandten Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Zeilen ausblenden per Button
Hanses

Hallo,
ich wiederhole mein Frage.
Ich möchte in einem geschützen Tabellenblatt, welches per Passwort freigegeben wird, per Button alle Zeilen ausblenden, wenn in Zelle der Spalte "C" kein Eintrag vorliegt.
Ich möchte keinen Autofilter einsetzen, da auch alle Menüs und die Spalten un...
11.09.2008 14:00:00
Thread-ID: 1009116
3 Beiträge
Anzeige
VBA Zeilen ein-/ausblenden
Daniel

Hallo
Ich habe eine Frage, ob der nachfolgende VBA-Code vereinfacht werden kann.
Ausgangslage: in der Spalte B sind die Auswahlkriterien (3 stellige Nummern: 101, 102, 103, etc.). Nun soll via Makro alle Zeilen einer bestimmte Nummer (z.B. 101) angezeigt werden.
Ist es möglich, den...
07.07.2010 10:43:30
Thread-ID: 1165894
8 Beiträge
Zeilen ausblenden mit verschachtelten Bedingungen?
Oberstebrink

Hallo, ich habe ein Problemchen, für das ich Eure Hilfe benötige:
Aufgabe:
Zelle C2 in Tabelle1 bekommt die Werte aus einer Liste. Wenn in C2 ein bestimmter Wert wiedergegeben wird, sollen in Tabelle2 bestimmte zusammenhängende Zeilen ausgeblendet werden.
Beispiel:
Wenn C2="a...
12.08.2010 15:07:37
Thread-ID: 1171958
3 Beiträge
VBA Problem bei Zeilen ausblenden
Lorenz

Hallo Excelspezialisten,
Leider funktioniert der untenstehende Code nur wenn nach Zeile 97 alle Zeilen eingeblendet sind.
Ich habe aber ab Zeile 98 alle Zeilen ausgeblendet.
if Target.Row >= 14 Then
iZ = Target.Row + 1
With Range(Cells(iZ, 1), Cells(97, 1))
.EntireRow...
28.12.2010 14:15:45
Thread-ID: 1193064
8 Beiträge
Tabs ein-ausblenden mit Button
Maris

Hi Leute, wie kann ich diesen Code so anlegen das ich ihn mit einem Button ansteuere und die Tabs sich an und ausblenden wenn ich ihn klicke...
Sub ausblenden_tabs() Sheets("TotalsRaw").Visible = False Sheets("RawData_TrafficClicksRevenue").Visible = False Sheets("RawData_Products").Visible...
25.05.2011 19:25:21
Thread-ID: 1216051
2 Beiträge
Mit VBA Zeilen checken und ausblenden
Reiner

Hallo zusammen!
Ich bin neue hier im Forum und hoffe jemand kann mir weiterhelfen.
Folgendes Problem.
Ich möchte die ersten 100 Zeilen/Zellen einer Spalte per VBA checken.
Steht in der Zelle eine 0 soll die ganze Reihe ausgeblendet werden.
Steht in der Zelle eine 1 soll die...
02.12.2011 10:39:58
Thread-ID: 1240358
10 Beiträge
Zeilen einfügen mit Formeln per CommandButton
Tina

Hallo zusammen
Wiedermal brauche ich eure Hilfe bei einem Problem. Ich möchte per CommandButton automatisch Zeilen oberhalb des Buttons einfügen. Dabei soll die Zeile inkl. Formeln eingefügt werden.
Dazu habe ich bisher folgenden Code: Private Sub CommandButton1_Click() Dim lngInsertRo...
26.04.2012 08:14:44
Thread-ID: 1260980
3 Beiträge
Zellen bei doppelklick dunkle Farbe dann weiß
Pit

Hi ihr lieben Excel-Freunde,
mal wieder brauche ich dieses Geniale Forum als Hilfe.
Ich hätte gerne das Excel in Tabelle 1 A2:G9 und von I2:N9 bei DOPPELKLICK die betreffende Zelle in einer dunklen Farbe (dunkelblau) einfärbt. Wird dann eine bereits eingefärbte Zelle in diesem Bereich E...
03.08.2012 09:57:25
Thread-ID: 1273665
5 Beiträge
Anzeige
UserForm: CommandButtons mit Caption ausblenden
Sebastian

Hallo zusammen,
ich habe mal wieder "so ein Problem"... :-)
Ich möchte in einem alle Commandbuttons mit enem bestimmten Text in der Caption ausblenden.
so ähnlich wie
Dim tb As Object
For Each tb In UserForm_EingabeALLE.Controls
If TypeName(tb) = "CommandButton" Then tb...
13.09.2012 19:52:21
Thread-ID: 1278539
6 Beiträge
Anzeige
VBA Zeilen ausblenden
Pete

Hi,
ich möchte mit VBA alle Zeilen ausblenden, in denen in der Spalte i ein x eingetragen ist. Wie geht das?
14.01.2013 14:13:04
Thread-ID: 1294178
4 Beiträge
Zeilen ein-/ausblenden mit Kennwort
Wolfango

Hallo Experten,
folgender VBA-Wunsch:
In einer Excel-Datei existieren 20 geschützte Arbeitsblätter (KW ist jeweils „Test“).
a.) In den Blätter 3-18 (jeweils unterschiedliche Namen) sollen via VBA-Code jeweils die Zeilen 7 bis 18 ausgeblendet werden (die KW-Eingabe des Blattschutz...
21.01.2013 10:46:34
Thread-ID: 1295185
8 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zeilen Ausblenden in Excel Mit einem Button-Klick

Schritt-für-Schritt-Anleitung

Um Zeilen in Excel mithilfe von OptionButtons auszublenden oder anzuzeigen, folge diesen Schritten:

  1. Erstelle die OptionButtons:

    • Gehe zu den Entwicklertools und füge drei OptionButtons (z.B. OptionButton50, OptionButton51, OptionButton52) zu deiner Tabelle hinzu.

  2. Zellverknüpfung herstellen:

    • Verknüpfe die OptionButtons mit einer Zelle, z.B. L34. Wenn du OptionButton50 auswählst, wird in L34 der Wert 1 angezeigt, bei OptionButton51 der Wert 2 und bei OptionButton52 der Wert 3.

  3. VBA-Code hinzufügen:

    • Öffne den VBA-Editor (Alt + F11) und erstelle einen neuen Code im Codemodul von Tabelle1. Füge folgenden Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "L34" Then
        If Range("L34").Value = 2 Then
            Rows("66:70").Hidden = False ' Zeilen einblenden
        Else
            Rows("66:70").Hidden = True ' Zeilen ausblenden
        End If
    End If
End Sub
  1. Makros für die OptionButtons:
    • Füge im Modul1 die folgenden Subroutinen hinzu:
Sub OptionButton51_Click()
    Range("L34").Value = 2
End Sub

Sub OptionButton50_Click()
    Range("L34").Value = 1
End Sub

Sub OptionButton52_Click()
    Range("L34").Value = 3
End Sub
  1. Teste die Funktion:
    • Klicke auf die OptionButtons und beobachte, wie sich die Zeilen 66 bis 70 entsprechend ein- oder ausblenden.

Häufige Fehler und Lösungen

  • Problem: Die Zeilen werden nicht ausgeblendet.

    • Lösung: Überprüfe, ob die Zellverknüpfung korrekt eingerichtet ist und ob der VBA-Code im richtigen Modul eingefügt wurde.

  • Problem: Der Code reagiert nur nach Drücken der Enter-Taste.

    • Lösung: Stelle sicher, dass der Code im Worksheet_Change Event korrekt auf die Zelle verweist, die sich ändert.

Alternative Methoden

Eine alternative Methode, um Zeilen auszublenden, ist die Verwendung von Schaltflächen anstelle von OptionButtons. Du kannst eine Schaltfläche (Button) hinzufügen und den folgenden VBA-Code verwenden:

Private Sub CommandButton1_Click()
    Rows("66:70").Hidden = Not Rows("66:70").Hidden ' Umschalten der Sichtbarkeit
End Sub

Praktische Beispiele

  1. Beispiel für das Ausblenden von Zeilen:

    • Verwende die oben genannten Codes, um Zeilen 66 bis 70 auszublenden, wenn ein bestimmtes OptionButton ausgewählt ist.

  2. Zellen aufklappen bei Klick:

    • Du kannst auch Zellen aufklappen, indem du den Code änderst, um nur bestimmte Zellen anzuzeigen oder auszublenden, anstatt ganze Zeilen.

Tipps für Profis

  • Verwende Namensbereiche: Wenn du mit vielen Zeilen arbeitest, kannst du Namensbereiche für eine bessere Lesbarkeit und Wartbarkeit deines Codes verwenden.

  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen in deinen VBA-Code ein, um unerwartete Probleme zu vermeiden.

FAQ: Häufige Fragen

1. Frage
Wie kann ich mehrere Zeilen gleichzeitig ausblenden?
Du kannst mehrere Zeilen in einer einzigen Zeile angeben: Rows("66:70").Hidden = True.

2. Frage
Was tun, wenn die OptionButtons nicht funktionieren?
Überprüfe, ob die OptionButtons korrekt mit der Zelle verknüpft sind und ob der VBA-Code im richtigen Modul eingefügt wurde.

Beliebteste Forumthreads (12 Monate)

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