Codemodifizierung
20.01.2023 08:26:57
Dieter
ich habe einen funktionierenden VBACode, mit dem ich nach ArtikelNr filtere.
Sub Autofilter() 'Blattschutz aufheben Tabelle1.Unprotect Tabelle1.Range("B11").Autofilter 3, Tabelle1.Range("D10").Value 'nach ArtikelNr filtern Tabelle1.Range("D10").ClearContents 'Blattschutz aufheben Tabelle1.Protect End SubDen gefundenen ArtikelNr, samt den Daten in der Zeile, möchte ich in eine andere Tabelle (Buchung) übertragen.
An der Stelle -Selection.Delete Shift:=xlUp- scheitere ich und bekomme Fehlermeldung: Zellen in einem gefilternen Bereich oder in einer gefilternen Tabelle
können nicht verschoben werden.
Sub Datenbankzeile_to_Formular() Dim rng As Range Dim acr As Single Dim cpy_rng As Range, to_rng As Range Worksheets("Lagerbestand").Unprotect acr = ActiveCell.Row Set cpy_rng = Range(Cells(acr, "B"), Cells(acr, "L")) lz_B = Sheets("Buchung").Cells(Rows.Count, "B").End(xlUp).Row Set to_rng = Sheets("Buchung").Cells(lz_B + 1, "B") Worksheets("Buchung").Unprotect cpy_rng.Cut to_rng 'ausschneiden Selection.Delete Shift:=xlUp 'markierte Zeile löschen Worksheets("Lagerbestand").Protect Sheets("Buchung").Activate Buchung.Show 0 Worksheets("Buchung").Protect End SubKann mir bitte jemand helfen dieses Problem zu lösen?
Vielen Dank im Voraus