VBA- Variableneingabe über Userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: VBA- Variableneingabe über Userform
von: Hewad
Geschrieben am: 22.05.2015 10:53:43

Hallo zusammen,
ich möchte über Userform zwei vorgegebene Variablen auswählen können:
ActiveWorkbook oder AktiveWorkseeht
Das klappt soweit mit der Userform, aber mit dem Code scheint ein Problem zu geben:


Private Sub UserForm_Initialize()
With Me.ComboBox1
.AddItem "ActiveWorkbook"
.AddItem "ActiveWorksheet"
.ListIndex = 1
End With
End Sub

Private Sub CommandButton1_Click()
Dim wb_var As String
Dim wb As Workbook
Dim ws As Worksheet
wb_var = ComboBox1.Text
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For n = 65 To 66
For o = 65 To 66
For p = 65 To 66
For q = 65 To 66
For r = 65 To 66
For s = 65 To 66
For t = 32 To 126
hier ist das Problem, wenn ich aber hier wb oder ws Eingebe, dann wird ja meine _
Auswahlvariable nicht berücksichitght

wb_var.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _
Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t)
Next t
Next s
Next r
Next q
Next p
Next o
Next n
Next m
Next l
Next k
Next j
Next i
MsgBox "Nun müsste es geklappt haben!"
MsgBox "Überprüfe es jetzt mal!"
End Sub

Danke im Voraus!
Gruß
Hewad

Bild

Betrifft: AW: VBA- Variableneingabe über Userform
von: Gerd L
Geschrieben am: 22.05.2015 11:09:03
Hallo Hewad, ungetestet!

Private Sub CommandButton1_Click()
Dim wb_var As Object
Select Case ComboBox1.Text
Case "ActiveWorkbook": Set wb_var = ActiveWorkbook
Case "ActiveWorksheet": Set wb_var = ActiveSheet
End Select
'............
End Sub
Gruß Gerd

Bild

Betrifft: AW: VBA- Variableneingabe über Userform
von: Hewad
Geschrieben am: 22.05.2015 11:58:36
Danke Gerd, das hat super geklappt!
Ich hatte nur in meiner Liste ActiveWorksheet stehen gehabt. Das sollte ActiveSheet heißen.
danke
Gruß
Hewad

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA- Variableneingabe über Userform"