hainoon
May 17, 2018
view9942
view3
0
Goto Top

Zeilen ein und Ausblenden mit einem Button

GermansolvedQuestionVB for ApplicationsDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 374190

Url: https://administrator.de/contentid/374190

Printed on: April 25, 2024 at 11:04 o'clock

3 Comments
Latest comment
Goto Top
Member: em-pie
em-pie May 17, 2018 at 07:17:12 (UTC)
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
Member: Kraemer
Solution Kraemer May 17, 2018 at 07:29:21 (UTC)
Goto Top
Moin,

versuchs mal mit

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

Gruß
Member: Hainoon
Hainoon May 17, 2018 at 07:33:30 (UTC)
Goto Top
Perfekt genau das ist es!
Vielen Dank
Frage gelöst.
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments