Hallo und danke dass du meine Frage liest.
hier die Datei um die es geht: https://www.herber.de/bbs/user/147904.xlsm
Ich erstelle ein Tool dass aus einer Verwaltungsanwendung einen Suchbegriff sucht und diesen dann in ein Datenblatt überträgt.
Es wird zB nach "Geb. Datum" gesucht und dann der danebenstehende Wert "01.01.1979" ausgelesen und das Tabellenblatt eingetragen
das passiert mit dem Codes:
(1 - geht in der Verwaltungsanwendung Zeile für Zeile runter, bis der Eintrag gefunden wird)
For H = 11 To 28
If Trim(PScreen.GetString(H, Y1, AnZei1)) = SB1 Then Exit For
Next H
(2 Kopiert den Wert)
Detail2 = Trim(PScreen.GetString(H, Y2 + AnZei2 + Pause2, Wert))
(3 fügt den Wert ein)
ActiveCell.Offset(0, AuSp2).Value = Detail2
Jetzt hätte ich das ganze gerne so abgewandelt dass mehrere Begriffe gesucht werden.
Für die Anzahl nutze ich Checkboxen in einer Userform - Jetzt fangen die Probleme an
da mir jetzt VBA immer ein "Next ohne For" rauswirft...
Mein Versuch:
For H = 11 To 28
If CheckBox1.Value = True Then
If Trim(PScreen.GetString(H, Y1, AnZei1)) = SB1 Then
Detail1 = Trim(PScreen.GetString(H, Y1 + AnZei1 + Pause1, Laeng1))
ActiveCell.Offset(0, AuSp1).Value = Detail1
End If
Next H