Hallo zusammen,
Bin neu in dem Forum und suche einen Weg 2 auf einander folgende leere Zeilen zu erkennen, auszuwählen und auszublenden.
Mein Code sieht bisher wie folgt aus:
Dim i As Integer
Dim zelle1 As Integer
Dim zelle2 As Integer
Dim x As Integer, y As Integer, Z As Integer
x = 237
For i = 1 To 80
y = x + i
Z = x + i + 1
zelle1 = y
zelle2 = Z
If Range("A" & zelle1).Value And Range("A" & zelle2).Value = "" Then
Range(zelle1).Select
Selection.EntireRow.Hidden = True
Range(zelle2).Select
Selection.EntireRow.Hidden = True
End If
Next i
------------------------------------------------------------------
Leider wird bei der If-Anweisung ein Fehler ausgeworfen...
Ich hoffe ihr könnt mir helfen!
Beste Grüße,
Marco