Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:23:45
Gehe zu Tabellenblatt
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1060to1064
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
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsdifferenz ohne Samstag und Sonntag

Datumsdifferenz ohne Samstag und Sonntag
14.03.2009 15:32:37
dirt
Hallo @ all,
mein Problem ist: Ich möchte eine Datumsdifferenz in einer Excel-Tabelle machen. Das müsste in VBA gemacht werden und nicht über eine Formel in Excel.
Ich hab mir jetzt ein einige Bsp angeschaut aber leider nicht wirklich fündig geworden. Es soll eingentlich ganz Simpel ein Datum von dem anderen Datum abgezogen werden, dies aber ohne Samstag und Sonntag und anschließend in eine Zelle geschrieben werden. Ist das Möglich?
Die Formel die ich momentan hab macht das nicht:
Range("S5") = Range("O5") - Range("D5")
Wie erwähnt möchte ich es in VBA haben und nicht z.B. über die NETTOARBEITSTAGE() Formel.

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsdifferenz ohne Samstag und Sonntag
14.03.2009 15:39:12
Josef
Hallo schmutz,
warum VBA, das geht doch einfach so.
Tabelle3

 ABC
1Datum 101.03.2009 
2Datum 214.03.2009 
3Tage ohne WE10 
4   

Formeln der Tabelle
ZelleFormel
B3=SUMMENPRODUKT((WOCHENTAG(ZEILE(INDIREKT(B1&":"&B2)); 2)<6)*1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Sepp

Anzeige
AW: Datumsdifferenz ohne Samstag und Sonntag
14.03.2009 15:51:41
dirt
Servus Sepp,
sollte VBA sein da... ich eine komplette Arbeitsoberfläche gebastelt hab usw. und da hätte ich das gerne integriert! Danke
Gruß Markus
AW: Datumsdifferenz ohne Samstag und Sonntag
14.03.2009 15:43:30
Tino
Hallo,
meinst Du so?
Sub Test() Dim A As Long, LCounter As Long Dim DatumVon As Date, DatumBis As Date DatumVon = "05.03.2009" DatumBis = "20.03.2009" 'Werktage inklusive DatumVon, sonst A = 1 To .... For A = 0 To DatumBis - DatumVon If Not Weekday(DatumVon + A, 2) > 5 Then LCounter = LCounter + 1 End If Next A MsgBox "vom " & DatumVon & " bis " & DatumBis & Chr(13) & "liegen " & LCounter & " Werktage" End Sub


Gruß Tino

Anzeige
AW: Datumsdifferenz ohne Samstag und Sonntag
14.03.2009 15:53:00
dirt
Wow,
vielen Dank! Tino ftw =)!
Gruß dirt
ohne Schleife
14.03.2009 15:54:35
Josef
Hallo nochmal,
' **********************************************************************
' Modul: Tabelle3 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "B1" Or Target.Address(0, 0) = "B2" Then
    Range("B4") = Evaluate("SUMPRODUCT((WEEKDAY(ROW(" & Clng(Range("B1")) & ":" & Clng(Range("B2")) & "),2)<6)*1)")
  End If
End Sub

Gruß Sepp

Anzeige
AW: ohne Schleife
14.03.2009 16:15:51
dirt
Hy Sepp,
ist fast noch geschickter! =) Jetzt hab ich aber zwei verschiedene Methodern um dies zu berechnen.
Vielen Dank für eure Mühe.
Gruß dirt
Schleife ist schneller ;-)
14.03.2009 16:27:48
Tino
Hallo,
wollte es jetzt auch nicht glauben, aber die Schleife ist schneller.
Sub TestMitSchleife()
Dim A As Long, LCounter As Long
Dim DatumVon As Date, DatumBis As Date
Dim i As Single

i = Timer
DatumVon = "01.01.2000"
DatumBis = "31.12.2050"

'Werktage inklusive DatumVon, sonst A = 1 To .... 
For A = 0 To DatumBis - DatumVon
 If Not Weekday(DatumVon + A, 2) > 5 Then
  LCounter = LCounter + 1
 End If
Next A

Debug.Print Timer - i, "mit Schleife"
End Sub



Sub Test2OhneSchleife()
Dim LCounter As Long
Dim DatumVon As Date, DatumBis As Date
Dim i As Single
i = Timer

DatumVon = "01.01.2000"
DatumBis = "31.12.2050"
LCounter = Evaluate("SUMPRODUCT((WEEKDAY(ROW(" & CLng(DatumVon) & ":" & CLng(DatumBis) & "),2)<6)*1)")

Debug.Print Timer - i, "ohne Schleife"
End Sub


Gruß Tino

Anzeige
schön für dich! o.T.
14.03.2009 16:29:21
Josef
Gruß Sepp

wieso für mich? ich brauche es nicht! oT.
14.03.2009 16:35:30
Tino

309 Forumthreads zu ähnlichen Themen

Datum in Kalenderwoche plus Jahreszahl
Karsten

Hi zusammen,
brauch hierbei Hilfe. Und zwar moechte ich gerne wissen, wie ich ein Datum in Kalenderwoche plus Jahreszahl umwandeln kann. Datum in Kalenderwoche ist ja kein Thema. Ich mache das mit dem Analysis ToolPak. Formel: =WEEKNUM(A1,2) Leider reicht mir aber die Wochenzahl nicht aus....
26.09.2008 17:11:00
Thread-ID: 1012711
4 Beiträge
Anzeige
Datum sortieren ohne Berücksichtigung Jahreszahl
fraubi

Hi,
ich versuche mir einen Geburtstagskalender zu bauen. Dabei habe ich Probleme mit der Sortierung des Geburtsdatums, da das Geburtsjahr bei der Sortierung nicht berücksichtigt werden soll. Wenn ich die Geburtstage sortiere dann sieht das immer so aus :
30.04.1964 Andreas Müller
22...
03.11.2008 17:38:32
Thread-ID: 1021394
2 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Anzeige
Differenz von 2 Datums in Jahre rechnen
2

Hi,
ich möchte die Differenz zweier Datums in Jahre darstellen. Erstes Datum steht in B2 (zB 10.03.2001) und zweites in C2 (zB 15.07.2007) .
Die Differenz zwischen B2 und C2 soll in C3 stehn und zwar als Kommazahl. (zB 6,75 Jahre )
Weis jemand eine Formal dafür ?
Danke Joach...
06.01.2009 00:25:51
Thread-ID: 1037149
6 Beiträge
Datum Minus 5Jahre in VBA
Modolo

Hallo Zusammen
Ich arbeite innerhalb eines Makros mit Filtern, ich bräuchte jetzt noch eine Lösung wie ich dort das aktuelle Datum minus 5 Jahre eingebe.
Hat da Jemand eine Lösung für mich?
Danke
Modolo
26.02.2009 13:14:16
Thread-ID: 1054345
10 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Datum in Zahl umwandeln
Johannes

Hallo!
Habe eine Frage zu Excel:
Ich möchte über eine WENN-Funktion das Datum aus G2 als Zahl in dem entsprechenden Feld (AJ - AP) haben.
Z.B. für "Freitag, 2. Januar 2009" soll in der Spalte AN eine 1 stehen.

Über Hilfe wäre ich SEHR dankbar.
Liebe Grüße
Johannes
04.03.2009 12:20:18
Thread-ID: 1056301
7 Beiträge
Datum mit Zahl addieren ohne Sams-/Sonntag
Alwar

Guten tag liebe Community
zu meinem Problem, ich habe ein Anfangsdatum und die Information wieviele Schichten ich brauche um etwas bestimmtes zu produzieren. Das Problem ich will das Excel automatisch auf das Anfangsdatum drauf rechnet d.h.
z.B.
A1 =Anfangsdatum..B1 =Schicht..........
01.04.2009 09:18:21
Thread-ID: 1065818
18 Beiträge
Anzeige

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
2
5
5
9
14
6
17
7
11
16
2
3
2
6
3
6
2
1
5
11
6
1