Mehrere Werte in einer Zelle auswerten

mt94 · 2018-02-01T10:46:16+00:00

Hallo, ich habe folgenden Fall und komme nicht weiter: In einer Zelle stehen mehrere Datumswerte untereinander, z.B. 15.12.2010 28.06.2012 23.05.2013 18.10.2013 11.05.2015 (in einer Zelle und nur durch neuen Absatz getrennt) 02.09.2009 01.01.2013 09.04.2013 27.03.2015 (in anderer Zelle - die Abstände müssen auch so beibehalten werden) 12.12.2009 (in anderer Zelle dann wieder nur ein Wert) Gibt es eine Möglichkeit, per Formel den aktuellsten Datumswert pro Zelle herauszufinden und den dann "+15 Monate" in Ergebniszelle anzuzeigen? Tausend Dank für Eure Hilfe!!!

Hallo,
per Formel weiß ich nicht ob das geht...
Habe aber eine VBA Lösung.
Einfach ein Modul erstellen und den unten stehenden Code einfügen.
Der Aufruf in der Tabelle sieht z.B. so aus: =MostFrequentDate(A1;15)
Der erste Parameter ist die Zelle mit den Datumswerten, der zweite ist Optional und
stellt die Anzahl der Monate dar, die hinzugefügt werden sollen.
Hier Beispiel Mappe: https://www.herber.de/bbs/user/119459.xlsm
Hier Code:

Function MostFrequentDate(ByRef Target As Range, Optional ByVal MonthsToAdd As Long = 0) As  _
String
Dim i As Long, tmp As Date
Dim patter_ As String, value_ As String
Dim rx As Object, matches As Object
'Date pattern
pattern_ = "\d{2}.\d{2}.\d{4}"
'Define the value to look in
If Target.Rows.Count > 1 Then
value_ = Join(Application.Transpose(Target.Value), "")
ElseIf Target.Columns.Count > 1 Then
value_ = Join(Application.Transpose(Application.Transpose(Target.Value)), "")
Else
value_ = Target.Value
End If
'Create a Regexp Object
Set rx = CreateObject("vbscript.regexp")
With rx
.Global = True
.IgnoreCase = True
.MultiLine = False
.Pattern = pattern_
'Get all matches
Set matches = .Execute(value_)
End With
'If he found something
If matches.Count > 0 Then
'check for biggest Date
For i = 0 To matches.Count - 1
If CDate(matches(i)) > tmp Then
tmp = CDate(matches(i))
End If
Next i
'Add the amount of months
MostFrequentDate = CStr(DateAdd("m", MonthsToAdd, tmp))
Else
'if he found nothing
MostFrequentDate = "NoDateFound"
End If
End Function

... was ich weggelassen hatte. Kannst Du gern wieder einbauen.
Geht es hingegen um 2x ZEICHEN(10) hintereinander (also optisch eine Lücke in der Zeilenliste aufgrund zweier Zeilenvorschübe statt einem), müsstest Du diese ebenfalls "GLÄTTEN", was nur über Hin- und Herwandeln zu einem Leerzeichen funktioniert.
Sepps Lösung erfordert ggü der langen Variante gleichmäßig geschriebene Datümer (hier mit 10 Zeichen). 04.1.18 ist (anders als bei meiner ersten Variante) also nicht erlaubt. Finde ich aber ok, denn wer so seine Liste pflegt, hat sich den Fehler redlich verdient. Daher würde ich Sepps Lösung verwenden und den schlampigen Mitarbeiter rauswerfen. Übrigens kann man A1 mit einer DÜ =REST(LÄNGE(A1)+1;11)=0 versehen, damit der Mitarbeiter bleiben kann.
Um Sepps Formel auch xl2007 (oder älteren Versionen mit dem Analyse-AddIn, "pfui") zugänglich zu machen:
=EDATUM(MAX(INDEX(0+TEIL(WECHSELN(A1&WIEDERHOLEN(0;110);ZEICHEN(10);"");ZEILE(1:9)*10-9;10);));15)
EDATUM ist besser als DATUM(...;15+...;...), denn bei Verzicht darauf in
=DATUM(JAHR(
MAX(INDEX(0+TEIL(WECHSELN(A1&WIEDERHOLEN(0;110);ZEICHEN(10);"");ZEILE(1:9)*10-9;10);)));15+MONAT(
MAX(INDEX(0+TEIL(WECHSELN(A1&WIEDERHOLEN(0;110);ZEICHEN(10);"");ZEILE(1:9)*10-9;10);)));TAG(
MAX(INDEX(0+TEIL(WECHSELN(A1&WIEDERHOLEN(0;110);ZEICHEN(10);"");ZEILE(1:9)*10-9;10);))))
ergibt der 30.11.2020 als Wert 15 Monate später: 2.3.2022 statt 28.2.2022
Will man aus dem 28.2.2015 (Monatsletzter) bei einem 15-Monatsshift wieder den Monatsletzten 31.5.16 anstelle des 28.5.16 machen, muss man EDATUM ein wenig "pimpen":
=EDATUM("28.2.15"+1;15)-1

Mehrere Werte in einer Zelle auswerten

Forumthread: Mehrere Werte in einer Zelle auswerten

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Mehrere Werte in einer Zelle auswerten

Forumthread: Mehrere Werte in einer Zelle auswerten

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread