Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zeilen zählen wenn zeit von bis

zeilen zählen wenn zeit von bis
21.04.2004 07:52:34
FPH
Hallo Ihr Lieben,
ich wende mich an heute an Euch da ich ein Problem habe das ich alleine nicht bewältigen kann. Mir raucht die Birne !!
Ich habe eine Datei die über SAP R3 als xls file gespeichert wird.
In dieser Datei habe ich die Daten LS Nr , Erst Dat, erst Zeit, WA Datum, WA zeit. Ich muss nun eine Tägliche Auswertung erstellen die mir sagt wieviel LS gebucht worden sind und wieviele nicht. Allerdings geht die liste über 2 Tage.
Berechungs sollte wie folgt aussehen:
Alle FS die vom vortag nach 14:59:59 Uhr erstllt sind und am nächsten Tag nicht bis 18:00:00 gebucht sind sind "OUT" alle anderen sind "IN".
Kann mir jemand helfen ?? wenn es geht möchte ich das über Auto_open realisieren

danke für Eure hilfe.

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeilen zählen wenn zeit von bis
21.04.2004 11:03:10
OliveR
Hi FPH????
ein Name wäre mir lieber. Egal.

Sub workbook_open()
Dim mytime
Dim myColumn%, myname$
myColumn = 3 'Bitte die gewünschte Spalte eintragen
myname = "Sheet1" 'Bitte Sheetnamen eingeben
mytime = #3:00:00 PM#
lR = Worksheets(myname).Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lR Step 1
If Cells(i, 1) < Date Then
If Cells(i, 2) < mytime Then
Cells(i, myColumn) = "OUT"
Else
Cells(i, myColumn) = "IN"
End If
ElseIf Cells(i, 1) = Date Then
Cells(i, myColumn) = "IN"
End If
Next i
End Sub

Gruß
Oliver
AW: zeilen zählen wenn zeit von bis
21.04.2004 12:03:44
Fph
Hallo Oliver

soory ersteinmal mein name ist Franz.
Der code sieht gut aus allerdings brauche ich nach eine Erweiterung und zwar wenn die WA Zeit 00:00:00 ist muß ebenfalls out ausgegeben werden.
kannst du mir hierzu auch noch die Erweiterung des Codes schicken
danke Franzel
Anzeige
AW: zeilen zählen wenn zeit von bis
21.04.2004 12:14:06
PliveR
Hi Franz, ;-)
Here we go
Gruß
Oliver

Sub workbook_open()
Dim mytime1, mytime2
Dim myColumn%, myname$
myColumn = 6 'Bitte die gewünschte Spalte eintragen
myname = "Sheet1" 'Bitte Sheetnamen eingeben
mytime1 = #3:00:00 PM#
mytime2 = #12:00:00 AM#
lR = Worksheets(myname).Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lR Step 1
If Cells(i, 2) < Date Then
If Cells(i, 3) < mytime1 Or Cells(i, 5) = mytime2 Then
Cells(i, myColumn) = "OUT"
Else
Cells(i, myColumn) = "IN"
End If
ElseIf Cells(i, 1) = Date Then
Cells(i, myColumn) = "IN"
End If
Next i
End Sub

Anzeige
AW: zeilen zählen wenn zeit von bis
21.04.2004 13:34:30
FPH
Hallo Oliver,
der code funktionert soweit allerdings nicht mit dem Ergebniss wie ich es erwartet habe.
Wenn ich mir das ding so ansehe könntest das recht komplex werden. Ich glaube ich muss aufgeben und alle auswertungen von hand machen. Ich möchte dich ja nicht wochen lang mit meinen Problemen belästigen.
Ach ja damit du auch verstehst warum ich das handtuch werfe hier noch ein paar gründe.
Bei uns werden den ganzen tag über Lieferscheine erstellt, wir müssen alle Lieferungen die am gleichen Tag bis 15:00 Uhr erstllt werden bis1 8:00 Buchen und ausliefern. Alle Lieferscheine die nach 15:00 Uhr erstllt sind gelten dann für den nächsten tag.
Ich wollte über den code erreichen das ich die anzahl der FS angezeigt bekomme die In und die out sind , aber es gibt ha auch noch Wochenenden
Also ein Lieferschein wird Freitag nach 15:00 Uhr erstellt geht aber erst am Montag Raus ???? so nun kennst du mein Problem !!
Anzeige
AW: zeilen zählen wenn zeit von bis
21.04.2004 13:43:03
OliveR
Hallo Franz,
am Besten wäre natürlich, wenn Du Deinen File posten könntest, damit man den Aufbau besser sieht.
Gruß
Oliver
AW: zeilen zählen wenn zeit von bis
21.04.2004 14:09:41
FPH
Hallo Oliver
hier ist die datei wenn du fragen hast kannst du ja mailen ich denke aber das wird nicht einfach!!
AW: zeilen zählen wenn zeit von bis
21.04.2004 19:38:00
fph
Hallo Oliver,
ich bin etwas erschlagen von dem Code da brauche ich einige Zeit für bis ich dahinter
gestiegen bin. Allderings liegst du mit der AUswertung nicht ganz richitg und zwar
wenn ein LF am Freitag nach 15 Uhr erstellt wurde gilt dieser LS erst wieder für
den darauf folgenden Montag
LF Erst DAT Erst Zeit WA Dat WA Zeit
OUT 2001649051 19.04.2004 17:36:42 21.04.2004 09:44:39 Out, da eigentlich der 21.04. WA war
Also dieser LF wurde Fr.nach 15 Uhr erstellt und am Motag 9:44 gebucht also vor
18 Uhr am 21.04. somit ist dieser LF in, wäre der LF am Montag nicht gebucht worden
also WA Zeit 00:00 dann wäre er out so ist er in
ist etwas kompliziert nicht war ??
ich hoffe du kannst mir noch einen weitern anzatz liefern ??
danke vor ab schon einmal.
PS: Hast du eine eigen Homepage ??
gruß franzel
Anzeige
AW: zeilen zählen wenn zeit von bis
22.04.2004 08:47:37
OliveR
Hallo Franz,
ich hatte mich vertan, der 19.04. war ein Montag, somit wurde am 21. einem Mittwoch ausgeliefert. Somit OUT.. oder??
Eine weitere Frage ist, ob der Samstag auch ein freier Tag ist.

Gruß
Oliver
AW: zeilen zählen wenn zeit von bis
22.04.2004 14:19:42
FPH
Hallo Oliver

zu deiner frage Ja ist richtig Montags erstllt mittwoch ausgebucht ist out wenn der DI kein Feiertag war.
Samstag und sonntag sind ebenso wie feiertage zu behandeln da wir nicht am Wochende und an feiertagen arbeiten . Bekommen wir / Du das hin ????

gruß Franzel
AW: zeilen zählen wenn zeit von bis
22.04.2004 14:42:08
OliveR
Hi Franz,
das müsste es jetzt gewesen sein.
Gruß Oliver

Sub workbook_open()
Dim mytime1, mytime2, sh
Dim ERdate As Date, ERtime, WAdate As Date, WAtime
Dim myColumn%, myname$
myColumn = 1 'Bitte die gewünschte Spalte eintragen
myname = "tabelle2" 'Bitte Sheetnamen eingeben
mytime1 = FormatDateTime(#3:00:00 PM#)
mytime2 = FormatDateTime(#12:00:00 AM#)
mytime3 = FormatDateTime(#6:00:00 PM#)
Set sh = Worksheets(myname)
lR = sh.Cells(Rows.Count, 2).End(xlUp).Row
flR = Sheets("Feiertage").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lR Step 1
ERdate = sh.Cells(i, 3)
WAdate = sh.Cells(i, 5)
ERtime = FormatDateTime(sh.Cells(i, 4))
WAtime = FormatDateTime(sh.Cells(i, 6))
fday = ERdate + 1
For j = 1 To flR Step 1
If Left(fday, 5) = Left(Sheets("Feiertage").Cells(j, 1), 5) Then
adday = Sheets("Feiertage").Cells(j, 2) + 1
Exit For
ElseIf Weekday(fday) = 7 Then
adday = 3
Else
adday = 2
End If
Next j
If WAtime = mytime2 Then
sh.Cells(i, myColumn) = "OUT"
ElseIf ERdate <= WAdate Then
If WAdate - ERdate <= adday Then
If WAtime > mytime3 Then
sh.Cells(i, myColumn) = "OUT"
Else
sh.Cells(i, myColumn) = "IN"
End If
ElseIf WAdate - ERdate > adday Then
sh.Cells(i, myColumn) = "OUT"
ElseIf WAdate = Date Then
If WAtime <= mytime3 Then
sh.Cells(i, myColumn) = "IN"
Else
sh.Cells(i, myColumn) = "Out"
End If
End If
End If
Next i
End Sub

Anzeige
AW: zeilen zählen wenn zeit von bis
22.04.2004 15:10:24
OliveR
Hi Franz,
Hier war noch ein Fehler versteckt. adday muss 1 sein.
Gruß Oliver

...
ElseIf Weekday(fday) = 7 Then
adday = 3
Else
adday = 1 'hier 1!!!!
End If
Next j
AW: zeilen zählen wenn zeit von bis
22.04.2004 21:18:37
FPH
Hall Oliver,,
erst mal danke in meiner Testdatei sieht alles gut aus morgen früh
werden iwr dann den Härtetest machen, ich gebe dir bescheid wie das ergebniss
ist. Kann ich ggf. wenn ich probleme habe nochmals auf dich zukommen ??
wie kann ich dich erreichen nur über das Forum ??
danke franzel
AW: zeilen zählen wenn zeit von bis
22.04.2004 21:26:56
FPH
Hall Oliver,,
erst mal danke in meiner Testdatei sieht alles gut aus morgen früh
werden iwr dann den Härtetest machen, ich gebe dir bescheid wie das ergebniss
ist. Kann ich ggf. wenn ich probleme habe nochmals auf dich zukommen ??
wie kann ich dich erreichen nur über das Forum ??
danke franzel
Anzeige
AW:Jetzt aber nichts vergessen...
23.04.2004 10:11:03
OliveR
Hi Franz,
hatte vergessen, dass nach einem Feiertag auch Wochenenden sein können bzw. andersrum.
Gruß
OliveR
Dim mytime1, mytime2, mytime3, sh
Dim ERdate As Date, ERtime, WAdate As Date, WAtime
Dim myColumn%, myname$, fday, lR, flR, adday%, westat%, fstat%

Sub workbook_open()
westat = 0
fstat = 0
myColumn = 1 'Bitte die gewünschte Spalte eintragen
myname = "tabelle2" 'Bitte Sheetnamen eingeben
mytime1 = FormatDateTime(#3:00:00 PM#)
mytime2 = FormatDateTime(#12:00:00 AM#)
mytime3 = FormatDateTime(#6:00:00 PM#)
Set sh = Worksheets(myname)
lR = sh.Cells(Rows.Count, 2).End(xlUp).Row
flR = Sheets("Feiertage").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lR Step 1
adday = 1
ERdate = sh.Cells(i, 3)
WAdate = sh.Cells(i, 5)
ERtime = FormatDateTime(sh.Cells(i, 4))
WAtime = FormatDateTime(sh.Cells(i, 6))
fday = ERdate + 1
proof_feier (fday)
If WAtime = mytime2 Then
sh.Cells(i, myColumn) = "OUT"
ElseIf ERdate <= WAdate Then
If WAdate - ERdate <= adday Then
If WAtime > mytime3 Then
sh.Cells(i, myColumn) = "OUT"
Else
sh.Cells(i, myColumn) = "IN"
End If
ElseIf WAdate - ERdate > adday Then
sh.Cells(i, myColumn) = "OUT"
ElseIf WAdate = Date Then
If WAtime <= mytime3 Then
sh.Cells(i, myColumn) = "IN"
Else
sh.Cells(i, myColumn) = "Out"
End If
End If
End If
Next i
End Sub



Function proof_feier(fday)
For j = 1 To flR Step 1 'prüfe ob Feiertage
If Left(fday, 5) = Left(Sheets("Feiertage").Cells(j, 1), 5) Then
adday = Sheets("Feiertage").Cells(j, 2) + adday
fday = fday + Sheets("Feiertage").Cells(j, 2)
Exit For
End If
Next j
If Weekday(fday) = 7 Then 'prüfe ob Samstag
adday = adday + 2 'addiere zu evtl. Feiertagen
fday = fday + 2
proof_feier (fday)
ElseIf Weekday(fday) = 1 Then 'prüfe ob Sonntag
adday = adday + 1
fday = fday + 1
proof_feier (fday)
Else
adday = adday
End If
End Function

Anzeige
AW: AW:Jetzt aber nichts vergessen...
23.04.2004 10:28:31
FPH
Hallo Oliver,
ich bekomme bei der Funktion bei if weekday(fday) = 7 Then
die fehlermeldung im Debug Laufzeitfehler 17 Typen unverträgöich ????????????
kann den code so nicht probieren hast du eine Idee?
mfg
Fph
AW: AW:Jetzt aber nichts vergessen...
23.04.2004 11:11:11
OliveR
Hi Franz,
bitte diesen Teil oben reinnehmen.
Gruß
OliveR
Dim mytime1, mytime2, mytime3, sh
Dim ERdate As Date, ERtime, WAdate As Date, WAtime
Dim myColumn%, myname$, fday, lR, flR, adday%, westat%, fstat%
AW: AW:Jetzt aber nichts vergessen...
23.04.2004 12:09:15
FPH
Hallo Oliver,
es ist geschaft suppppppppppper geile zick
es geht einfach super vielen dank für deinen Monstercode
danke
franzel
Anzeige
AW: AW:Jetzt aber nichts vergessen...
23.04.2004 10:33:37
fph
Hallo Oli,
nochmals ich die Variable (fday) bringt mir den 19042005 ?? dieses datum ist in meinem Sheet aber nicht voerhanden deshalb läuft die funktion glaube ich auch auf den hammer ?
danke franzel
AW: zeilen zählen wenn zeit von bis
21.04.2004 19:55:14
fph
Hallo Oliver,
ich bin etwas erschlagen von dem Code da brauche ich einige Zeit für bis ich dahinter
gestiegen bin. Allderings liegst du mit der AUswertung nicht ganz richitg und zwar
wenn ein LF am Freitag nach 15 Uhr erstellt wurde gilt dieser LS erst wieder für
den darauf folgenden Montag
LF Erst DAT Erst Zeit WA Dat WA Zeit
OUT 2001649051 19.04.2004 17:36:42 21.04.2004 09:44:39 Out, da eigentlich der 21.04. WA war
Also dieser LF wurde Fr.nach 15 Uhr erstellt und am Motag 9:44 gebucht also vor
18 Uhr am 21.04. somit ist dieser LF in, wäre der LF am Montag nicht gebucht worden
also WA Zeit 00:00 dann wäre er out so ist er in
ist etwas kompliziert nicht war ??
ich hoffe du kannst mir noch einen weitern anzatz liefern ??
danke vor ab schon einmal.
PS: Hast du eine eigen Homepage ??
gruß franzel
Anzeige

303 Forumthreads zu ähnlichen Themen

Wenn Dann für bestimmte Bereiche
Jan

Hallo,
erstmal möchte ich hallo sagen in diesem tollen Forum und gleich eine Frage zu einer Formel hinterherjagen, an der ich verweifel.
Ich soll für einen Kollegen eine Wenn-Dann Formel erstellen.
Also in etwa sieht es so aus.
In A1 - A30 stehen verschiedene Werte (von 17.500...
09.09.2008 11:32:00
Thread-ID: 1008392
8 Beiträge
Anzeige
Wenn Funktion mit *
Stan

Hallo,
Ich habe eine WENN Funktion eingebaut die prüft Inhalt G2 und dann multipliziert andere Zellen.
Beispiel ==WENN(G2="A12";M2*4;WENN(G2="B12";M2*2;"Fehler")). Es kommen verschiedene Werte nach A und B vor (A12, A22, A27 usw.)
Kann ich nur erste Stelle Abfragen und die nächsten...
21.11.2008 13:27:00
Thread-ID: 1026711
3 Beiträge
WENN Funktion mit mehr als 8 Bezügen
AcJoker

Hallo,
ich versuche eine Exceltabelle zu erstellen bei der in Spalte A etwas steht das 20 Verschieden Werte annehmen kann.
In Spalte B hätte ich gerne im Bezug auf Spalte A einen Wert stehen.
Im Hintergrund z.B. auf AA und AB gibt es eine "Übersetzung" der 20 möglichen Werte von Spa...
03.01.2009 16:13:58
Thread-ID: 1036563
6 Beiträge
Anzeige
Summewenn mit unzusammenhängendem Suchbereich
Sebastian

Hallo allerseits,
ich verzweifle mit meinem müden KOpf gerade an einem sicherlich trivialen Problem: Ich habe eine Tabelle mit ziemlich vielen Spalten. Die Zellen sind entweder leer oder mit einer 1 befüllt. Ich muss zählen, wie oft die 1 in bestimmten Spalten (also NICHT allen) vorkommt. <...
21.04.2009 12:13:29
Thread-ID: 1070011
16 Beiträge
@TommyH: Zelle mit Formel unter VBA hervorheben
Erich

Hi Tommy,
falls du deinen Beitrag nicht mehr findest: https://www.herber.de/forum/messages/1075196.html
Oder im Archiv: https://www.herber.de/forum/archiv/1072to1076/t1075196.htm
Bei beiden findest du auch meinen Vorschlag.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lin...
15.05.2009 07:38:21
Thread-ID: 1075286
2 Beiträge
Wenn Funktion Zahlenbereich auswerten
Alexander

Servus und Hallo,
ein kleines Problem für die Profis.
Ich habe einen Bereich an Zahlen (A2:A35) dort werden täglich Zahlen erechnet.
Wenn also eine Zahl, in diesem Bereich erechnet werden sollte, der unter bsp.: 300 liegt, dann soll eine Warnmeldung in B7 erscheinen.
Wie kann ic...
18.05.2009 11:45:16
Thread-ID: 1075838
4 Beiträge
WENN(von:bis) statt Verschachtelung bzw. Alternat.
Sven

Hola,
bin neu hier und hab gleich mal ein Problem. Wäre super, wenn Ihr ein Tipp habt.
Ich baue gerade eine Datenbank auf (momentan 70 Seiten). Diese soll ständig um Einheitspreis erweitert werden. In den letzten zwei Spalten kann ich die Einheitpreise mit den Massen von Bauvorhaben 1 o...
09.07.2009 19:34:16
Thread-ID: 1087503
20 Beiträge
Wenn Funktion mit Folgewert
giovane293

Hallo, ich bin es nochmal!
Ich komme einfach nicht auf die Lösung:
Ich habe folgende Tabelle:
https://www.herber.de/bbs/user/63085.xls
Nun möchte ich in einer Zelle (z.B. K22) die Zielerreichung eingetragen bekommen, wenn in Spalte B der Eintrag x gewählt wurde. Also Excel soll...
10.07.2009 15:11:29
Thread-ID: 1087710
5 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
7
8
2
5
10
15
1
3
19
4
1
2
14
2
5
8
4
8
2
5
3
8
2
9
3