AW: VBA Array Sortieren IF String Bedinnung
06.07.2022 12:58:29
Alexander
Hallo Thorsten,
das ist a wenig komplizierter da das in einem 5000 Zeilen Code mit drinnen ist.
Im Endeffekt stehen alle Werte in einer Zelle untereinander und per Eingabemaske füge ich punkte hinzu, die ich dann eben bevor die Werte wieder in die gleiche Zelle geschrieben werden nach Datum sortiere und die erste Zeile wird dabei ausgelassen, das ist dann die Überschrift.
In A1 Steht dann z.B
Überschrift
-20.5.22 : A
-20.5.22: B
-20.5.22: C
Per Eingabemaske füge ich dann z.B "-21.5.22: D" hinzu, das wird dann Absteigend sortiert und zurück in die Zelle geschrieben, da steht dann eben:
Überschrift
-21.5.22: D
-20.5.22 : A
-20.5.22: B
-20.5.22: C
Es handelt sich aber wirklich um nur eine einzelne Zelle!
Der Teil sieht dann so aus:
Dim Ar() As String
Dim A As String
Dim Wert1 As Integer
Dim Wert2 As Integer
Dim Temp As String
Dim Ausgabe As String
Dim zeLLe As Range
Dim umbrPos As Long
Dim I As Integer
Dim Text As String
A = Range(ActiveCell.Address).Value
Ar = Split(A, Chr(10))
'"And Ar(Wert2) "*"
'Text = "-*"
For Wert1 = 1 To UBound(Ar)
For Wert2 = Wert1 + 1 To UBound(Ar)
If Ar(Wert1) 0 Then
zeLLe.Characters(1, umbrPos).Font.Bold = True
End If
Next
Application.ScreenUpdating = False
Range("C19", "J115").RowHeight = 50
Application.ScreenUpdating = True
' I = InStr(1, Cells(zeile, 2), " ") - 1
' Cells(zeile, 2).Characters(1, I).Font.Bold = True
form_exit = vbOK
Unload Me
End Sub