Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA- Variableneingabe über Userform

VBA- Variableneingabe über Userform
22.05.2015 10:53:43
Hewad
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA- Variableneingabe über Userform
22.05.2015 11:09:03
Gerd
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

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige