Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filtern & Kopieren

Forumthread: Filtern & Kopieren

Filtern & Kopieren
07.10.2005 21:14:12
Silk
Hallo,
meine Problemstellung:
Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. Das erste Arbeitsblatt ist eine Art Gesamtübersicht:
__A_____B_____C_____D
1 Test1__.._____.._____Modul1
2 Test2__.._____.._____Modul3
3 Test3__.._____.._____Modul1
4 Test9__.._____.._____Modul1
5 Test25_.._____.._____Modul2
Ich möchte nun Spalte D als Filterkriterium nutzen und dann den jeweiligen Inhalt von Spalte A auf ein anderes Tabellenblatt kopieren, also "Test1", "Test3" und "Test9" sollen z.B. auf das Blatt x kopiert werden und so weiter....
Kann man so etwas mit VBA lösen ?
Vielen Dank
silk
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filtern & Kopieren
07.10.2005 23:08:57
Worti
Hallo silk,
so zB:


      
Sub Filtern()
    Dim I As Long, J As Long
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim Filterkriterium
    
    Filterkriterium = InputBox("Bitte Filterkriterium eingeben!")
    'Ausstieg aus Sub bei Abbrechen
    If Filterkriterium = "" Then
       Exit Sub
    End If
    
    Set ws1 = ActiveWorkbook.Worksheets("Tabelle2")
    Set ws2 = ActiveWorkbook.Worksheets("x")
    J = 1
    For I = 1 To ws1.Cells(Rows.Count, 4).End(xlUp).Row
         If ws1.Cells(I, 4).Value = Filterkriterium Then
            ws2.Cells(J, 1).Value = ws1.Cells(I, 1).Value
            J = J + 1
          End If
    Next I
    Set ws1 = Nothing
    Set ws2 = Nothing
Anzeige
AW: Filtern & Kopieren
08.10.2005 00:02:15
Silk
Hallo Worti,
vielen Dank! Ich konnte das Programm für mich anpassen und es funktioniert genau wie ich es mir vorgestellt habe.
Gruß Silk
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige