hainoon
17.05.2018
view10655
view3
0
Goto Top

Zeilen ein und Ausblenden mit einem Button

gelöstFrageVB for ApplicationsEntwicklung
Hallo Liebe Admins,
Ich stehe mal wieder vor einem vermutlich nicht ganz so schweren Problem.

Ich möchte die möglichkeit haben mit nur einem Button Zeilen ausblenden zu können bisher ist es mir nur gelungen das durch einen "Ausblenden" & "Einblenden"
Button zu lösen.
Wie schaffe ich das mit nur einem Button?

Folgenden Code habe ich benutzt.
Sub sbHideRows()
Rows("3:5").EntireRow.Hidden = True  
End Sub

Sub sbUnHideRows()
'Inserting 3 Rows from 3  
Rows("3:5").EntireRow.Hidden = False  
End Sub

Hier habe ich dann den Buttons die Funktion gegeben & Fertig.
Ich bedanke mich schon mal im Voraus für baldige Antworten.

Gruß,
Hainoon
ShareTeilen
Auf Facebook teilen Auf Twitter teilen Auf Reddit teilen Auf Linkedin teilen

Content-ID: 374190

Url: https://administrator.de/forum/zeilen-ein-und-ausblenden-mit-einem-button-374190.html

Ausgedruckt am: 22.12.2024 um 18:12 Uhr

3 Kommentare
Neuester Kommentar
Goto Top
em-pie
em-pie 17.05.2018 um 09:17:12 Uhr
Goto Top
Moin,

ich würde einfach vor der eigentlich bezweckten Funktion schauen, ob deine Zellen den STatus "Hide" oder "Visible" haben.
und je nach Zustand, dann mit deiner bereits erstellten Subs weiterarbeiten.

Hilfe dazu gibt es hier:
https://excelribbon.tips.net/T012217_Detecting_Hidden_Rows.html

der in dem Link genannte Code:
Sub ShowRows()
    Dim rng As Range
    Dim c As Range
    Dim sTemp As String

    Set rng = Range("A1:A1000")  
    sTemp = ""  

    For Each c in rng
        If c.EntireRow.Hidden Then
            sTemp = sTemp & "Row " & c.Row & vbCrLf  
        End If
    Next c

    If sTemp > "" Then  
        sTemp = "The following rows are hidden:" & vbCrLf & _  
          vbCrLf & sTemp
        MsgBox sTemp
    Else
        MsgBox "There are no hidden rows"  
    End If
End Sub

Gruß
em-pie
Kraemer
Lösung Kraemer 17.05.2018 um 09:29:21 Uhr
Goto Top
Moin,

versuchs mal mit

Rows("3:5").EntireRow.Hidden = not (Rows("3:5").EntireRow.Hidden)

Gruß
Hainoon
Hainoon 17.05.2018 um 09:33:30 Uhr
Goto Top
Perfekt genau das ist es!
Vielen Dank
Frage gelöst.
gelöstFrageVB for ApplicationsEntwicklung
Mehr von HainoonHainoonPer Button klick Wert in Zelle eintragen, erneutes klicken Wert wieder entfernenHainoon - 8 KommentareHainoonProgramm in "Programme und Funktionen" nichtmehr anzeigen lassenHainoon - 9 KommentareHainoonDateierstellung in Firefox Programm OrdnerHainoon - 2 KommentareHainoonTelnet Verbindung mit Drucker über Port 9100 - Schwarzes Fenster keine command line !Hainoon - 9 Kommentare
Heiß diskutiert
NullcheckPortweiterleitung ist böse. tatsächlich? (Externzugriff auf Fritzbox)Nullcheck - 36 Kommentarem.sterZwei lokale Mailserver - Lösungsweg gesuchtm.ster - 30 KommentareSarekHLProblem mit SMB-Versionen?SarekHL - 24 KommentareMicitiEmpfehlung Hardware für Heim-NetzwerkMiciti - 22 Kommentareukulele-7Keine DNS-Auflösung auf bestimmte Domainukulele-7 - 22 KommentareJudgelgSharepoint Teams Kalender erstellenJudgelg - 21 KommentareMysticFoxDEIntel feuert Pat - Halleluja!MysticFoxDE - 19 Kommentaretobias3355Chkdsk Neustart ohne Rückfragetobias3355 - 15 KommentareVisuciusDevolutions Remote Desktop Manager - bin begeistert!Visucius - 15 KommentareBN2023Excel - Problem mit WENN-DANN Formel für eine VertretungsregelBN2023 - 15 KommentareGhent74Feste IP via DHCP im DHCP Bereich oder im statischen Bereich?Ghent74 - 14 KommentareGhent74Zwei Router, ein SubnetzGhent74 - 13 Kommentare