Thema Datum  Von Nutzer Rating
Antwort
Rot Zeiterfassung: Kommen Button zum Zeit automatisch eintragen
19.03.2017 13:05:15 puddu
NotSolved
19.03.2017 14:24:29 Kai
*****
Solved
19.03.2017 14:49:06 puddu
NotSolved

Ansicht des Beitrags:
Von:
puddu
Datum:
19.03.2017 13:05:15
Views:
217
Rating: Antwort:
  Ja
Thema:
Zeiterfassung: Kommen Button zum Zeit automatisch eintragen

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeiterfassung: Kommen Button zum Zeit automatisch eintragen
19.03.2017 13:05:15 puddu
NotSolved
19.03.2017 14:24:29 Kai
*****
Solved
19.03.2017 14:49:06 puddu
NotSolved