ausgeblende Zeilen per Marko einzeln einblenden.

[wavemaster]

Hallo zusammen,

gibt es eine Möglichkeit wenn in einem Arbeitsblatt 100 Zeilen ausgeblendet werden, dass durch das drücken eines Buttons, mit Hilfe eines Makros, immer eine Zeile eingeblendet werden kann.

Habe dies schon mal gesehen, jedoch ist die Tabelle Passwort gesichert.

Hoffe dass jemand sowas kennt

Danke im voraus.

:19: :19: :19: :19:

[schauan]

Hallo Wavemaster,

das geht, wenn Du beim Blattschutz auch "Zeilen formatieren" auswählst.

[wavemaster]

Hallo Wavemaster,

das geht, wenn Du beim Blattschutz auch "Zeilen formatieren" auswählst.

Hi schuan,

ich habe noch kein Makro für diesen Vorgang, wollte schon eines aufzeichnen finde aber keinen weg dass man eine Zeile auswählen kann.

Somit benötige Ich ein Makro......

wie muß Ich das mit "Zellen formatieren " verstehen.

[schauan]

Hallöchen,

wenn Du den Blattschutz setzt, hast Du verschiedene Optionen. Eine davon ist "Zeilen formatieren". Damit wird es ermöglicht, trotz Blattschutz die Zeilen u.a. auch ein- und auszublenden.

Der code für eine beliebige Zeile - hier mal die 7 - wäre

Code:

Sub test()
'Zeile 7 einblenden
ActiveSheet.Rows(7).EntireRow.Hidden = False
End Sub

Jetzt wäre die Frage, wie Du eine ausgeblendete Zeile angeben willst.
Man könnte z.B . eine Eingabebox programmieren, wo man eine Zahl eingeben muss, und die entsprechende Zeile wird dann eingeblendet.

[wavemaster]

Hallo zusammen,

habe in einem anderen Forum die Lösung gefunden.
die wie folgt aussieht:

PHP-Code:

Sub Button_add5_BeiKlick()
    
    Application.ScreenUpdating = False
    
    Dim rng As Range
    Dim intZeilen As Integer
    
    For Each rng In Range("A17:A199")
        If intZeilen = 5 Then Exit For
        If rng.EntireRow.Hidden = True Then
            rng.EntireRow.Hidden = False
            intZeilen = intZeilen + 1
        End If
    Next
    
    Application.ScreenUpdating = True
End Sub 


Danke an die die sich einen Kopf gemacht haben.

:21: :21: :21:

[schauan]

Hallöchen,

das Makro blendet Dir im Bereich A17 bis A199 die 5 ersten ausgeblendeten Zeilen ein, sofern so viele ausgeblendet sind, und nicht nur eine

dass durch das drücken eines Buttons, mit Hilfe eines Makros, immer eine Zeile eingeblendet werden kann

Aber wenn es so passt, dann ist alles gut und der Zähler lässt sich entsprechend den Anforderungen ja variieren :100: