Problem - Makro zum Formatieren wenn Datum = X
23.08.2017 11:19:08
Johnny
ich versuche im Moment es hinzubekommen dass ich mit VBA eine Datei verändere wenn in einer Zelle ein bestimmtes Datum steht. Habe auch schon viel rumgesucht und probiert aber komme nicht zum Ergebnis. Wahrscheinlich ist es eine ganz einfache Lösung die ich nur als Neuling nicht sehe. Jegliche Hilfe wäre sehr willkommen.
Der Aktuelle Code fürs Makro:
Option Explicit
Sub Makro2()
' Makro2 Makro
Dim wd_Start As Date
Range("A12").Select
Set wd_Start = ActiveCell.Value
If wd_Start = Weekday(5, 2) Then
Rows("4:7").Select
Selection.EntireRow.Hidden = True
Rows("8:11").Select
Selection.EntireRow.Hidden = False
Rows("18:19").Select
Selection.EntireRow.Hidden = True
Rows("34:35").Select
Selection.EntireRow.Hidden = True
Rows("38:39").Select
Selection.EntireRow.Hidden = True
Range("A13").Select
ActiveCell.FormulaR1C1 = "Einkaufen"
With ActiveCell.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Else
End If
End Sub