Aus Auflistung Schleife erstellen

Betrifft: Aus Auflistung Schleife erstellen
von: Niko
Geschrieben am: 11.09.2020 10:53:02
Hallo zusammen,
ich habe Textboxen individuelle Namen zugewiesen - wobei sich ein Textteil (Me.txtBetrag...) wiederholt:
Me.txtBetragMiete = Format(Worksheets("Ausgaben").Range("B4"), "Currency")
Me.txtBetragStrom = Format(Worksheets("Ausgaben").Range("B5"), "Currency")
Me.txtBetragTelefon = Format(Worksheets("Ausgaben").Range("B6"), "Currency")
Me.txtBetragKto_Geb_SP = Format(Worksheets("Ausgaben").Range("B7"), "Currency")
Wie kann ich sie mit Hilfe einer Schleife mit fortlaufenden Zeilen aus einer Tabelle füllen?
Vielen Dank für eure Mühe.
Grüße aus München
Niko

Betrifft: AW: Aus Auflistung Schleife erstellen
von: Rudi Maintaire
Geschrieben am: 11.09.2020 11:17:54
Hallo,
Dim i As Integer, vARR
'...
vARR = Split("Miete Strom Telefon Kto_Geb_SP")
For i = 0 To 3
Me.Controls("txtBetrag" & vARR(i)) = _
Format(Worksheets("Ausgaben").Cells(i + 4, 2), "Currency")
Next i
Gruß
Rudi

Betrifft: AW: Aus Auflistung Schleife erstellen
von: Niko
Geschrieben am: 11.09.2020 11:41:09
Hallo Rudi und Danke für die Rückmeldung,
ich erhalte die Meldung 'Index außerhalb des gültigen Bereichs' angezeigt. Ist die Anzahl der Einträge in vARR begrenzt?
Gruß
Niko

Betrifft: AW: Aus Auflistung Schleife erstellen
von: Rudi Maintaire
Geschrieben am: 11.09.2020 11:52:52
ändere in
for i= 0 to ubound(vARR)
Ist die Anzahl der Einträge in vARR begrenzt?
nicht dass ich wüsste.

Betrifft: Vielen Dank - funktioniert einwandfrei (owT)
von: Niko
Geschrieben am: 11.09.2020 11:57:46
Hi

Betrifft: AW: Aus Auflistung Schleife erstellen
von: Daniel
Geschrieben am: 11.09.2020 12:14:53
Die maximale Anzahl der Einträge ist durch den Speicherplatz, den VBA für Variablen bereit stellt, begrenzt.
Der sollte aber ausreichen.
Gruß Daniel
Beiträge aus dem Excel-Forum zum Thema "Aus Auflistung Schleife erstellen"