Mehrere Werte in einer Zelle auswerten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Rüstwechsel() Dim i As Long Range("C1").Value = VBA.Replace(Range("A1").Value, Chr(10), "") For i = 1 To 5 Range("B" & i).Value = Left(Range("C" & i).Value, 10) Range("C" & i + 1).Value = Right(Range("C" & i).Value, Len(Range("C" & i).Value) - 10) Next i End Sub

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

Beliebteste Forumthreads (12 Monate)

Mehrere Werte in einer Zelle auswerten

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

358 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Werte in einer Zelle auswerten

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

358 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread