Variable an Userform übergeben
22.04.2013 10:59:41
Horst
Mein Problem ist das folgende:
Bei einem Klick auf einen Button soll eine neue Tabelle geöffnet und mit gewissen Daten gefüllt werden. Im Nachgang ist der Bezug einer Userform auf dieses neue Tabellenblatt herzustellen. Da ein Klick auf diesen Button immer ein neues Tabellenblatt öffnen soll, wird die Benennung über eine Variable "Diagramm" & f zugeordnet. Das klappt soweit auch. Nun soll jedoch die Userform immer auf "Diagramm" & f zugreifen, das will jedoch nicht so recht. Wie übergebe ich die Variable f in meinem Code an die Userform?
Option Explicit
Dim i As Integer
Dim f As Variant
Private Sub UserForm_Initialize()
For i = 1 To 19
With Controls("CheckBox" & i)
' Bezeichnung aus Überschriften der Zeile 1 und Spalte in Tag-Eigenschaft ermitteln
.Caption = Worksheets("Diagramm" & f).Cells(1, CLng(.Tag)).Value
' Wert der Kontrollkästchen nach Anzeigezustand der Spalten einstellen
.Value = Not Worksheets("Diagramm" & f).Columns(CLng(.Tag)).Hidden
End With
Next i
End Sub
Private Sub CommandButton1_Click()
For i = 1 To 19
With Controls("CheckBox" & i)
' Spalte ausblenden, wenn CheckBox deaktiviert
Worksheets("Diagramm" & f).Columns(CLng(.Tag)).Hidden = Not .Value
End With
Next i
Unload Me
Zeitlicher_Verlauf.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Vielen Dank für eure Hilfe!
Horst