Live-Forum - Die aktuellen Beiträge
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige