VBA Schleife

Bild

Betrifft: VBA Schleife
von: astis
Geschrieben am: 14.05.2015 13:42:15

Hallo, ich tut mir schwer mit einer vermutlich einfachen Schleife.
Ein Wert steht in einer Spalte irgendwo ziwschen der 18. und 22. Zeile, also mal da mal da.
Der zeile soll nun gefunden werden damit der code in der entsprechenden Zeile weiterlaufen kann.
ich habs so versucht:
For i = 18 To 22
If Trim(PScreen.GetString(i, 7, 12)) = "HRHP Gesamt" Then
Result = PScreen.MoveTo(i, 4)
PScreen.SendKeys "de"
PScreen.SendKeys ""
PScreen.WaitForKbdUnlock
Else: next i
das geht aber mächtig in die hose, entweder kommt fehler "next ohne for" oder andere fehlermeldungen...

Bild

Betrifft: AW: VBA Schleife
von: Michael
Geschrieben am: 14.05.2015 14:35:03
Hi astis,
rücke mal ein bißchen ein, dann siehst Du besser, was zusammengehört - und das endif fehlt:


For i = 18 To 22
  If Trim(PScreen.GetString(i, 7, 12)) = "HRHP Gesamt" Then
    Result = PScreen.MoveTo(i, 4)
    PScreen.SendKeys "de"
    PScreen.SendKeys ""
    PScreen.WaitForKbdUnlock
  End If
next i 
Gruß,
Michael

Bild

Betrifft: AW: VBA Schleife
von: astis
Geschrieben am: 14.05.2015 15:11:38
Hallo vielen Dank.. geht jetzt

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Schleife"