Microsoft Excel

Herbers Excel/VBA-Archiv

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"