Userform über x schließen ohne Aktion

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

Userform über x schließen ohne Aktion

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform über x schließen ohne Aktion

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread