einfaches Problem - finde keine lösung
17.03.2008 00:34:00
Ludes
habe ein einfaches Problem.
Habe 3 Schaltflächen mit folgenden Funktionen
SF1 macht Zelle A1 gelb
SF2 macht A2 rosa
SF§ macht A1 gelb und A2 rosa
Möchte das Makro mit einer Boolean-Funktion lösen weiß aner nicht wie
Wo liegt der Fehler? DANKE!
Option Explicit
Public Function Formel_ausführen(gelb As Boolean, rosa As Boolean)
If (gelb) Then
Range("A1").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End If
If (rosa) Then
Range("A2").Select
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End If
End Function
Sub A1_Gelb()
Formel_ausführen (true,False)
End Sub
Sub A2_rosa()
Formel_ausführen (false,true)
End Sub
Sub A1_gelb_und_A2_blau()
Formel_ausführen (true,true)
End Sub