AW: Übernahme von Daten
08.09.2020 10:35:16
Daten
Hallo Gero,
nachfolgend ein entsprechendes Makro.
Die archivierten Zeilen werden im Blatt Übergabe gelöscht.
Wenn nicht gelöscht werden soll, dann die Zeile um markieren und die Zeile zum Löschen weglassen. Allerdings werden dann die älteren Zeilen jedes Mal kopiert und erscheinen im Archiv mehrfach.
LG
Franz
Sub Copy_to_Archiv()
Dim wksQ As Worksheet, zeiQ As Long, zeiQL As Long, zeiQT As Long
Dim wksZ As Worksheet, zeiZ As Long
Dim StatusAutofilter As Boolean
Set wksQ = ActiveWorkbook.Worksheets("Übergabe")
Set wksZ = ActiveWorkbook.Worksheets("Archiv")
zeiQT = 1 'Zeile mit den Spaltentiteln im Blatt Übergabe
With wksZ
zeiZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With
With wksQ
StatusAutofilter = .AutoFilterMode
If .AutoFilterMode = True Then
If .FilterMode = True Then .ShowAllData
zeiQ = .Cells(.Rows.Count, 1).End(xlUp).Row
Else
zeiQ = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Rows(zeiQT), .Rows(zeiQ)).AutoFilter
End If
'Autofilter setzen
'Spalte C (erledigt) = a
.AutoFilter.Range.AutoFilter field:=3, Criteria1:="=a"
'Spalte B (Festgestellt am)