Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
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
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WSFunction.Countif mit Datum und Zeit

WSFunction.Countif mit Datum und Zeit
Peter
Guten Tag
Im Range "rUebermittlungszeit" habe ich verschiedene Zeiten eingetragen (mit NOW - ergibt z.B. 16.08.2012 16:40:59)
Der Date-Variable TimeUE habe ich folgendes weise ich folgendes zu:
timeUE = tabSLA.Cells(zeEintrag, spDat) + Range("versand_vor") 'Datum und Uhrzeit
im Direktbereich abgefragt erhalte ich beispielsweise
?timeUE
06.08.2012 12:00:00
Nun meine Frage:
Was ist an den untenstehenden Codezeilen mit .Value falsch?
Das Ergebnis gibt beide Male null, obwohl ich vier Einträge habe.
Danke für jeden Hinweis.
Gruss, Peter
With tabSLA.Cells(zeEintrag, spIn)
.Value = Application.WorksheetFunction.CountIf(rUebermittlungszeit, " .HorizontalAlignment = xlRight
.NumberFormat = "0"
End With
With tabSLA.Cells(zeEintrag, spOff)
.Value = Application.WorksheetFunction.CountIf(rUebermittlungszeit, ">=" & timeUE)
.HorizontalAlignment = xlRight
.NumberFormat = "0"
End With

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: WSFunction.Countif mit Datum und Zeit
17.08.2012 10:51:47
hary
hallo
ungetestet. 
CountIf(rUebermittlungszeit, "

gruss hary
AW: WSFunction.Countif mit Datum und Zeit
17.08.2012 11:04:53
{Boris}
Hi Peter,
rUebermittlungszeit ist wohl eine benamte Zelle - und somit musst Du sie auch mit Range("rUebermittlungszeit") ansprechen.
Tipp: Mit Option Explicit wär Dir das selbst aufgefallen ;-))
VG, Boris
AW:@Boris
17.08.2012 11:07:30
hary
Hallo Boris
da hab ich sowas von gepennt. ;-)
Trink noch ein Bier auf dem Balkon.
gruss hary
AW: WSFunction.Countif mit Datum und Zeit
17.08.2012 11:25:13
Peter
Hallo Boris
Danke für den Hinweis.
Hier habe ich jedoch der Variable rUebermittlungszeit einen Range zugewiesen:
Set rUebermittlungszeit = tabTag.Range(tabTag.Cells(Range("zeStartAll").Row, Range("spUE").Column), tabTag.Cells(Range("zeEndAll").Row, Range("spUE").Column))
und Option Explicit steht auch vorne im Code.
Der Vorschlag von Hary hat noch nicht die Lösung gebracht. Die CLng-Funktion wandelt einen Ausdruck in den Datentyp Long um. Ich muss jedoch genaue Zeiten vergleichen.
Ich habe daher meinen Code in der hochgeladenen Mappe nochmals nachgebaut.
Beide Abfragen müssten mir den Wert 2 ergeben.
Vielen Dank und Gruss, Peter
https://www.herber.de/bbs/user/81462.xlsm
Anzeige
Komma und Punkt
17.08.2012 13:45:15
Erich
Hi Peter,
VBA spricht englisch. Probier mal 

With tabSLA.Cells(zeEintrag, spIn)
.Value = Application.WorksheetFunction.CountIf(rUebermittlungszeit, _
"=" & Replace(CDbl(timeUE), ",", "."))
.HorizontalAlignment = xlRight
.NumberFormat = "0"
End With
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
AW: Komma und Punkt
17.08.2012 14:01:58
Peter
Hallo Erich
Vielen Dank, das ist grossartig.
Beinahe hätte ich schon ein Workarround mit "Evaluate" erstellt; das ist jetzt glücklicherweise nicht mehr notwendig.
Trotzdem ist mir das mit Komma und Punkt noch nicht klar.
Wenn ich den Code anhalte und im Direktbereich
?CDbl(timeUE)
eingebe, erhalte ich 41127.5
Heist das, dass Excel die serielle Zahl zwar 41127.5 (mit Punkt) im Direktbereich ausgibt, intern aber mit 41127,5 (Komma) rechnet?
Gruss, Peter
Anzeige
AW: Komma und Punkt
17.08.2012 15:46:10
Hajo_Zi
Hallo Peter,
der Punkt ist ein Komma in VBA, mit Deutschen Excel.

AW: Komma und Punkt
17.08.2012 15:50:28
Peter
Hallo Hajo und Erich
Das ist erstaunlich.
Selbst wenn mir im Direktbereich etwas anderes geliefert wird.
Was gibt es dann für einen Trick um festzustellen, dass das so ist.
Bei "normalen" Zahlen ist ja das nicht so. Gilt dies nur bei seriellen Zahlen oder gibt es andere Beispiele?
Gruss, Peter
AW: Komma und Punkt
17.08.2012 17:06:10
Erich
Hi Peter,
in der Gegend waren wir schon mal: https://www.herber.de/forum/archiv/1232to1236/t1235928.htm#1235979
Da steht u.a.:
der Begriff "serielle Zahl" taucht im Zusammenhang mit dem Datum (vor allem bei Office-Programmen) häufig auf.
Aber: Was eigentlich ist eine "serielle Zahl"? Und noch spannender: Was ist eine "nicht serielle Zahl"?
Du sollst mir diese Fragen nicht beantworten - ich wollte sie nur mal in den Raum stellen.
Und da stehen sie jetzt... :-)
sondern fälschlicherweise mit "serielle Zahl" übersetzt.
Tatsächlich sind die Zahlen ja Seriennummern der Tage ab 31.12.1899.
Schau dir mal die Ausgaben dieser Prozedur an: 

Sub atPeter()
Dim dat As Date
dat = 41111.7
MsgBox dat
MsgBox CDbl(dat)
MsgBox CStr(CDbl(dat))    ' liefert ein Komma
' so ist der Vergleichswert richtig (ausführlich)
MsgBox Replace(CStr(CDbl(dat)), ",", ".")
' so steht er kürzer in der Formel - CStr() wird automatisch ausgeführt,
' denn Replace erwartet einen String, kein Double als Parameter.
MsgBox Replace(CDbl(dat), ",", ".")
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
AW: Komma und Punkt
20.08.2012 22:11:46
Peter
Hallo Erich
Ich habe schon mehrmals gestaunt, wie du die vergangenen Einträge im Griff hast. Da bin ich schon etwas neugierig, wie du das schaffst ...
Vielen Dank auch für den Code.
Interessant ist, dass bei mir nachfolgende Zeile nicht ein Komma, sondern ein Punkt liefert - ich nehme an, dass hat mit der Ländereinstellung zu tun.
MsgBox CStr(CDbl(dat)) ' liefert ein Komma
Gruss, Peter
AW: Komma und Punkt - kleine Doku
21.08.2012 07:08:16
Peter
Hallo Erich
Ich habe die Ergebnisse mit Debug.Print ausgegeben. Unterhalt des Code sind die Ergebnisse aus dem Direktbereich aufgeführt.
Sub atPeter()
Dim dat As Date
dat = 41111.7
Debug.Print "A " & dat:  'MsgBox dat
Debug.Print "B " & CDbl(dat) ''MsgBox CDbl(dat)
Debug.Print "C " & CStr(CDbl(dat)) 'MsgBox CStr(CDbl(dat))    ' liefert ein Komma
' so ist der Vergleichswert richtig (ausführlich)
Debug.Print "D " & Replace(CStr(CDbl(dat)), ",", ".")  'MsgBox Replace(CStr(CDbl(dat)), ",",  _
".")
' so steht er kürzer in der Formel - CStr() wird automatisch ausgeführt,
' denn Replace erwartet einen String, kein Double als Parameter.
Debug.Print "E " & Replace(CDbl(dat), ",", ".")    '''MsgBox Replace(CDbl(dat), ",", ".")
End Sub
A 21.07.2012 16:48:00
B 41111.7
C 41111.7
D 41111.7
E 41111.7
Anzeige

311 Forumthreads zu ähnlichen Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
Anzeige
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Uhrzeit als Text
Herbert

Hallo,
in meiner Tabelle in Zelle A1 steht das Datum und die Uhrzeit z.B. "14.10.2008 07:00".
Ich möchte in der Zelle B1, dass nur die Uhrzeit erscheint. Diese muss aber im Textformat hinterlegt sein.
Bin für jede Hilfe dankbar.
Gruß Herbert
15.10.2008 11:20:00
Thread-ID: 1016508
5 Beiträge
Anzeige
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 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
5
1
4
10
4
1
12
4
3
1
2
2
2
3
1
5
3
2
7
1
2
9
4
2