Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit Umschaltbutton ein-/ausblenden

Zellen mit Umschaltbutton ein-/ausblenden
25.04.2019 09:56:38
Michi
Guten Morgen nochmal,
kleine Planänderung.
Ich habe in einem Tabellenabschnitt in gewissen Abständen 50 Zeilen
(13-62, 69-118, 125-174, 181-230, 237-286, 2593-342, 349-398, 405-454)
Nun möchte ich gerne per Knopfdruck leere Zeilen aus den benannten Bereichen ausblenden, wenn Spalte A leer ist.
Bestenfalls mit einem Umschaltbutton zum ein- und ausblenden.
Könntet Ihr mir bitte nochmal helfen?
VG

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit Umschaltbutton ein-/ausblenden
25.04.2019 10:19:39
Nepumuk
Hallo Michi,
teste mal:
Option Explicit
Private Sub ToggleButton1_Click()
Dim avntStart As Variant, avntStop As Variant
Dim ialngIndex As Long
Dim objCell As Range
With ToggleButton1
If .Value Then
avntStart = Array(13, 69, 125, 181, 237, 293, 349, 405)
avntStop = Array(62, 118, 174, 230, 286, 342, 398, 454)
Application.ScreenUpdating = False
For ialngIndex = LBound(avntStart) To UBound(avntStart)
For Each objCell In Range(Cells(avntStart(ialngIndex), 1), _
Cells(avntStop(ialngIndex), 1))
Rows(objCell.Row).Hidden = IsEmpty(objCell.Value)
Next
Next
Application.ScreenUpdating = True
.Caption = "Einblenden"
Else
Rows.Hidden = False
.Caption = "Ausblenden"
End If
End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Zellen mit Umschaltbutton ein-/ausblenden
25.04.2019 10:30:32
Michi
Hallo Nepumuk,
vielen Dank für den Tipp. Funktioniert grundsätzlich auch. Allerdings habe ich mal gestoppt, wie lange er brauch zu durchrechnen. (etwa 2,5 Minuten) Gibt's noch eine schnellere Variante, wo gesagt wird
Range 13-62
Range 69-118
……
VG
AW: Zellen mit Umschaltbutton ein-/ausblenden
25.04.2019 11:06:27
Werner
Hallo Michi,
am Code von Nepumuk liegt das garantiert nicht, da das über Arrays läuft. Da sprechen wir von Microsekunden Abarbeitungszeit.
Das wird wohl an deiner Datei liegen.
Hast du da Unmengen von Array-Formeln oder sonst noch irgendwelche Eventmakros drin?
Versuch mal am Anfang des Makros die automatische Formelbereichnung und die Events auszuschalten 
Application.ScreenUpdating = False
Application.EnbableEvents = False
Application.Calculation = xlCalculationManual

Am Ende das Einschalten nicht wieder vergessen: 
Application.EnbableEvents = True
Application.Calculation = xlCalculationAutomatic
Gruß Werner
Anzeige
AW: Zellen mit Umschaltbutton ein-/ausblenden
25.04.2019 11:11:59
Michi
Habe das mal so eingefügt. Sollte das falsch sein korrigier mich bitte. Bin etwas blind auf dem Gebiet :) Aktuell gibt er jetzt eine Fehlermeldung.
'Toggle Button 1 blendet leere Zeilen der Räume aus 
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
Application.EnbableEvents = False
Application.Calculation = xlCalculationManual
Dim avntStart As Variant, avntStop As Variant
Dim ialngIndex As Long
Dim objCell As Range
With ToggleButton1
If .Value Then
avntStart = Array(13, 69, 125, 181, 237, 293, 349, 405)
avntStop = Array(62, 118, 174, 230, 286, 342, 398, 454)
Application.ScreenUpdating = False
For ialngIndex = LBound(avntStart) To UBound(avntStart)
For Each objCell In Range(Cells(avntStart(ialngIndex), 1), _
Cells(avntStop(ialngIndex), 1))
Rows(objCell.Row).Hidden = IsEmpty(objCell.Value)
Next
Next
Application.ScreenUpdating = True
.Caption = "Einblenden"
Else
Rows.Hidden = False
.Caption = "Ausblenden"
End If
End With
Application.EnbableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

Anzeige
AW: Zellen mit Umschaltbutton ein-/ausblenden
25.04.2019 11:22:40
Werner
Hallo Michi,
so: 
Private Sub ToggleButton1_Click()
Dim avntStart As Variant, avntStop As Variant
Dim ialngIndex As Long, objCell As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
With ToggleButton1
If .Value Then
avntStart = Array(13, 69, 125, 181, 237, 293, 349, 405)
avntStop = Array(62, 118, 174, 230, 286, 342, 398, 454)
Application.ScreenUpdating = False
For ialngIndex = LBound(avntStart) To UBound(avntStart)
For Each objCell In Range(Cells(avntStart(ialngIndex), 1), _
Cells(avntStop(ialngIndex), 1))
Rows(objCell.Row).Hidden = IsEmpty(objCell.Value)
Next
Next
Application.ScreenUpdating = True
.Caption = "Einblenden"
Else
Rows.Hidden = False
.Caption = "Ausblenden"
End If
End With
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Gruß Werner
Anzeige
AW: Zellen mit Umschaltbutton ein-/ausblenden
25.04.2019 11:30:15
Michi
Vielen Dank. Das hat geholfen :)
Gerne u. Danke für die Rückmeldung. o.w.T.
25.04.2019 11:34:35
Werner
Lösungsbeispiel
25.04.2019 10:25:36
Beverly
Hi,
nach diesem Prinzip:
Sub EinAus()
If Application.CountA(Range("A13:A62"))
Für die anderen Bereiche entsprechend.

AW: Lösungsbeispiel
25.04.2019 11:02:55
Michi
Ich habe das so eingetragen:
Private Sub ToggleButton1_Click()
If Application.CountA(Range("A13:A62"))
so ging es aber leider nicht
AW: Lösungsbeispiel
25.04.2019 12:23:52
Beverly
Mit der Aussage "so ging es nicht" kann man absolut nichts anfangen...
Bei dir fehlt immer das End If zum betreffenden If:
    If Application.CountA(Range("A13:A62"))

Anzeige
AW: Lösungsbeispiel
25.04.2019 12:30:12
Michi
Dann macht es auch Sinn :)
Vielen Dank

306 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige

Links zu Excel-Dialogen

ToggleButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8