Office: Nochmal was kleines zu einer Syntax

Hallo

Sry für die andauernden Fragen. Aber langsam werde ich besser. Mittlerweile kann ich schon die Prüfung für eine Sache aufstellen. Fehlt nur noch der Rest :)

Code:

If ActiveWorkbook.Worksheets("Rechnung").Range("F17").Value = "true" Then 

Ich will sagen "Wenn in Zelle F17 irgendetwas steht dann mach in Zelle A17 eine 1 ansonsten mach (.clearcontent)"

Mir fehlt allerdings die Syntax um meinen Gedankengang fertigzustellen. Ich weiß nur wie ich die Prüfung aufstelle

über Hilfe würde ich mich sehr freuen :)

Liebe Grüße

 

Moin,

... von den Fragen lebt dieses Forum schließlich, also absolut OK!

Versuche mal:

Code:

If ActiveWorkbook.Worksheets("Rechnung").Range("F17").Value >"" Then 'hat einen Inhalt

Alternativ kannst du auch mit WITH arbeiten, das erleichtert manches:

Code:

With ActiveWorkbook.Worksheets("Rechnung")
   if .Range("F17").Value >"" Then
      .Range("A17").Value = 1
   Else
      .Range("A17").ClearContents
   End If
End With

 

Danke passt wie immer super :)