Registriert seit: 02.04.2015
Version(en): 2013
02.12.2015, 13:02
(Dieser Beitrag wurde zuletzt bearbeitet: 02.12.2015, 13:02 von derhanfti.)
Hallo,
wie kann eine Differenz (Ausgabe in Wochen) aus einem Feld mit dem aktuellen Datum und einem Feld wo eine Kalenderwoche mit Jahr (06/15) eingetragen ist, errechnet werden?
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi,
meinst du so?
Tabelle1 | A | B | C | D |
1 | aktuelles Datum | | KW | Differenz |
2 | | | | |
3 | 03.12.2015 | | KW 06/15 | 43 Kalenderwochen |
Formeln der Tabelle |
Zelle | Formel | D3 | =KALENDERWOCHE(A3;2)-C3 |
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8 In Spalte C ist die KW benutzerdefiniert formatiert:
und bezieht sich nur auf dieses Jahr. Wenn du etwas anderes benötigtst, solltest du mit mehr Infos aufwarten.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 28.05.2014
Version(en): 2013 / 2016
Moin,
wenn es dann jahresübergreifend wird (und das ist ja bald der Fall) dann gibt es bestimmt eine ellenlange Formel, die gewiss der Ersteller versteht
. Ich ziehe da eine UDF vor:
Code:
Option Explicit
Function KaWoDiff(Datum1 As String) As Integer
Dim Kw As Integer, Jahr As Integer, Tag1 As Date, D1 As Date, D2 As Date
If Len(Datum1) <> 5 Then
MsgBox "Die Kalenderwochen muss im Format " & Chr(34) _
& "WW/JJ" & Chr(34) & " vorliegen! - Tschüss!"
KaWoDiff = 0
Exit Function
End If
Kw = CInt(Left(Datum1, 2))
Jahr = CInt("20" & Right(Datum1, 2))
D1 = DateSerial(Jahr, 1, 4)
D2 = D1 - 2
Tag1 = D1 + Kw * 7 - 7 - (D2 - Int(D2))
KaWoDiff = WorksheetFunction.RoundUp((Date - Tag1) / 7, 0) 'Angefangene KW werden aufgerundet
'Auf der Basis von Franz Pölt (Excelformeln.de)
End Function
Bei Bedarf lässt sich das Konstrukt natürlich noch anpassen, beispielsweise 2014 als Jahreszahl, 98 (1998) als Jahreszahl oder KaWo nur einstellig. Falls du nicht weißt, wie eine UDF eingebunden wird, schau mal
hier nach.
Beste Grüße
Günther
Excel-ist-sexy.de …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Registriert seit: 13.04.2014
Version(en): 365
02.12.2015, 14:41
(Dieser Beitrag wurde zuletzt bearbeitet: 02.12.2015, 14:41 von BoskoBiati.)
Hallo,
oder auch so:
Arbeitsblatt mit dem Namen 'Tabelle1' |
| A | B | C |
1 | 06/15 | 02.12.2015 | 43 |
2 | 51/14 | 02.12.2015 | 50 |
3 | 51/98 | 02.12.2015 | 885 |
Zelle | Formel |
B1 | =HEUTE() |
C1 | =KÜRZEN((B1-(("4.1."&RECHTS(A1;2))+LINKS(A1;2)*7-7-REST("2.1."&RECHTS(A1;2);7)))/7;) |
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg |
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 28.05.2014
Version(en): 2013 / 2016
@Edgar
OK, ist ja noch einigermaßen nachvollziehbar, stammt ja aus der gleichen Quelle wie meine Berechnung
Beste Grüße
Günther
Excel-ist-sexy.de …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Registriert seit: 02.04.2015
Version(en): 2013
Alle Antworten sind super... für meine Funktion hat die von BoskoBiati ausgereicht. Trotzdem Danke euch allen.