|
Hallo Zusammen
Schon mal im Voraus Danke für die Hilfe :) Ich bin Neuling was VBA angeht.
Hier meine Ausgangslage und was ich erreichen will:
Ausgangslage
12 Worksheets (Januar bis Dezember)
Spalte A: Datum (Format: 01.01.2017) in der Range von A3:A33
Spalte C: Einstempelzeit_M
Spalte E: Einstempelzeit_N
Ziel
1. Suche im Workbook nach Zelle mit dem Heutigem Datum und lese das Worksheet und die Zeile aus und speichere jene in Variablen
2. Wenn "Einstemelzeit_M" in dieser Zeile = "" => aktuelle Systemzeit (Format: HH:MM) in "Einstempelzeit_M" eintragen
Sonst Wenn "Einstempelzeit_N" = "" => aktuelle Systemzeit in "Einstempelzeit_N" eintragen
Sonst Meldung
Idee
Was ich bis jezt habe:
Dim myWorksheet As Worksheet, myRange As Range, today As Integer, month As String
For Each myWorksheet In ThisWorkbook.Worksheets
With myWorksheets
For Each myRange In .Range("A3:A33")
If myRange.Value = Date Then
today = Selection.Row
month = Selection.Worksheet
|