Wenn keine sichtbaren Zellen, dann...
19.01.2022 16:10:10
Mark
ich zerbreche mir seit einigen Stunden schon den Kopf, wie ich den Excel VBA Laufzeitfehler1004: Keine Zellen gefunden überwinden kann. Meine Fehlerverarbeitung OnError GoTo... funktioniert unverständlicherweise nicht.
Zur Ausgangssituation: In Tabellenblatt 3 filtere ich eine Tabelle "Lagerbestand" mit Hilfe eines Erweiterten Filters aus Tabellenblatt 1
Wenn nun durch die Eingaben des Erweiterten Filters keine Zellen in der Tabelle mehr angezeigt werden, soll das Programm zu "Ziel3" springen.
Wenn es eine sichtbare Zelle in der Tabelle "Lagerbestand" gibt, dann wird diese herauskopiert. (Dies funktioniert auch soweit)
Der Code
On Error GoTo Ziel3
Sheets("Lagerbestand").Select
Range("A1").Value = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(1).Copy
Ich hoffe ich habe mein Problem klar genug formuliert, sodass mir jemand helfen kann.Vielen Dank im Voraus
LG Mark