hainoon
17.05.2018
view10591
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/contentid/374190

Ausgedruckt am: 22.11.2024 um 07:11 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
superfun2k24Sophos SFOS 20 DNAT funktioniert nichtsuperfun2k24 - 26 Kommentareuser217Kaufberatung Hardware - Hyper-V Cluster 3 Nodesuser217 - 25 KommentarePharaunIntel-E810 QSFP28 to Mikrotik QSPF+ mit 40Gbit VerbindungPharaun - 23 KommentarecseLaufwege erfassen in großer Hallecse - 20 KommentareYan2021Nachricht an mehrere PCs im Netzwerk sendenYan2021 - 19 Kommentareprplemk2Testumgebung bauen (Grundlegend)prplemk2 - 19 KommentareaufdemmarsHP Z620 USB hat kein Strom beim Startenaufdemmars - 17 KommentareTJ.Hooker74Dom.Admin-Passwort ändern - Auswirkungen auf EX, HCW, AADCTJ.Hooker74 - 14 KommentaremaisenkaiserSwitch ohne STP ins Netzwerkmaisenkaiser - 13 KommentareadmtechEntwicklertagebuch: Release 6.4 - Filteradmtech - 13 KommentareJudgelgZertifikate in die Exchange Online GAL hochladenJudgelg - 13 KommentareleberkaeseFB7590 ISDN Fax-Funktionleberkaese - 12 Kommentare