24.01.2020, 20:01
24.01.2020, 23:02
Hi, habe ich Dusel die Datei nicht angehängt? ! Hier aber jetzt die Datei.
Gruß Wolfgang
Gruß Wolfgang
25.01.2020, 01:15
Hi Wolfgang,
vielleicht hat ein anderer Helfer Lust, hier weiter zu machen; ich bin raus.
Gruß Uwe
vielleicht hat ein anderer Helfer Lust, hier weiter zu machen; ich bin raus.
Gruß Uwe
25.01.2020, 11:45
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.
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 ...
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 ...