Thema Datum  Von Nutzer Rating
Antwort
Rot Einzelne Spalte aus gefilterter Liste kopieren
01.07.2021 06:40:50 Gast55188
NotSolved
01.07.2021 09:18:36 Gast25536
NotSolved

Ansicht des Beitrags:
Von:
Gast55188
Datum:
01.07.2021 06:40:50
Views:
60
Rating: Antwort:
  Ja
Thema:
Einzelne Spalte aus gefilterter Liste kopieren

Hi Leute,

ich versuche gerade eine einzelne Spalte aus einer gefilterten Liste in ein anderes Tabellenblatt zu kopieren. Dafür nutze ich diesen Code:

Sub Kopieren()

    Dim Original As Worksheet
    Dim Ziel As Worksheet
    Dim lngZeilen As Long
   
    Set Original = ActiveWorkbook.Sheets("Original")
   
    lngZeilen = Original.Cells(Rows.Count, 1).End(xlUp).Row
   
    Original.Range("A1:O1").AutoFilter Field:=6, Criteria1:=Array("4380", "4964", "4970")

    Original.Range("A1:A" & lngZeilen).SpecialCells(xlCellTypeVisible).Copy
    Ziel.Range("A3").PasteSpecial xlPasteValues
    
End Sub

 

Leider erhalte ich in dieser Zeile den Fehler "Objekt erforderlich"

Original.Range("A1:A" & lngZeilen).SpecialCells(xlCellTypeVisible).Copy

 

Kann jemand helfen? :)


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Einzelne Spalte aus gefilterter Liste kopieren
01.07.2021 06:40:50 Gast55188
NotSolved
01.07.2021 09:18:36 Gast25536
NotSolved