Fehlerhafter Code?

Computer: Software & Programmierung Office Software
1

Hallo zusammen!

Ich hab ein Problem mit einem eigentlich recht einfachen VBA-Code.

Erstmal was der Code bewirken soll:

Er soll die Spalte A ab Zeile 10 durchgehen und testen ob die Zelle leer ist.
Wenn Leer dann ganze Zeile ausblenden, sonst nichts machen.

An 9 Stellen soll jeweils zwei Zeilen weitert gesprungen werden.

Nun mein Code:

Private sub kuerzen()

Dim reihe As Variant

reihe = 10

Do Until reihe > 177

If ActiveSheet.Cells(1, reihe) = „“ Then ActiveSheet.Rows(reihe & „:“ & reihe).EntireRow.Hidden = True

reihe = reihe + 1

If reihe = 25 Then reihe = reihe + 2
If reihe = 42 Then reihe = reihe + 2
If reihe = 59 Then reihe = reihe + 2
If reihe = 76 Then reihe = reihe + 2
If reihe = 93 Then reihe = reihe + 2
If reihe = 110 Then reihe = reihe + 2
If reihe = 127 Then reihe = reihe + 2
If reihe = 144 Then reihe = reihe + 2
If reihe = 161 Then reihe = reihe + 2

Loop

end sub

Nun mein Problem:

Es werden alle Zeilen ausgeblendet, auch wenn in der Spalte A etwas eingetragen ist…

Ich hab keine Ahnung warum…

Bin für jede Hilfe (mal wieder^^) dankbar.

Gruß

LE

2

Hallo LE,

nur auf die Schnelle:
An welcher Stelle sagst du denn im Code, daß reihe gleich Zeile (Row) ist.

Du fragst ja nach einem ganz leeren Blatt.

Viel Erfolg
Ullrich Sander

3

Er soll die Spalte A ab Zeile 10 durchgehen und testen ob die
Zelle leer ist.
Wenn Leer dann ganze Zeile ausblenden, sonst nichts machen.

Hi LE,

du hast bei Cells() Zeilen mit Spalten verwechselt.
Die If reihe… Abfrage ist ungetestet, may be klappt sie nicht…

Option Explicit
'
Private Sub kuerzen()
Dim reihe As Long
reihe = 10
Do Until reihe \> 177
 If ActiveSheet.Cells(reihe, 1) = "" Then ActiveSheet.Rows(reihe & ":" & reihe).EntireRow.Hidden = True
 reihe = reihe + 1
 If reihe 

Gruß
Reinhard
4

du hast bei Cells() Zeilen mit Spalten verwechselt.
Die If reihe… Abfrage ist ungetestet, may be klappt sie
nicht…

*sich vor den Kopf kloppt*

Danke Dir Reinhard! :smile:

Und, die If-Abfrage funktioniert 1a!

Gruß

LE