TextBoxen befüllen

Forumthread: TextBoxen befüllen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: TextBoxen befüllen

TextBoxen befüllen

20.07.2023 10:09:59

Frank H.

Hallo Zusammen,

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.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: TextBoxen befüllen

20.07.2023 10:43:57

GerdL
AW: TextBoxen befüllen

20.07.2023 10:53:26

Frank H.

AW: TextBoxen befüllen

20.07.2023 10:43:57

GerdL

Moin Frank!

'Dim ....
Dim lng As Long, lng2 As Long
lng2 = 6
For lng = 7 To 23

If Sheets("offene Beträge").Cells(lng, 2) = "x" Then
lng2 = lng2 + 1
Me("TextBox" & lng2 + 3) = Sheets("offene Beträge").Cells(lng, 1)
Me("TextBox" & lng2 + 20) = Format(Sheets("offene Beträge").Cells(lng, 4), "0.0")
Me("TextBox" & lng2 + 37) = Sheets("offene Beträge").Cells(lng, 6)
End If

Next lng

Benutze bitte den Code-Button.

Gruß Gerd

AW: TextBoxen befüllen

20.07.2023 10:53:26

Frank H.

Hallo Gerd,

vielen Dank, funzt wie gewünscht.

L.G. Frank H.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!