German [Anfängerfrage] If in For Schleife verbaut funktioniert nicht

[gismo]

Hallo zusammen,
bin ganz neu hier und habe ein kleines Problem.
zuerst kurz mein Hintergrund:
Bin Support Techniker für ein 3D CAD (SolidWorks) und habe in diesem Bereich einige Erfahrung in der Makro Programmierung (SolidWorks API) mit VBA
B4A habe ich schon seit über einem Jahr lizenziert, komme aber erst jetzt zum Programmieren.

kurz zur geplanten App:
bin Sportschütze, und will meine Treffer über die App aufnehmen und auswerten. vorerst reicht, wenn ich die Daten in Text Dateien Speichere, später will ich mit SQL arbeiten.

ICh habe eine For NExt schleife, in der nicht ein If verbaut ist.
wenn ich nun die Test Compilation laugen lasse, kommt folgende Fehlermeldung:

wenn ich das end if in next ändere kommt diese Meldung:

hier der entsprechende Code Teil:

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer.
    Activity.LoadLayout("mainscreen")
    ActualTraining=0
    EingabeRunde=0
    EingabeSchuss=0
    Runde=EingabeRunde
    Schuss=EingabeSchuss
 
    For I=0 To 10
 
        If ActualTraining(EingabeRunde,EingabeSchuss)=""
         

        End If
     
    Next 
End Sub

Wo liegt mein Problem? ist sicher nur ne Kleinigkeit

Viele Grüße
Thomas

 

[klaus]

Willkommen im Forum.

Es fehlt das Schlüsselwort Then am Ende:
If ActualTraining(EingabeRunde,EingabeSchuss)="" Then

 

[chris_3131]

Hallo Gismo,

For I=0To10
If ActualTraining(EingabeRunde,EingabeSchuss)="" then
....
EndIf
Next

in der if schleife fehlt das then.

Gruß Chris.

 

[gismo]

HI Ihr 2
vielen Dank...
Ich wusste dach dass ich blind bin
Ich werde mich sicher noch oft wergen Kleinigkeiten melden.
CU
Thomas