Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Uhrzeiteingabe - nach 00:00 Uhr

Makro Uhrzeiteingabe - nach 00:00 Uhr
lutz
Hallo Excel Spezialisten,
ich habe eine Arbeitszeiterfassung "geerbt" und würde da gerne etwas umstellen.
Im Moment gibt man in die Blätter "Jan", "Feb"... in die Spalte E die Anfangszeit und in Spalte F die Endzeit der Schicht ein.
Das Programm ist derzueit so, dass man in Salte F die Endzeit auf 25:00 eingibt um 01:00 zu berechnen. D.h. Uhrzeiten über 00:00 Uhr müßen immer mit +24:00 eingegeben werden.
Weil dahinter zig Zuschläge mit zig Wenn-Formeln berechnet werden, müßte ich das komplette Programm umbauen wenn ich das ändern wollte ( habe schon mal vorne mit =WENN(E11="";"";WENN(E11 Daher die Frage: kann man im Zellbereich F11:F41 ein Makro im Worksheet laufen lassen, das bei Eingabe > Spalte E dann 24:00 dazuaddiert?
Beispiel: wenn in Spalte E 22:30 steht und in Spalte F dann 02:00 eingeben wird, sollte das Makro das in 26:00 umschreiben.
Ist das möglich?
Vielen Dank für Eure Hilfe und viele Grüße Lutz

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro Uhrzeiteingabe - nach 00:00 Uhr
26.03.2012 12:19:37
Tino
Hallo,
kannst mal diesen Code testen ob er so funktioniert.
Kommt als Code in die Tabelle
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, rngTmp As Range, varArray, ArrAus(), n&

Set rng = Intersect(Range("E:F"), Target)
If rng Is Nothing Then Exit Sub

Application.EnableEvents = False
For Each rng In Target.Areas
    Set rngTmp = rng.Columns(1)
    If rngTmp.Column = 5 Then Set rngTmp = rngTmp.Offset(, 1)
    varArray = rngTmp.Offset(, -1).Resize(, 2)
    Redim ArrAus(1 To Ubound(varArray), 1 To 1)
    For n = 1 To Ubound(varArray)
        ArrAus(n, 1) = varArray(n, 2)
        If varArray(n, 1) <> "" Then
            If varArray(n, 2) <> "" Then
                If varArray(n, 1) > varArray(n, 2) Then
                    If IsNumeric(varArray(n, 1)) And IsNumeric(varArray(n, 2)) Then
                        ArrAus(n, 1) = varArray(n, 2) + 1
                    End If
                End If
            End If
        End If
    Next n
    rngTmp.Value = ArrAus
    Erase ArrAus
Next rng
Application.EnableEvents = True
End Sub
Fruß Tino
Anzeige

167 Forumthreads zu ähnlichen Themen

mit Uhrzeiten rechnen
Nina

Hallo,
ich stehe vor einem Problem mit Uhrzeiten.
Ich habe Aufträge die von 00:00 - 00:00 Uhr laufen, also 24 Std.
Ich möchte jetzt filtern an verschiedenen Tagen, wieviele Mitabeiter ich in in drei Schichten (Früh z.b. 05:00 - 13:00,Spät 13:00 - 21:00,und Nachtdienst 21:00 - 05:00)...
03.11.2008 11:26:40
Thread-ID: 1021288
4 Beiträge
Anzeige
rechnen mit Uhrzeit und negativer Darstellung
Monika

Hallo,
ich habe im Archiv nichts dazu gefunden. Ich muss verschiedenen Uhrzeiten miteinander summieren und abziehen. Wenn nun negative Summen herauskommen (z.B.: -4:30) werden nur Rauten dargestellt. Wie bekomme ich negative Uhrzeiten mit Minuszeichen angezeigt?
Danke
Monika
10.02.2009 08:00:04
Thread-ID: 1048868
10 Beiträge
Rechnen mit Uhrzeit
Rosi

Hallo Forum,
in einer Tabelle führe ich Anwesenheitszeiten.
(Arbeitsende minus Arbeitsbeginn minus Unterbrechung ergibt eine Anwesenheitszeit;minus der Soll-Arbeitszeit ergibt eine Überzeit!)
Diese Überzeit möchte ich im Format "Stunden:Minuten" abgezeigt bekommen,z.Zt.wird sie Dezi...
08.12.2009 06:37:14
Thread-ID: 1122323
12 Beiträge
Anzeige
Rechnen mit Uhrzeit
Stefan

Hallo zusammen,
ich möchte mit Stunden und Minuten rechnen, verzettele mich aber immer wieder bei der Komplexität:
A1 enthält ein Datum (z. B. 09.04.2010)
B1 enthält den Wochentag (mit der Funktion WOCHENTAG(A1))
C1 hier wird eine Uhrzeit (Anfang Rufbereitschaft) eingegeben, z....
13.04.2010 10:24:00
Thread-ID: 1151357
8 Beiträge
Rechnen mit Datum/uhrzeit und Zeitdifferenz
Reinhard

Moin Spezialisten,
ich komme mal wieder nicht weiter.
Ich habe folgende Daten:
Spalte A: Datum Uhrzeit (z.B. 15.05.10 09:45)
Spalte F: Spalte A - 00:45
Spalte G: Spalte A + 03:30
Nun möchte ich in Spalte H eine Aussage, ob die Uhrzeiten (also unabhängig vom Datum) aus Sp...
14.04.2010 09:19:39
Thread-ID: 1151664
3 Beiträge
Zeiten über 24 Stunden hinaus anzeigen
siegfried

Hallo zusammen,
ich berechne den Zeitaufwand aufgrund unterschiedlicher Ausgangswerte.
Sobald die Zeit größer als 24 Stunden beträgt, beginnt die Anzeige wieder von vorne.
Ich möchte aber die Zeit so anzeigen, dass ich erkenne, ob der nächste Tag angebrochen ist.
Wie geht das?
08.05.2010 13:19:53
Thread-ID: 1156190
3 Beiträge
Uhrzeit aus Stunden erstellen....
Bernd

Hello @ all
brauch auch mal wieder etwas Hilfe von euch Excel Göttern ;)
Aufgabe:
Ich habe in der Zelle C1 eine Stundeneingabe 3 z. B. daraus soll sich in A1 7:00 und in B1 10:00 ergeben,
wenn ich in C2 2 eingebe soll sich in A2 10:00 und in B2 12:00 ergeben usw ...
habt Ihr...
10.08.2010 22:30:52
Thread-ID: 1171609
3 Beiträge
Rechnen mit 2 negativen Uhrzeiten
Nina

Hallo,
letzte Woche habe ich hier schon einmal etwas angefragt wegen texte in Uhrzeiten umwandeln.
Funktioniert super und sieht auch gut aus.
Jetzt habe ich noch eine Frage. Ich muss 2 negative Zahlen von einandern subtrahieren und diese stehen auch ungeähr 30 Spalten von der Berec...
01.02.2011 14:39:18
Thread-ID: 1198448
11 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
10
9
11
2
7
2
2
2
10
5
6
9
7
5
7
4
3
4
12
3
2
2
9
4