Habe einen VBA Beispiel aus Internet (s.u. FalschSortiert) nach Datum zu sortieren.
Möchte gern einige Spalten nach bestimmten Kriterien, nach K, J, I und B sortieren.
In meine Beispiels Mappe habe ich mehreren Tabellen;
https://www.herber.de/bbs/user/72400.xls
1-Tabelle Beispiel so stehen die Daten drinnen
2-Tabelle FalschSortiert nach Ausführung der Makro FalschSortiert bekomme ich ungewollten Ergebnis in Tabelle
A)Warum bekommt man keine Ergebnisse I7:K97(gelbe Markierung in Tabelle FalschSortiert )?
Spalte "B wurde auf Datum definiert.Was ist da falsch?
3-Tabelle Spalte B Manuell nachbessern da müsste ich jede einzelne Zeile von B7:B97 anklicken erst danach stehen die Formel in
Zeilen Bereich I7:K97.
4-in Tabelle So sollte sein ist meine gesuchte Lösung
Wie konnte man den Code FalschSortiert richtig anpassen?
Es solle nach Spalten K, J, I und B sortieren werden und die mit Hilfe der Formel
For i = 15 To LRow + 1
Cells(i, 7).Value = Cells(i, 6).Value + Cells(i, 5).Value + Cells(i - 1, 7).Value
Next i
Else
For i = 7 To LRow + 1
Cells(i, 7).Value = Cells(i, 6).Value + Cells(i, 5).Value + Cells(i - 1, 7).Value
Next i
End If
sollen auch die Werte in Spalte G eingetragen werden.
Habe selber mit Makro Recorder folgendes Code aufgenommen und den wollte ich an oberen Code anpassen leider erfolglos.
Sub Makro1Test()
' Makro1Test Makro
Range("B6:K146").Select
Range("K6").Activate
Application.CutCopyMode = False
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range( _
"B6:B146"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.Sort
.SetRange Range("B5:K146")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
If LRow > 20 Then
For i = 15 To LRow + 1
Cells(i, 7).Value = Cells(i, 6).Value + Cells(i, 5).Value + Cells(i - 1, 7).Value
Next i
Else
For i = 7 To LRow + 1
Cells(i, 7).Value = Cells(i, 6).Value + Cells(i, 5).Value + Cells(i - 1, 7).Value
Next i
End If
Application.ScreenUpdating = True
End Sub
Wenn Jemand von Euch eine Idee oder eine Lösung hat, wäre das für mich ein tolles Erlebnis.
Danke im Voraus Daniel