Daten übertragen funktionirt nicht
02.08.2019 18:16:02
Richard
habe folgendes Problem und bitte um Hilfe und Erklärung wo mein Fehler liegt.
In meiner Tabelle tbl_Verfolgung werden mit einem Button Spalten ausgeblendet und der Autofilter aktiviert. Nach dem Filtern sollen die sichtbaren Spalten auf das Tabellenblatt kopierte Werte übertragen werden. Es findet leider kein Übertrag statt.
hier mein Code:
Private Sub cmb_Druckversion_Übertrag_Click() 'ohne Überschrift
Dim rngFilterbereich As Range
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Abfrage: Wenn Autofilter aktiviert, dann...
If Sheets("tbl_Verfolgung").FilterMode Then
'...alle Werte in Blatt "kopierte Werte" löschen...
Sheets("kopierte Werte").Cells.ClearContents
'...der Variablen "rngFilterbereich" den gefilterten Bereich zuweisen...
Set rngFilterbereich = Sheets("tbl_Verfolgung").AutoFilter.Range
'...Fehlerbehandlung einschalten...
On Error Resume Next
'...Bereich kopieren...
Set rngFilterbereich = rngFilterbereich.Offset(1, 0).Resize(rngFilterbereich.Rows.Count - 1, _
rngFilterbereich.Columns.Count)
If Not Err Then rngFilterbereich.Copy
Sheets("kopierte Werte").Range("A1").PasteSpecial Paste:=xlPasteValues
End If
Application.CutCopyMode = False
End Sub
Richard