Hallo Wolfgang,
Du solltest auch mal versuchen, den Code zu analysieren. So schwer ist das gar nicht. Im Code gibt es z.B. Row und Column, also Zeile und Spalte.
Select case Column wäre im Prinzip Auswahl Fall Spalte und dann eben Fall Spalte ist 1, 2 3 und 5, also A,B,C und E....
Wenn Du nun in den Spalte E-G den gleichen Aufbau und die gleiche Reaktion einbringen willst wie in A-C, könntest Du ja mal die 3 Fälle im Code kopieren und 5-6 draus machen. Das bisherige 5 müsste dann entfallen.
Code:
Select Case .Column
Case 1
If Len(.Value) Then
.Offset(, 2).Value = Mid(.Value, 4, 5)
Else
.Offset(, 2).Select
End If
Case 2
If IsDate(.Value) Then
.Offset(, -1).Resize(, 3).Copy Worksheets("Archivierung").Cells(Rows.Count, 3).End(xlUp).Offset(1, -2)
End If
Case 3
If Len(.Value) Then
.Offset(, -1).NumberFormat = "dd.mm.yyyy hh:mm"
.Offset(, -1).Value = Now
.Offset(1, -2).Select
End If
Case 5
If Len(.Value) Then
.Offset(, 2).Value = Mid(.Value, 4, 5)
Else
.Offset(, 2).Select
End If
Case 6
If IsDate(.Value) Then
.Offset(, -1).Resize(, 3).Copy Worksheets("Archivierung").Cells(Rows.Count, 3).End(xlUp).Offset(1, -2)
End If
Case 7
If Len(.Value) Then
.Offset(, -1).NumberFormat = "dd.mm.yyyy hh:mm"
.Offset(, -1).Value = Now
.Offset(1, -2).Select
End If
End Select
Du müsstest ggf. die Archivierung in 6 ändern, also diese Zeile
.Offset(, -1).Resize(, 3).Copy Worksheets("Archivierung").Cells(Rows.Count, 3).End(xlUp).Offset(1, -2)
ggf. mit Inhalten von der 5 anpassen, speziell mit der Zielspalte
.Resize(, 3).Copy Worksheets("Archivierung").Cells(Rows.Count, 7).End(xlUp).Offset(1, -2)
wird eventuell
.Offset(, -1).Resize(, 3).Copy Worksheets("Archivierung").Cells(Rows.Count,
7).End(xlUp).Offset(1, -2)
ist aber alles ungetestet ...