Hallo Ralf,

leider nicht ganz klar, was Du Dir da so vorstellst.

Was für ein Objekt?
Was für ein Wert nach welchem Kriterium?

Nachfolgend mal ein Beispiel, dass ein Bezeichnungsfeld aus der Symbolleiste "Formular" ausblendet, wenn der Wert in Zelle A1 >= dem Wert 10 ist. Ist der Wert kleiner dem Wert 10, wird das Feld eingeblendet.
Kopiere das Makro in ein StandardModul.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche

[b]Option Explicit

Sub Bezeichnungsfeld_aus_bzw_einblenden()
If Range("A1") >= 10 Then
'Shape ausblenden
ActiveSheet.Shapes("Name_des_Objektes").Visible = False
Else
'Shape einblenden
ActiveSheet.Shapes("Name_des_Objektes").Visible = True
End If
End Sub[/b]

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,

Ich versuchs mal genauer zu beschreiben.

Über ein Formular, Combobox wird ein Monat ausgewählt.
Und dann halt Abgefragt:

If Userformular1.Combobox1="Januar" then
.......
elseIf Userformular1.Combobox1="Februar" then
...

Jetzt sind aber in jedem Monat berechnete Werte die variieren können.
Ich möchte gerne herausfinden ob ein Wert größer als Null oder kleiner als null ist. Wenn größer soll das Objekt eingeblendet werden, wenn kleiner nicht.

Wie pack ich das noch zusätzlich in die If Then Else ein.?Gruß Ralf

Hallo Ralf,

so ganz verstehe ich es zwar immer noch nicht, aber wenn es Dir nur um das erweitern der If-Abfrage geht, dann würde das z.B. wie folgt aussehen:

[b]If Userformular1.Combobox1="Januar" And Wert > 0 then
Objekt_welches_auch_immer.Visible = True
Else
Objekt_welches_auch_immer.Visible = False
End if[/b]

PS.: Nicht wundern, wenn ich jetzt erst mal nicht mehr antworte, aber ich habe einen Termin.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Guten Morgen,
und vielen Dank für die nette Hilfe !
Gruß Ralf