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