zeilen ausblenden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: zeilen ausblenden
von: lau
Geschrieben am: 26.05.2015 17:05:43

Hallo zusammen,
in Spalte J steht in einigen Zeilen der Wert - 1 (mit formel gerechnet). In den anderen Zellen in Spalte j steht eine Null.
Die Zeilen wo in Spalte j keine - 1 steht, sollen ausgeblendet werden.
Das untere Makro funktioniert nicht.
Hat jmd. einen Tipp?


Sub Weg_wenn_Inaktiv()
 Dim lRow As Long
 Dim i As Long
 lRow = IIf(Range("j65536") <> -1, 65536, Range("j65536").End(xlUp).Row)
 For i = lRow To 1 Step 4000
 If Range("j" & i) = "0" Then Range("j" & i).EntireRow.Hidden = True
 Next i
 End Sub
Vielen Dank.

Bild

Betrifft: AW: zeilen ausblenden
von: Peter Stähler
Geschrieben am: 26.05.2015 17:13:09
Hallo,
die Zeile
For i = lRow To 1 Step 4000
sollte eher
For i = lRow To 1 Step -1
heißen ...
Gruß
Peter

Bild

Betrifft: AW: zeilen ausblenden
von: lau
Geschrieben am: 26.05.2015 17:15:27
Hallo Peter,
hatte es vorher so und jetzt auch.
Das Makro macht trotzdem nichts.
Viele Grüße

Bild

Betrifft: AW: zeilen ausblenden
von: Peter Stähler
Geschrieben am: 26.05.2015 17:20:06
Hallo,
ich hab' Dein Makro einfach nur kopiert und die 4000 durch eine -1 ersetzt.
Und es klappt einwandfrei :-)
Steht da wirklich eine 0 in den Zellen und reden wir über Spalte J ?
Gruß
Peter

Bild

Betrifft: AW: zeilen ausblenden
von: lau
Geschrieben am: 26.05.2015 17:30:10
Hallo Peter,
da steht eigentlich eine Formel, die als Ergebnis eine - 1 oder eine o auswirft.
Könnte es daran liegen?
Vielen Dank.

Bild

Betrifft: welchen Wert hat den LRow
von: Matthias L
Geschrieben am: 26.05.2015 17:33:57
Hallo

   lRow = IIf(Range("j65536") <> -1, 65536, Range("j65536").End(xlUp).Row)
   MsgBox lRow

Prüf das mal
Ich vermute LRow hat den Wert 1
Gruß Matthias

Bild

Betrifft: AW: zeilen ausblenden
von: Peter Stähler
Geschrieben am: 26.05.2015 17:46:06
Hallo,
dann ändere doch mal die Zeile
If Range("j" & i) = "0" Then Range("j" & i).EntireRow.Hidden = True
in
If Range("j" & i).Value <> "-1" Then Range("j" & i).EntireRow.Hidden = True
Gruß
Peter

Bild

Betrifft: AW: zeilen ausblenden
von: lau
Geschrieben am: 27.05.2015 09:59:45
Hallo Peter,
habe es ausprobiert.
Klappt leider nicht.
Ich kann es mir auch nicht erklären...:-(
Vielen Dank trotzdem..

Bild

Betrifft: Willst Du nur mit Peter "reden" ?
von: Matthias L
Geschrieben am: 27.05.2015 11:04:37
Hallo
Ich hatte gestern schon eine Frage gestellt.
Willst Du nur mit Peter "reden" ?
Wenn es so ist könntest Du das wenigstens mitteilen.
Zitat:
da steht eigentlich eine Formel, die als Ergebnis eine - 1 oder eine o auswirft.
Kann es sein das Du ein o meinst statt einer 0 (Null) ?
o <- das ist definitiv keine Null
Gruß Matthias

Bild

Betrifft: AW: Willst Du nur mit Peter "reden" ?
von: lau
Geschrieben am: 28.05.2015 10:59:53
Lieber Matthias,
nein, bin für alle Tipps dankbar...
Leider läuft das Makro trotzdem nicht, auch nicht mit deinem Tipp..:-(
Viele Grüße

Bild

Betrifft: dann lad bitte die Mappe hoch
von: Matthias L
Geschrieben am: 28.05.2015 11:11:30
Hallo
Dann lad bitte die Mappe hoch,
Deweiteren hatte ich gefragt welchen Wert die Variable LRow hat
Warum antwortest Du nicht darauf?
Gruß Matthias

 Bild

Beiträge aus den Excel-Beispielen zum Thema "zeilen ausblenden"