PC-Zeit

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: PC-Zeit

10.12.2008 08:31:04

Wenderhold

AW: PC-Zeit

10.12.2008 08:40:54

Jürg

AW: PC-Zeit

10.12.2008 08:52:16

Walter

AW: PC-Zeit

10.12.2008 09:01:17

Jürg

AW: PC-Zeit

10.12.2008 09:01:00

Jürg

AW: PC-Zeit

10.12.2008 10:29:36

Steffen

AW: PC-Zeit

10.12.2008 10:55:00

Jürg

AW: PC-Zeit

10.12.2008 11:05:00

UweD

AW: PC-Zeit

10.12.2008 11:14:59

Jürg

AW: PC-Zeit

10.12.2008 11:53:24

UweD

AW: PC-Zeit

10.12.2008 12:04:00

Jürg

AW: PC-Zeit

10.12.2008 13:19:00

Jürg

Hallo
- Eingaben in A3 und A4 werden überwacht
- wenn in einer der beiden Zellen eine 1 oder 2 eingetragen wird, werden die Zeiten entsprechend eingetragen.

- Alt+F11 öffnet den VBEditor
- Strg#R öffnet den Projekt Explorer
- in den Codebereich der Tabelle (Tabelle1) den Code kopieren

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A3:A4")) Is Nothing Then
        Dim Zeile%
        If Target <> 1 And Target <> 2 Then Exit Sub 'nur 1 und 2 zulässig
        Zeile = IIf(Target = 1, 3, 4)
        Application.EnableEvents = False
        [A3] = 1: [A4] = 2
        Cells(Zeile, 52) = Time
    End If
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
    Application.EnableEvents = True
End Sub

Gruß
UweD

Hallo nochmal
dann so....

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Dim Sp%, TB, LR1&, LR2&, Z&
        Set TB = ActiveSheet
        If Target <> 1 And Target <> 2 Then Exit Sub 'nur 1 und 2 zulässig
        LR1 = TB.Cells(Rows.Count, 3).End(xlUp).Row 'letzte Zeile der Spalte
        LR2 = TB.Cells(Rows.Count, 4).End(xlUp).Row 'letzte Zeile der Spalte
        Z = LR1
        If LR2 - LR1 = 0 And Target = 1 Then 'Anfang und Ende vorhanden; neuer Anfang
                Z = LR1 + 1
        ElseIf LR2 - LR1 < 0 And Target = 1 Then 'Endezeit fehlt
                MsgBox "Endezeit fehlt, Bitte erst beenden"
                Exit Sub
        ElseIf LR2 - LR1 > 0 And Target = 2 Or _
               LR2 - LR1 = 0 And Target = 2 Then 'Startzeit fehlt
                MsgBox "Startzeit fehlt, Bitte erst starten"
                Exit Sub
        End If
        Sp = IIf(Target = 1, 3, 4)
        Application.EnableEvents = False
        TB.Cells(Z, Sp) = Now
    End If
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
    Application.EnableEvents = True
End Sub

Gruß UweD

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread