PDA

Vollständige Version anzeigen : Datum


speed011087
01.08.2012, 05:22
Hallo user, ich habe da mal eine Frage:

1. in Excel 2010 möchte ich gerne per makro in Zelle K5 das aktuelle Datum, dass sich aber am nächsten Tag nicht Aktualisiert und immer auf dem Datum verweilt.

2. in Zelle L5 möchte ich dann per Button (Steuerelemente) 2 Wochen bzw. 4 Wochen dazu zählen und bei erreichen dieser Wochen, sollte die Spalte dann in einer Farbe (z.b. Rot) erscheinen.
Wie man dabei den Button einfügt, ist mir klar, nur weiß ich nicht genau, wie man dieses makro schreibt.

Ist dies möglich?
Vielen Dank im vor raus
euer speed

M Merlin
01.08.2012, 08:08
zu 1:

Range("K5").Select
ActiveCell.FormulaR1C1 = Now


zu 2:

Sub Button()
Dim MyDate As String

MyDate = Range("K5").Value
If Not MyDate = "" Then
Range("L5").Select
ActiveCell.FormulaR1C1 = CDate(MyDate) + 7 '7für eine Woche 14 für 2 Wochen
Selection.FormatConditions.Add Type:=xlTimePeriod, DateOperator:=xlToday
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End If
End Sub

Erich G.
01.08.2012, 12:02
Hi zusammen,
so würde ich das formulieren:Option Explicit

Sub aTest()
Range("K5").Select
ActiveCell.FormulaR1C1 = Now

' Alternativen:
Range("K5").FormulaR1C1 = Now ' ohne Select
Range("K5").FormulaR1C1 = Date ' ohne aktuelle Uhrzeit
Range("K5").Value = Date
Range("K5") = Date
End Sub

Sub Button()
Dim MyDate As Date ' Warum Datum als String deklarieren?

MyDate = Range("K5").Value
If MyDate > 0 Then
With Range("L5")
.Value = MyDate + 7 '7 für eine Woche, 14 für 2 Wochen
.FormatConditions.Delete
.FormatConditions.Add Type:=xlTimePeriod, DateOperator:=xlToday
With .FormatConditions(1)
.Font.Color = -16776961
.StopIfTrue = False
End With
End With
End If
End Sub

speed011087
01.08.2012, 14:01
Vielen Dank, es hat funktioniert. Jetzt nur noch warten, bis das Datum (nur Datum, ohne Uhrzeit) Rot wird und dann bin ich Stolz =)

Ist es auch möglich:
Ich hab in der Zeile L2 das Datum stehen, dies soll sich aber nur aktualisieren, wenn man die Tabelle abspeichert...

M Merlin
01.08.2012, 15:37
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("L2").FormulaR1C1 = Now 'oder Date für nur Datum
End Sub

speed011087
01.08.2012, 16:03
Danke für eure schnelle Antworten.

Nur hab ich jetzt ein Problem:
in der Zeile L2 erscheint kein Datum. mache ich was falsch?

M Merlin
01.08.2012, 16:14
Wo hast du denn das Makro plaziert...???
Es gehört im VBA-Teil unter diese Arbeitsmappe !!!

speed011087
01.08.2012, 16:21
Ja, hab ich in ,,diese Arbeitsmappe"
kommt: fehler beim komplimieren.

Sub Speichern()
'
' Speichern Makro
'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("L2").FormulaR1C1 = Now 'oder Date für nur Datum
End Sub

speed011087
01.08.2012, 16:23
Das Datum soll sich nur ändern, wenn ich per Button auf Speichere klicke und dann soll sich die komplette Tabelle abspeichern!

M Merlin
01.08.2012, 20:50
Ich kann nicht sagen wo dein Fehler ist....
...aber wenn du das Makro dort eingetragen hast, wo ich das beschrieben hab, funktioniert es....!!!!

Als Anlage ein Beispiel

speed011087
02.08.2012, 06:39
Fehler beim Kompilieren. End Sub erwartet
erscheint bei mir.
Das macht man doch unter Makro aufzeichnen unter: Makro speichern in... oder bin ich da falsch?

M Merlin
02.08.2012, 07:56
Hast du meine Beispieldatei mal runtergeladen...???

Funktioniert das bei dir...????

-snoopy-
02.08.2012, 08:35
Hi,

da fehlt das End Sub am Ende des CODE´s

Sub blabla ()

.... dein CODE

End Sub

M Merlin
02.08.2012, 08:52
Wo fehlt hier das end Sub

-snoopy-
02.08.2012, 08:59
Hi M Merlin,

nicht bei DIR, sondern bei speed011087 :)

speed011087
02.08.2012, 14:48
-snoopy-: aber wenn du mal oben schaust, da steht: End Sub
Genau so habe ich es und es geht einfach nicht

mücke
02.08.2012, 14:56
Moin ?

wenn bei Dir End Sub stehen würde, würdest Du die Fehlermeldung Fehler beim Kompilieren. End Sub erwartet nicht erhalten.
Wir können hier noch Tage rätseln, oder Du lädst (D)eine Beispielmappe (mit der entsprechenden Fehlermeldung) hier hoch ;)