Do Until-Schleife
Volker
Ich glaube ich hab mein Problem nicht richtig dargestellt.
ich möchte die Do Until-Schleife fertig abarbeiten.
und zwar diese Do Until x = 20
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As String
Range("G3").Activate
a = 0
Do Until ActiveCell.Value = ""
If ActiveCell.Value > "" Then
Selection.EntireRow.Insert
a = a + 1
If a = 10 Then ActiveCell.Offset(3, 0).Select
ActiveCell.Offset(3, 0).Select
Else
Ausblenden
End If
Loop
End Sub
Sub Ausblenden()
Dim i As Integer
Dim x As Integer
Sheets("test1").Activate
Range("A3").Select
i = i + 3
Do Until x = 20
If ActiveCell.Value = "l" Then
Range("A" & i) = "e"
Selection.EntireRow.Hidden = True
ActiveCell.Offset(3, 0).Select
i = i + 3
x = x + 1
Else
ActiveCell.Offset(3, 0).Select
i = i + 3
x = x + 1
End If
Loop
End Sub
Wenn aber!!!!!!!
If ActiveCell.Value = "l" Then
Range("A" & i) = "e"
Selection.EntireRow.Hidden = True
Dann geht er auf die Zeile
Private Sub Worksheet_Change(ByVal Target As Range)
Meine Frage ist jetzt warum?
wieso geht er immer zurück an den Anfang?
Bitte habt ein wenig Geduld mit mir.
Bin aber sehr froh das es euch gibt.
Danke im voraus und ein schönen Tag.
Gruß Volker
Anzeige