Excel: VBA IF-Abfrage

[gary]

Hallo zusammen,

Der bisherige Makrocode sieht so aus:

Sub Funktion_Import_Einlesen()
'
' Funktion_Import_Einlesen Makro
' Makro am 03.12.2007 von Gary aufgezeichnet
'

'
    Range("A1:A11").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=":", FieldInfo:=Array(Array(1, 1), Array(2, 1))
    Range("A12:A40").Select
    Selection.TextToColumns Destination:=Range("A12"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, OtherChar _
        :=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
    Range("A42:C42").Select
End Sub

Ich muss nun den Inhalt der Zelle F50 prüfen (ob WAHR oder FALSCH drin steht), um dann entsprechend diesem Inhalt eine Grafik anzeigen.

Also:

if FG50=WAHR then
    Grafik1.visible = true
    Grafik2.visible = false
else
    Grafik1.visible = false
    Grafik2.visible = true
end if

Wer weiss, wie die obere Abfrage Excelkonform (VBA) geschrieben werden kann.

Viele Grüsse gary