Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA gefilterte Zeilen kopieren
#1
Hallo Zusammen,
 
ich versuche per VBA aus der Tabelle „Quelle“ mit zwei Filter Kriterien, Zeilen in die Tabelle „Ziel“ kopieren.
Das  Modul1 verwendet im Modul fest eingestellte Filterkriterien.
Ich möchte aber die Filterkriterien in der Tabelle „Quelle“ festlegen.
Das habe ich in Modul 2 versucht es kopiert aber ungefiltert in Tabelle Ziel.
Gibt aber auch keine Fehlermeldung aus. Könnt Ihr weiterhelfen?
 
Danke für Eure Unterstützung.

Viele Grüße
Iron


Angehängte Dateien
.xlsm   Zeilen kopieren -V2.xlsm (Größe: 21,09 KB / Downloads: 8)
Antworten Top
#2
Hi,

eine Möglichkeit unter vielen Möglichkeiten:
ändere die Codenamen der Tabellenblätter ab (in tblZiel, tblQuelle)und kopiere folgenden Code in ein Modul:
Code:
Sub CopyA()
    'dek
    Dim wksZ As Worksheet
    Dim wksQ As Worksheet
    Dim sArr(0) As String
    Dim lngLastRow As Long
    'def
    Set wksZ = tblZiel
    Set wksQ = tblQuelle
    
    sArr(0) = 1
    With wksQ
        .Range("A3").AutoFilter field:=1, Criteria1:=sArr(), Operator:=xlAnd
        lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("A3:E" & lngLastRow).SpecialCells(xlCellTypeVisible).Copy wksZ.Range("A3")
    End With
End Sub

Hinweis:
Dieser Code verwendet ein Array als Kriterium.
Wenn Du weitere Filterkriterien verwenden möchtest, dann dimensioniere das Array entsprechend und fülle es mit dem Kriterium.

Hinweis2:
Schau Dir den Parameter Operator an.
gruß
Marco
Antworten Top
#3
Hallo,

Danke für die Unterstützung.
Ich habe Code ins Modul eingefügt und die Tabellen umbenannt.
Beim ausführen kommt Laufzeitfehler 424.

weitere Filterkriterien-> würde bedeuten

Code:
sArr(0) = 1
die 1 in eine 2 ändern?

VBA ist eigendlich nicht mein Fall ich würde das lieber mit Formeln lösen, wenn dies möglich wäre.


Viele Grüße
Antworten Top
#4
Hm,

Iron-R 18:49uhr schrieb:... ich versuche per VBA aus der Tabelle „Quelle“ mit zwei Filter Kriterien, Zeilen in die Tabelle „Ziel“ kopieren.

Iron-R 20:45Uhr schrieb:... VBA ist eigendlich nicht mein Fall ich würde das lieber mit Formeln lösen ...



In dem Fall bin ich wohl raus.
Hoffe es findet sich noch jemand der Dich unterstützen kann.
gruß
Marco
Antworten Top
#5
Hallo Marco,

bin ja lernfähig.

Mit dem Thema Operator habe ich mich schon beschäftigt.
Wo ich nicht weiterkomme ist der Laufzeitfehler 424
Der bleibt bei "Set wksZ = tblZiel"stehen

Viele Grüße
Antworten Top
#6
Mase schrieb:ändere die Codenamen der Tabellenblätter ab (in tblZiel, tblQuelle)und kopiere folgenden Code in ein Modul:

Links, im Projektexplrer, stehen Dinge wie
- Microsoft Excel Objekte
-- Diese Arbeitsmappe
-- Tabelle1 (Quelle)
-- Tabelle2 (Ziel)

Wenn Du nun Tabelle1 anklickst, erscheint unterhalb des Projektexplorers, das Eigenschaftsfenster.
In der Zeile (Name) löscht Du Tabelle1 raus und ersetzt es durch tblQuelle.
Tabelle2 = tblZiel

Speichern, und nochmal versuchen.
gruß
Marco
Antworten Top
#7
Hallo Marco,

Danke das Du nicht auf gibst.
tblQuelle und tblZiel sind korrekt eingetragen.
Der Laufzeitfehler bleibt.
Beim Kompilieren wird kein Fehler angezeigt.
Erst beim Ausführen kommt der Laufzeitfehler 424

Viel Grüße
Antworten Top
#8
sehr gern.
Du kannst Deine Mappe hochladen, so kann man mal reinschauen und prüfen woran es liegt.
gruß
Marco
Antworten Top
#9
Hallo,

Datei als Anlage

Viele Grüße


Angehängte Dateien
.xlsm   Zeilen kopieren-V1.xlsm (Größe: 16,7 KB / Downloads: 3)
Antworten Top
#10
Die Codenamen mussten noch geändert werden; so läufts dann.


Angehängte Dateien
.xlsm   Zeilen kopieren-V1.xlsm (Größe: 16,64 KB / Downloads: 5)
gruß
Marco
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste