Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: noch eine hilfe
Autor: georg-30
Datum: 20.01.03 12:11
was stimmt an diesem code nicht ich bekomme immer die fehlermeldung "next ohne for" Private Sub Command6_Click() Dim zaehler As Integer For zaehler = 0 To List2.ListCount - 1 If GetValue(HKEY_CURRENT_USER, "Administrator\Unbekannte Module", (List2.List(zaehler)), tte2) Then Next Else MsgBox (List2.List(zaehler)) End If End Sub setze ich aber den code so bekomme ich zwar keine fehlermeldung aber er läuft die ganze listbox nicht ab sondern macht nach dem ersten eintrag schluss! Private Sub Command6_Click() Dim zaehler As Integer If GetValue(HKEY_CURRENT_USER, "Administrator\Unbekannte Module", (List2.List(zaehler)), tte2) Then For zaehler = 0 To List2.ListCount - 1 Next Else MsgBox (List2.List(zaehler)) End If End Sub bitte um eure hilfe georg

msgbox	553	georg-30	20.01.03 11:29
Re: msgbox	359	Vampire666	20.01.03 11:38
Re: noch eine hilfe	355	georg-30	20.01.03 12:11
Re: noch eine hilfe	370	georg-30	20.01.03 12:21

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen