Userform über x schließen ohne Aktion

Forumthread: Userform über x schließen ohne Aktion

13.05.2023 14:55:45

Ulrike

Hallo,
ich habe eine Userform, die Zellen über OptionButtons mit unterschiedlichen Farben füllt.
Ich hätte gerne, das die Auswahl nur übernommen wird wenn ich die Userform über den CommandButton beende.
Wenn ich auf das X gehe soll keine Auswahl übernommen werden.

Wie kann ich das hinkriegen?

Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Userform über x schließen ohne Aktion

13.05.2023 15:07:37

Nepumuk

Hallo Ulrike,

ohne den Code zu kennen, wird dir keiner helfen können.

Gruß
Nepumuk

AW: Userform über x schließen ohne Aktion

13.05.2023 15:15:35

Ulrike

Hier ist der Code:
Option Explicit

Private Sub Bestätigen_Click()
    Unload UserForm
End Sub

Private Sub OptHaushalt_Click()
Dim color As Long

    With Selection
        .HorizontalAlignment = xlCenter       
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge

    If OptHaushalt = True Then
    ActiveCell.Interior.color = RGB(200, 200, 200)  
    ActiveCell.Interior.Pattern = xlSolid        
    Else
        color = RGB(255, 255, 255)
    End If
End Sub

Private Sub OptJob_Click()
Dim color As Long

With Selection
        .HorizontalAlignment = xlCenter       
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    
    If OptJob = True Then
    ActiveCell.Interior.color = RGB(180, 200, 230) 
    ActiveCell.Interior.Pattern = xlSolid          
    Else
    color = RGB(255, 255, 255)
    End If
End Sub

Private Sub OptPause_Click()
Dim color As Long
Dim cell As Range
    For Each cell In Selection
        If OptPause = True Then
        cell.Interior.color = RGB(170, 210, 140)   
        cell.Interior.Pattern = xlLightHorizontal  
        Else
        color = RGB(255, 255, 255)
        End If
    Next cell
End Sub

AW: Userform über x schließen ohne Aktion

13.05.2023 18:26:36

max.kaffl@gmx.de

Hallo Ulrike,

ersetze deinen Code durch diesen:

Option Explicit

Private Sub Bestätigen_Click()

    Dim cell As Range

    If OptHaushalt.Value Then

        With Selection

            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
            .Merge

        End With

        ActiveCell.Interior.color = RGB(200, 200, 200)
        ActiveCell.Interior.Pattern = xlSolid

    ElseIf OptJob.Value Then

        With Selection

            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
            .Merge

        End With

        ActiveCell.Interior.color = RGB(180, 200, 230)
        ActiveCell.Interior.Pattern = xlSolid

    ElseIf OptPause.Value Then

        For Each cell In Selection

            cell.Interior.color = RGB(170, 210, 140)
            cell.Interior.Pattern = xlLightHorizontal

        Next cell
    End If

    Unload Me

End Sub

Gruß
Nepumuk

AW: Userform über x schließen ohne Aktion

14.05.2023 09:24:45

Ulrike

So funktioniert es.
Danke schön.

Gruß, Ulrike

Beliebteste Forumthreads (12 Monate)

Userform über x schließen ohne Aktion

Forumthread: Userform über x schließen ohne Aktion

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread