Guten Morgen zusammen,
ich hätte gerne eure Hilfe in Anspruch genommen.
Konkret hab ich folgendes Problem, ich möchte die automatische
Berechnung in einem Worksheet_Change(ByVal Target As Range)
Ereignis abhängig machen vom Wert einer Zelle und zwar:
Wenn das Datum in Zelle G17 <heute() dann Exit Sub
ansonsten
wenn das Datum in Zelle G17 >=heute() dann soll der Code
weiterberechnen z.B. so (hoffe ich hab das gut geschrieben)
Private Sub Worksheet_Change(ByVal Target As Range)
ab hier bräuchte ich diese Bedingung also:
wenn G17<heute dann Exit Sub
ansonsten
wenn G17 >=heute() Then
"Set Target = Application.Intersect(Target, Range("B1:C1"))"
Dim intZaehler As Integer, s As String
If [B1].Value >= 1 And [C1].Value = 1 Then
Shapes("Blume").Visible = True
For intZaehler = 1 To 3
Shapes("Blume").Visible = False
Application.Wait Now + TimeValue("00:00:01")
Shapes("Blume").Visible = True
Application.Wait Now + TimeValue("00:00:01")
Next intZaehler
End If
If [B1].Value = 0 And [C1].Value = 0 Then
Shapes("Blume").Visible = False
End If
End Sub
Anmerkung: In den Zellen B1 und C1 sind Formeln hinterlegt
für die weitere Berechnung
vielen Dank für eure Hilfe
Gruß Peter