mit dem nachfolgenden Code werden Teilergebnisse berechnet
dabei wird leider das Datum in ein Englisches Format umgewandelt.
Statt 22.02.2008 Maximum wird 2/22/2008 Maximum in der Spalte A.
Sub Max()
Worksheets("Datum").Activate
Selection.Subtotal GroupBy:=1, Function:=xlMax, TotalList:=Array(3, 4, _
5, 6, 7, 8, 9, 10), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub
Mit einem zweiten Code versuche ich das Wort Maximum los zuwerden.
Vorher aber kopiere ich die Ergebnisse, ohne Formeln in ein neues Blatt.
Sub Wort()
Dim A As Byte, strDatum As String
Application.ScreenUpdating = False
For A = 1 To Cells(Rows.Count, 1).End(xlUp).Row
strDatum = Trim$(Replace(Cells(A, 1).Value, "Maximum", ""))
If IsDate(strDatum) Then
Cells(A, 1) = CDate(strDatum)
End If
Application.ScreenUpdating = True
Next A
End Sub
Mein Problem, das Datum zwischen dem 01 und 12 des Monats wird falsch
angezeigt, hier ein Beispiel:
30.03.2008
31.03.2008
04.01.2008
04.02.2008
04.03.2008
04.04.2008
04.05.2008
04.06.2008
04.07.2008
04.08.2008
04.09.2008
04.10.2008
04.11.2008
04.12.2008
13.04.2008
14.04.2008
Wie könnte man das Problem lösen?
Vielleicht in der Zeile: Cells(A, 1) = CDate(strDatum)?
Vielen Dank im Voraus.
Grüße