Select Case mit Userform

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Servus,
da ich mir wieder mal nicht sicher bin, was du vorhast und das gestern ja alles umsonst war.
2 Optionen (Die erste fragt alle Optionsbuttons auf ihren Wert hin ab / Die zweite reagiert gezielt auf den Klick einzelner, müsste man dann natürlich für jeden einzelnen Optionbutton machen).

'Ort:       UserForm
'benötigt:  min. 1 Optionsbutton , 1x Commandbutton
Option Explicit
Private Sub CommandButton1_Click()
Dim intZ As Integer
'Möglichkeit 1:
For intZ = 0 To Me.Controls.Count - 1
    If Left(Me.Controls(intZ).Name, 12) = "OptionButton" Then _
        MsgBox Me.Controls(intZ).Name & " ist " & Me.Controls(intZ).Value
Next
End Sub
Private Sub OptionButton1_Click()
'Möglichkeit 2:
Select Case Me.OptionButton1.Value
    Case True: MsgBox "Wahr"
    Case False: MsgBox "Falsch"
End Select
End Sub

MfG Peter

Hallo,
und da bin ich schon wieder. Alle meine Ausführungen ähnel sich wie dieser hier.

Sub Drucken_Gesamt()
'Drucken Gesamt
Dim lLetzteT As Long
    Set wksKreis = Worksheets("Kreis")
    lLetzteT = IIf(wksKreis.Range("D65536") <> "", 65536, wksKreis.Range("D65536").End(xlUp).Row)

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    If ComboBox1.Value = "" Then
        MsgBox ("Es muß schon eine Kehrbezirksnummer ausgesucht werden,") & vbLf & " " _
            & vbLf & "die dann übernommen werden soll !"
        Exit Sub
    Else
        Call Rahmen_setzen_gestrichelt
        wksKreis.Range("A1:G" & lLetzteT).AutoFilter Field:=5, Criteria1:=ComboBox1.Value
        ActiveSheet.PageSetup.PrintArea = "A1:G" & lLetzteT

        Druck = True
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        Druck = False
        wksKreis.Range("A1:G" & lLetzteT + 5).AutoFilter Field:=5
        Call Rahmen_entfernen
    End If
  ' Unload Me
    Selection.AutoFilter
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub
Den o.g. Code habe ich in einem Sub-Modul.
Mein Problem ist jetzt die ComboBox1 die sich in der selben Userform befindet, anzusprechen.
Ich habe versucht die Combobox1 in eine Variable zu setzen, ist mir aber nicht gelungen.
Wie kann ich die ComboBox1 die sich in der Userform befindet ansprechen?
Gruß Korl

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Select Case mit Userform

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread