Suchfunktion mit Zeilenanzeige

[Steffl]

Hallo,

....... 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 1

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.

[Rabe]

Hi,

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.

vermutlich müßte es If i < 13 heißen.