TextBoxen befüllen
20.07.2023 08:09:59
Frank H.
mittels folgendem Codeschnipsel werden TextBoxen gefüllt.
For lng = 7 To 23
If Sheets("offene Beträge").Cells(lng, 2) = "x" Then
Me("TextBox" & lng + 3) = Sheets("offene Beträge").Cells(lng, 1)
Me("TextBox" & lng + 20) = Format(Sheets("offene Beträge").Cells(lng, 4), "0.0")
Me("TextBox" & lng + 37) = Sheets("offene Beträge").Cells(lng, 6)
End If
Next lng
Wenn aber nun in Spalte 2 kein x steht, bleiben die dazugehörigen TextBoxen leer.
Wie kann ich das umgehen, so dass die TextBoxen immer untereinander gefüllt sind.
Ich hoffe Ihr Spezialisten könnt helfen!
Danke im Voraus.
L.G. Frank H.
Anzeige