Sziasztok a segitsegeteket szeretnem kerni egy feladatban.

 

Annyit szeretnek hogy:

A oszlopban szamok vannak (ertekek)

 

1 sor 

2 sor

3 sor ban nincs semmi, de üresen hagyja es az ez utani sorokat kitakarja viszont ha ide beleirok valamit hozzaad egy uj sort hogy oda is irhassak es igy tovabb es egy tovabb

 

En igy probaltam: 

 

Sub Zeilen_ausblenden()
Application.ScreenUpdating = False

For i = 1 To 200
If Cells(i, 1).Value = "" Then
Rows(i + 1).Hidden = True


For f = 1 To 200
If Cells(f, 1).Value = "" Then
Rows(f + 1).Hidden = False

End If
Next f

End If
Next i

Application.ScreenUpdating = True
Range("A1").Select
End Sub

 

De ez nem ment nyilvan!!!

 

Ami megy ez ugye annyit csinal hogy megy a sor vegeig hagy egy sort nekem es a többit kitakarja.

A baj ha az uj sorba beirok neki valamit nem ad nekem plusszba meg egy sort hogy irjak.

Sub Zeilen_ausblenden()
Application.ScreenUpdating = False
For i = 1 To 200
If Cells(i, 1).Value = "" Then
Rows(i + 1).Hidden = True
End If
Next i
Application.ScreenUpdating = True
Range("A1").Select
End Sub

 

Segitsegeteket elöre is köszönöm!