Hallo,
Ich arbeite mit Excel 2013,
Ich brauche den Autofilter „#N/A“ in der Spalte „F“. Wenn der Filter „#N/A“ keine Daten mit der Überschrift enthält, funktioniert der Code „Gehe zu 0:“ ...
aber mein Code funktioniert nicht, gehe zu 0:
Untertestsss()
'Filter einfügen und #N/A kopieren und einfügen
„VBA – Autofilter vom Code ausschalten.“
Wenn ActiveSheet.AutoFilterMode, dann
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Autofilter einschalten
End If
'Automatischer Filter für leere Zellen in der 2. Spalte.'
LastRow so lange dimmen
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Bei Fehler „Weiter fortsetzen“: „Wenn Filter, dann keine Daten, gehen Sie weiter.“
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Nicht anwendbare Zellen' filtern und dann sichtbare Zellen auswählen
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select
'Kopieren und Einfügen stoppen, wenn der gefilterte Bereich keine Daten enthält
Wenn Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Dann
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Auswahl.Kopieren
'Machen Sie etwas Code.........
Application.CutCopyMode = Falsch
sonst
ActiveSheet.AutoFilterMode = False
Gehe zu 0:
End If
'Machen Sie etwas Code.........
0:
End Sub
Bitte helfen Sie mir, danke für den Vorschuss
Stoppen Sie das Kopieren und Einfügen, wenn der gefilterte Bereich keine data.zip enthält
Stoppen Sie das Kopieren und Einfügen, wenn der gefilterte Bereich keine data.zip enthält
Ich arbeite mit Excel 2013,
Ich brauche den Autofilter „#N/A“ in der Spalte „F“. Wenn der Filter „#N/A“ keine Daten mit der Überschrift enthält, funktioniert der Code „Gehe zu 0:“ ...
aber mein Code funktioniert nicht, gehe zu 0:
Untertestsss()
'Filter einfügen und #N/A kopieren und einfügen
„VBA – Autofilter vom Code ausschalten.“
Wenn ActiveSheet.AutoFilterMode, dann
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Autofilter einschalten
End If
'Automatischer Filter für leere Zellen in der 2. Spalte.'
LastRow so lange dimmen
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Bei Fehler „Weiter fortsetzen“: „Wenn Filter, dann keine Daten, gehen Sie weiter.“
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Nicht anwendbare Zellen' filtern und dann sichtbare Zellen auswählen
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select
'Kopieren und Einfügen stoppen, wenn der gefilterte Bereich keine Daten enthält
Wenn Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Dann
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Auswahl.Kopieren
'Machen Sie etwas Code.........
Application.CutCopyMode = Falsch
sonst
ActiveSheet.AutoFilterMode = False
Gehe zu 0:
End If
'Machen Sie etwas Code.........
0:
End Sub
Bitte helfen Sie mir, danke für den Vorschuss
Stoppen Sie das Kopieren und Einfügen, wenn der gefilterte Bereich keine data.zip enthält
Stoppen Sie das Kopieren und Einfügen, wenn der gefilterte Bereich keine data.zip enthält