aus 3 Zeilen eine machen?

[Strumpf-Maus]

Guten Morgen,

ich habe Daten in einem Tabellenblatt die wie folgt aussehen:

    A                         B                 C

15:00
15.12.2020
Mitarbeiter A     Fahrzeug XY     23,00
12:00
16.12.2020
Mitarbeiter B     Fahrzeug AB        42,00



Ich möchte nun in Spalte D in der Zeile hinter dem jeweiligen Mitarbeiter eine Bemerkung machen und nach der Bemerkung sortieren.
Um das Datum und die Uhrzeit in den beiden Zeilen bei der Sortierung nicht zu "verlieren" hätte ich diese Angaben gerne in der gleichen Zeile wie die restlichen Mitarbeiter Angaben.

Hat jemand eine Idee?

Danke
Susi

[Gast 123]

Hallo Susi

Sorry, Datum und Urzeit schreibt man am besten in die gleiche Zeile wie die Mitarbeiter. Dann gehen sie beim Sortieren nicht verloren!
Brauchst du dafür Hilfe? Bei langen Tabellen macht ein Makro das in Sekunden. Am besten Datum und Uhrzeit in Spalte A+B setzen.

mfg  Gast 123

[Kuwer]

Hallo Susi,

Sub aaa_Kuwer()

  Dim i As Long, j As Long

  Dim varQ As Variant, varZ As Variant

  varQ = Range("A1").CurrentRegion.Value

  ReDim varZ(1 To UBound(varQ), 1 To 4)

  For i = 1 To UBound(varQ) Step 3

    j = j + 1

    varZ(j, 1) = varQ(i + 0, 1) + varQ(i + 1, 1)

    varZ(j, 2) = varQ(i + 2, 1)

    varZ(j, 3) = varQ(i + 2, 2)

    varZ(j, 4) = varQ(i + 2, 3)

  Next i

  With Range("A1").Resize(UBound(varZ, 1), UBound(varZ, 2))

    .Columns(1).NumberFormat = "General"

    .Value = varZ

    .EntireColumn.AutoFit

  End With

End Sub

Gruß Uwe

[LCohen]

Wenn A2: 15:00 und 456 "3er-Datensätze" (in 1368 Zeilen), dann:

F1:J456: =INDEX(A:C;ZEILE(A1:A456)*3-2+{1.2.3.3.3};{1.1.1.2.3}) (als Formelarray abschließen, nicht als Arrayformel! Bei XL365 reicht einfache Eingabe in F1)