Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Höchstes, niedrigstes Datum mit Bedingungen

Forumthread: Höchstes, niedrigstes Datum mit Bedingungen

Höchstes, niedrigstes Datum mit Bedingungen
05.11.2016 13:58:08
olga
Hallo,
ich kämpfe darum aus einer Liste das höchste und niedrigste Datum gemäß Vorgabe zu ermitteln.
Bei Auswahl "Hans" und Monat "Februar" müsste das Ergebnis lauten:
vom 03.02.2017 bis 07.02.2017 = 3 Arbeitstage.
Jedoch wird bis zum 01.03.2017 gezählt.
Musterdatei
https://www.herber.de/bbs/user/109225.xlsm
Danke!
Gruß,Olga
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Höchstes, niedrigstes Datum mit Bedingungen
05.11.2016 15:48:49
Sepp
Hallo Olga,
eine Möglichkeit.
Private Sub CommandButton1_Click()
Dim objADO As Object
Dim strSQL As String, strCON As String, strPath As String, strTable As String, strSource As String
Dim lngMinDate As Long, lngMaxDate As Long, lngWorkdays As Long

strPath = ThisWorkbook.FullName

strTable = "Arbeitzeit"

strSource = Sheets(strTable).Range("A1").CurrentRegion.Address(0, 0)

If Mid(strPath, InStrRev(strPath, ".") + 1) = "xls" Then
  strCON = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Extended Properties=Excel 8.0;" & "Data Source=" & _
    strPath & ";"
ElseIf Mid(strPath, InStrRev(strPath, ".") + 1) Like "xls?" Then
  strCON = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Extended Properties=""Excel 12.0;HDR=YES"";" & _
    "Data Source=" & strPath & ";"
End If

If cboMonat <> "" And cboMonteur <> "" Then
  Set objADO = CreateObject("ADODB.Recordset")
  
  strSQL = "select min(Datum) from [" & strTable & "$" & strSource & "] where Monteur = '" & cboMonteur _
    & "' and Monat = '" & cboMonat & "'"
  
  objADO.Open strSQL, strCON, 3, 1
  
  lngMinDate = objADO.Fields(0).Value
  
  objADO.Close
  
  strSQL = "select max(Datum) from [" & strTable & "$" & strSource & "] where Monteur = '" & cboMonteur _
    & "' and Monat = '" & cboMonat & "'"
  
  objADO.Open strSQL, strCON, 3, 1
  
  lngMaxDate = objADO.Fields(0).Value
  
  objADO.Close
  
  lngWorkdays = Application.NetworkDays(lngMinDate, lngMaxDate, Sheets("F").Range("A1:A18"))
  
  lblArbTage.Caption = "vom " & Format(lngMinDate, "dd.mm.yyyy") & " bis " & Format(lngMaxDate, _
    "dd.mm.yyyy") & " = " & lngWorkdays & " Arbeitstage"
End If

Set objADO = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Höchstes, niedrigstes Datum mit Bedingungen
05.11.2016 17:02:48
olga
Hallo Sepp,
Danke, für Deine Antwort. Es funktioniert, aber geht das ganze nicht einfacher.
Bei dem Code steig ich garnicht durch.
Gruß, Olga
AW: Höchstes, niedrigstes Datum mit Bedingungen
05.11.2016 21:05:27
Peter
Hallo Olga,
versuche es mit dem nachfolgenden Code:
Private Sub CommandButton1_Click()
Dim lZeile     As Long
Dim lMinDate   As Long
Dim lMaxDate   As Long
Dim lWorkdays  As Long
Dim Tageges    As Long
lMaxDate = 1
lMinDate = 999999
With ThisWorkbook.Worksheets("Arbeitzeit")
For lZeile = 2 To .Cells(.Rows.Count, 6).End(xlUp).Row
If .Cells(lZeile, 2) = cboMonat And .Cells(lZeile, 6) = cboMonteur Then
If CLng(.Cells(lZeile, 3).Value)  lMaxDate Then _
lMaxDate = CLng(.Cells(lZeile, 3).Value)
End If
Next lZeile
End With
With Sheets("F")
.Cells(2, 9) = CDate(lMinDate)
.Cells(3, 9) = CDate(lMaxDate)
Tageges = .Cells(4, 9)
End With
UFAZ.lblArbTage.Caption = "vom " & Format(lMinDate, "dd.mm.yyyy") & " bis " & Format( _
lMaxDate, "dd.mm.yyyy") & " = " & Tageges & " Arbeitstage"
End Sub
Gruß Peter
Anzeige
AW: Höchstes, niedrigstes Datum mit Bedingungen
06.11.2016 04:06:37
olga
Hallo Peter,
das ist es was ich gesucht habe.
Vielen Dank!
Gruß, Olga

Forumthreads zu verwandten Themen

von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Datum in Formel automatisch
Bernd

Hallo,
könnt ihr mir bei folgender Aufgabe weiterhelfen:
In anhängender Datei ist in Zelle C1 eine Summenformel (=SUMME(B1:B31))
Ich will nun, dass anstatt der Zelle B1 diejenige Zelle in der Spalte B berücksichtigt ist, in der in Spalte A das aktuelle Datum steht.
z.B: Datum:...
04.11.2008 09:54:00
Thread-ID: 1021481
11 Beiträge
Anzeige
Summe von bis, abhängig vom Datum in Zelle C4
bis,

Vielen Dank für eure Hilfe, Beispieldatei ist hier zu finden https://www.herber.de/bbs/user/56782.xls
Hallo liebe Helfer,
ich habe ein Tabellenblatt, mit mehreren Zeilen als im Beispiel angegeben, mit IST-Werten (Monat schon kummuliert) und ein Tabellenblatt mit den PLAN-Werten für jede...
14.11.2008 11:30:00
Thread-ID: 1024502
7 Beiträge
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
Tagesdatum mit Formel einfügen
reiner

Hallo Leute,
durch gleichzeitige Betätigung der Tasten „STRG“ + „.“ kann das unveränderbare Tagesdatum eingefügt werden. Gibt auch es eine Möglichkeit dieses unveränderbare Tagesdatum anstatt Tastenbetätigung per Formel einzufügen?
mfg
reiner
15.03.2009 20:55:18
Thread-ID: 1060539
13 Beiträge
Aktuelles Datum in Formel (mit Inputbox)
StefanS

Hallo zusammen,
habe folgendes Problem:
Mittels der Formel =ZÄHLENWENN(Daten!E:E;" Meine nächste Idee wäre, das Datum mittels Inpubox abzufragen (Eingabe erfolgt durch User).
Sub Auswertung() Dim datum As String datum = InputBox("Datum") Range("B7").Select ActiveCell.FormulaR1C1 =...
21.04.2009 12:49:15
Thread-ID: 1070034
4 Beiträge
Frage zu VBA und zu Formel für Datum
Michael

Ich habe zwei (vermutlich kleine) Probleme die für mich aber schier unlösbar sind.
In der Tabelle1 habe ich in Spalte A Zahlen stehen die nicht sortiert sind und nicht sortiert werden dürfen.
Über ein UserForm möchte ich Daten eintagen in Spalte B,D,R die zu einer bestimmten Zahl gehöre...
15.09.2009 10:04:40
Thread-ID: 1102852
6 Beiträge
Formel Zähle in Spalte wie oft Datum/Jahr
geri

Hallo
suche Formel um in Spalte festzustellen wie oft zB. im Jahr Rechnung geschrieben wurde, in Spalte
habe ich Datum zB. 12.12.2008 und jetzt möchte ich zählen die Anzahl Rechnungen im JAHR 2008 ?
DANKE
Gruss aus CH
21.12.2009 17:22:28
Thread-ID: 1125411
3 Beiträge
Datumsreihe mit Formel generieren
edie

Hallo zusammen,
wenn ich in die Zelle B1 das Startdatum und in die Zelle B2 das Enddatum eingebe soll
in der Spalte A2:A mithilfe einer Formel eine Datumsreihe gebildet werden.
Habe bei der Recherche eine Formel die Monatsweise eine Datumsreihe bildet gefunden:
In A2:=A1
In...
28.12.2009 14:06:20
Thread-ID: 1126067
8 Beiträge
Formel mit Datum | Herbers Excel-Forum
Andy Yomi
Hallo Leute,
kann mir jemand mit einer Formel helfen?
ich habe in einer Zelle ein Datum z.b. 13.10.2009 und in einer Zelle daneben ein zweites Datum z.b. 16.02.2010. Nun möchte ich in einer dritten Zelle die Monate dazwischen haben. Und zwar so, dass der 15. Tag als Abgrenzung gilt. Das hei...
22.01.2010 13:00:18
Thread-ID: 1132073
5 Beiträge
Einzelzellen:Formeln in Werte bei bestimmtem Datum
Nico

Hallo Ihrs :-),
ich habe eine Datei mit 16 Blättern. Nun möchte ich, dass, wenn in Blatt 1 (START) ein bestimmtes Datum in Zelle F6 (rgStart, z.B. "10_2010") eingegeben wird, in 4 bestimmten Blättern jeweils 5 Zellen und in 5 bestimmten Blättern jeweils 4 Zellen die Formeln mit Werten übers...
26.10.2010 17:56:24
Thread-ID: 1183933
2 Beiträge
Datum in Formel vergleichen
Joni

Hallo,
gibt es eine Möglichkeit ein Datum in einer Formel zu vergleichen ohne es als Zahl angeben zu müssen?
=wenn(A1>"31.01.2010";wahr,falsch)
das funktioniert zwar doch 31.12.2010 wird nicht als Datum erkannt
Danke für euere Hilfe.
Gruß Joni
06.12.2010 11:32:07
Thread-ID: 1190215
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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