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.