Variable einbauen
Thomas
ich möchte Daten in einem UserForm Dialog Daten anzeigen.
In den Dialog sind verschiedene Lables von 1-4 enhalten.
Ich möchte mit einem Code mit einer for next Schleife verschiedene Daten in den Dialog eintragen.
Meine Frage: wie kann ich eine Variable in den Dialog-Bezug einbauen.
dlgAuswertung1.lblM1.Caption = a.Cells(i, 9).Value
ich möchte die 1 (lblM1) durch eine Variable ersetzten. Ähnlich wie man eine Text zusammen bauen kann, komme aber nicht weiter. dlgAuswertung1.lblM" & x & ".Caption funktioniert nicht.
Im Voraus vielen Dank.
Gruß Thomas
Option Explicit
Dim a, b, c As Variant
Dim d
Dim i, i2 As Variant
Dim Ori, x As Variant
Sub AlleDatenAnzeigen1()
G_Blatt = ActiveSheet.Name
Set a = Sheets("DATA")
Set b = Sheets(G_Blatt)
Set c = Sheets("Drucken1")
'Gruppe
dlgAuswertung1.lblGruppe.Caption = b.Cells(5, 11).Value
For i = 1 To 4
dlgAuswertung1.lblM1.Caption = a.Cells(i, 9).Value
Next i
dlgAuswertung1.Show
DoEvents
End Sub
Anzeige