VBA Dialog Problem
27.02.2020 22:54:39
Kai-Uwe
Die Variablen deklariere ich im aufrufenden Modul-Makro als Public, also öffentlich. Wenn ich sie dann nicht noch einmal als lokale Variablen (Dim) im Formular-Makro (Dialog) deklariere, kommt die Meldung von "Mehrdeutiger Name". Deklariere ich sie nochmal lokal, kommt diese Meldung nicht, aber das oben genannte Problem. ?
Modul-Makro
Option Explicit
Public strZahl1 As String
Public strZahl2 As String
Public strZahl3 As String
Public strZahl4 As String
Public strZahl5 As String
Public strZahl6 As String
Public strSuperZahl As String
Public strDatum As String
Public strSpiel77 As String
Public strSuper6 As String
Sub Durchführungen()
frm_UserForm1.Show vbModal
' für den Testeintrag im vorgesehenen Tabellenblatt
ActiveWorkbook.Tabelle2.Range("A1").Selcet
ActiveCell.FormulaR1C1 = strZahl1
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = strZahl2
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = strZahl3
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = strZahl4
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = strZahl5
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = strZahl6
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = strSuperZahl
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = strDatum
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = strSpiel77
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = strSuper6
ActiveCell.Offset(1, 0).Range("A1").Select
Ende:
End Sub
Hier folgt das Dialog-Makro
frm_UserForm1-Makro:
Option Explicit
Dim strZahl1 As String
Dim strZahl2 As String
Dim strZahl3 As String
Dim strZahl4 As String
Dim strZahl5 As String
Dim strZahl6 As String
Dim strSuperZahl As String
Dim strDatum As String
Dim strSpiel77 As String
Dim strSuper6 As String
Private Sub cmd_NaechsteZiehung_Click()
Unload Me
End Sub
Private Sub cmd_Abbrechen_Click()
Unload Me
End Sub
Private Sub cmd_Ok_Click()
VariablenZuordnen
' Unload Me
End Sub
Sub VariablenZuordnen()
strZahl1 = TextBox1
strZahl2 = TextBox2
strZahl3 = TextBox3
strZahl4 = TextBox4
strZahl5 = TextBox5
strZahl6 = TextBox6
strSuperZahl = TextBox7
strDatum = Date
strSpiel77 = TextBox9
strSuper6 = TextBox10
Hier hört es auf. Die Daten werden nicht an das aufrufende Makro zurückgegeben
End Sub
' wird beim Öffnen der Userfrom ausgeführt
Private Sub UserForm_Initialize()
' Flexible Überschrift
Me.Caption = "6 aus 49 Zahlen eingeben von " & Environ("username") & " vom " & Date
' setzt den Cursor ins Textfeld 1
Me.TextBox1.SetFocus
' legt die Aktivierungsfolge bei Tastenbenutzung "Tabulator" fest
Me.TextBox1.TabIndex = 1
Me.TextBox2.TabIndex = 2
Me.TextBox3.TabIndex = 3
Me.TextBox4.TabIndex = 4
Me.TextBox5.TabIndex = 5
Me.TextBox6.TabIndex = 6
Me.TextBox7.TabIndex = 7
Me.TextBox8.TabIndex = 8
Me.TextBox9.TabIndex = 9
Me.TextBox10.TabIndex = 10
Me.cmd_Ok.TabIndex = 11
Me.cmd_Abbrechen.TabIndex = 12
Me.cmd_NaechsteZiehung.TabIndex = 13
End Sub
Mehr steht nicht drin. Es ging schon. Aber dann habe ich etwas dazugeschrieben, was nicht gut _
war. Habe die nachträglich eingetragenen Sachen es wieder gelöscht. Doch trotzdem geht es nicht mehr. ?