Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Do Until-Schleife

Do Until-Schleife
Volker
Hallo nochmals!!!!
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

		

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Do Until-Schleife
xXx
Hallo,
Worksheet_Change tritt immer ein, wenn was geändert wird!
Abhilfe:
an den Anfang des Makros: Application.Enableevents=False
Am Ende wieder auf True setzen!
Gruß aus'm Pott
Udo
AW: Do Until-Schleife
Volker
Vielen Dank für Deinen Tip!!!!!!
Funktioniert.
Udo ein tickes Lob.
Bin erst am lernen und brauche noch solche Tips.
mit freundlichem Gruß
volker
Danke für die Rückmeldung oT
xXx
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige