08.07.2015, 09:15
Hallo,
Deinen Code mal auf das wesentliche verkürzt.
Der Variable i wird der Wert 1 zugewiesen, danach wird gefragt, ob i größer 13 ist. Das heißt in diesem Fall: Ist nicht erfüllt und somit wird i auch nicht erhöht und nochmals abgefragt.
(08.07.2015, 07:23)moryboy94 schrieb: [ -> ]....... Nun passiert aber etwas eigenartiges. Auch wenn ich meine Schleife so geschrieben habe, dass i niemals größer als 13 werden kann, löscht er alle wahllos Zeilen zwischen 13 und 20 und Zeile 2 und 3 nicht.
Deinen Code mal auf das wesentliche verkürzt.
Code:
Private Sub CommandButton1_Click() 'Klick auf Button 1
Dim i As Integer 'Variable 1 für Abfrage
i = 1
marke1: 'Sprungmarke
If i > 13 Then 'If-Abfrage bei Zelle = Wert, wird zeile versteckt, Zelle <> Wert Wird Zeile angezeigt
i = i + 1
GoTo marke1
Else
k = k + 1
MsgBox "Else2"
End If 'Ende der Abfrage
End Sub 'Ende Klick button 1Der Variable i wird der Wert 1 zugewiesen, danach wird gefragt, ob i größer 13 ist. Das heißt in diesem Fall: Ist nicht erfüllt und somit wird i auch nicht erhöht und nochmals abgefragt.