Zeilen (Bereich) einblenden

Computer: Software & Programmierung Office Software
1

Moin zusammen,

ich benötige mal wieder Eure Unterstützung.
Das Makro

Sub Einblenden()
' Makro blendet alle Ausgeblendeten Zeilen ein
 Range("A1:A185").EntireColumn.Select
 Selection.EntireRow.Hidden = False
 Range("A1").Select
End Sub

blendet mir alle ausgeblendeten Zeilen wieder ein.
Es soll aber nur die Zeilen 1 bis 185 einblenden.
Wie sag ich’s Excel?. Range(„A1:A185“).select
hab ich probiert.

Kann jemand helfen?

Gruß und danke

Rolf

2

Moin zusammen,

ich benötige mal wieder Eure Unterstützung.
Das Makro

Sub Einblenden()
’ Makro blendet alle Ausgeblendeten Zeilen ein
Range(„A1:A185“).EntireColumn.Select
Selection.EntireRow.Hidden = False
Range(„A1“).Select
End Sub

blendet mir alle ausgeblendeten Zeilen wieder ein.
Es soll aber nur die Zeilen 1 bis 185 einblenden.
Wie sag ich’s Excel?. Range(„A1:A185“).select
hab ich probiert.

Kann jemand helfen?

Nicht ganz, aber geht nicht einfach der Umweg, nachdem Du alles eingeblendet hast, das zu versteckende im selben Makro wieder auszublenden ?

moe.

3

Moin zusammen,

ich benötige mal wieder Eure Unterstützung.
Das Makro

Sub Einblenden()
’ Makro blendet alle Ausgeblendeten Zeilen ein
Range(„A1:A185“).EntireColumn.Select
Selection.EntireRow.Hidden = False
Range(„A1“).Select
End Sub

blendet mir alle ausgeblendeten Zeilen wieder ein.
Es soll aber nur die Zeilen 1 bis 185 einblenden.
Wie sag ich’s Excel?. Range(„A1:A185“).select
hab ich probiert.

Kann jemand helfen?

Nicht ganz, aber geht nicht einfach der Umweg, nachdem Du
alles eingeblendet hast, das zu versteckende im selben Makro
wieder auszublenden ?

Hi,

das bekomme ich doch wieder nicht gebacken :frowning:
mit diesem Makro blende ich alle Zeilen aus, wo in Spalte A
eine Null steht:

Sub Ausblenden()
' Makro blendet alle Zeilen mit 0 aus
' Sheets("Tabelle1").Activate
Range("A1").Select
Application.ScreenUpdating = False
 Do While ActiveCell.Value \>= "-999999999" And ActiveCell.Value 


Wie müßte ich denn dieses Makro verändern, damit es dieselben
Zeilen wieder einblendet?

Rolf
4

Hallo zusammen

ich hab’s raugekriegt…

mit diesem Makro blende ich alle Zeilen aus, wo in Spalte A
eine Null steht:

Sub Ausblenden()
’ Makro blendet alle Zeilen mit 0 aus
’ Sheets(„Tabelle1“).Activate
Range(„A1“).Select
Application.ScreenUpdating = False
Do While ActiveCell.Value >= „-999999999“ And
ActiveCell.Value

Man ersetze das „true“ durch „false“

Selection.EntireRow.Hidden = True

Da hab ich wohl den Wald vor lauter Bäumen nicht gesehen.

Gruß

Rolf

5

Sub Ausblenden()
’ Makro blendet alle Zeilen mit 0 aus
’ Sheets(„Tabelle1“).Activate
Range(„A1“).Select
Application.ScreenUpdating = False
Do While ActiveCell.Value >= „-999999999“ And
ActiveCell.Value

Hi Rolf,
die Do While Schleife verstehe ich nicht. Probier mal:

Sub Ausblenden()
Dim zei As Long
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Cells.Hidden = False
For zei = 1 To Range("A65536").End(xlUp).Row
 If Cells(zei, 1) = 0 Then Cells(zei, 1).EntireRow.Hidden = True
Next zei
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard

6

Hallo Reinhard,

danke, das klappt besser :smile:

Gruß

Rolf

Sub Ausblenden()
Dim zei As Long
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Cells.Hidden = False
For zei = 1 To Range(„A65536“).End(xlUp).Row
If Cells(zei, 1) = 0 Then Cells(zei, 1).EntireRow.Hidden =
True
Next zei
Range(„A1“).Select
Application.ScreenUpdating = True
End Sub