Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

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

327 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige