Variable an Userform übergeben

Schönen Guten Tag die Damen und Herren,
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

Bei mir erscheint immer Laufzeitfehler 9. Also denke ich, dass f nicht korrekt deklariert ist.
Vielen Dank für eure Hilfe!
Horst

Gut. Jetzt ist es ja schwer den Code einer Userform innerhalb einer Prozedur aufzufassen. Demnach muss ich diese doch à la Hajo übergeben, oder nicht?
Ich bin jetzt durchaus n bissl verwirrt, f wird immernoch nicht angenommen, demnach jetzt die Mischung aus eurer beiden Hinweise:


Option Explicit
Public f As Integer
Dim a As Variant
Sub Weiter()
f = 1
Hilfstabelle
Datenwahl.Show
End Sub
Sub Hilfstabelle()
Sheets("Tabelle1").Range("D:O,V:Z,AF:AG").Copy
Worksheets.Add.Name = "Diagramm" & f
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0.00"
Datenwahl.Tag = "Diagramm" & f
End Sub

sowie:

Option Explicit
Dim i As Integer
Sub UserForm_Initialize()
'Worksheets (Datenwahl.Tag)
For i = 1 To 19
With Controls("CheckBox" & i)
' Bezeichnung aus Überschriften der Zeile 1 und Spalte in Tag-Eigenschaft ermitteln
.Caption = Worksheets(Datenwahl.Tag).Cells(1, CLng(.Tag)).Value
' Wert der Kontrollkästchen nach Anzeigezustand der Spalten einstellen
.Value = Not Worksheets(Datenwahl.Tag).Columns(CLng(.Tag)).Hidden
End With
Next i
End Sub
Sub CommandButton1_Click()
For i = 1 To 19
With Controls("CheckBox" & i)
' Spalte ausblenden, wenn CheckBox deaktiviert
Worksheets(Datenwahl.Tag).Columns(CLng(.Tag)).Hidden = Not .Value
End With
Next i
Unload Me
Zeitlicher_Verlauf.Show
End Sub
Sub CommandButton2_Click()
Unload Me
End Sub

Unter Anzeige von 'Datenwahl.Tag = "Diagramm" & f' erscheint Laufzeitfehler 9 :/

Forumthread: Variable an Userform übergeben

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial