Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - Autofilter erweitern

VBA - Autofilter erweitern
28.02.2018 10:23:38
Jürgen
Guten Morgen
Der folgende VBA-Code funktioniert einwandfrei und wunderbar
Sub Filtern_Filme()
With ThisWorkbook.Worksheets("Ausstrahlung")
.UsedRange.AutoFilter
.UsedRange.AutoFilter 7, "*" & ThisWorkbook.Worksheets("Schauspieler - Film").Range( _
_
"D14").Value & "*"
Dim Anzahl
Anzahl = .Cells(Rows.Count, 2).End(xlUp).Row
End With
If Anzahl > 1 Then
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Tabelle7").Rows.Delete
ThisWorkbook.Worksheets("Ausstrahlung").UsedRange.Copy Destination:=ThisWorkbook. _
Worksheets("Tabelle7").Range("A1")
ThisWorkbook.Worksheets("Ausstrahlung").Activate
ActiveSheet.UsedRange.AutoFilter
Worksheets("Tabelle7").Activate
End Sub

Jetzt würde ich gerne die Suche auf ein zweites Tabellen-Blatt erweitern, soll heißen die Suche soll in zwei Tabellen-Blättern stattfinden und das Ergbnis wie gewohnt in „Tabelle 7“ ausgegeben werden. ( Das zweite Tabellen-Blatt ( Name = „Fehlende“ ) hat denselben Aufbau wie das Tabellen-Blatt „Ausstrahlung“ und die suche soll auch jeweils in der gleichen Spalte ( „7“ ) stattfinden.
Könnte mir jemand dabei behilflich sein, das wäre wunderbar
mit freundlichen Grüßen
Jürgen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Autofilter erweitern
28.02.2018 11:17:37
Daniel
Hi
du kannst den Code im Prinzip kopieren und unten wieder anfügen.
Die Tabellenblattnamen musst du natürlich anpassen.
lediglich das Kopieren und einfügen der zweiten Daten musst du etwas abändern, da du ja beim zweiten mal
- die Überschrift nicht mehr mit kopieren musst
- die ersten Daten nicht überschrieben werden dürfen
dh diese Zeile muss dann so aussehen:
ThisWorkbook.Worksheets("Fehlende").UsedRange.Offset(1, 0).Copy Destination:=ThisWorkbook.Worksheets("Tabelle7").Cells(Rows.Count, 1).End(xlup).Offset(1, 0)
Gruß Daniel
AW: VBA - Autofilter erweitern
01.03.2018 07:29:45
Jürgen
Hallo Daniel,
danke für Deine Antwort
habe deinen Hinweis und Code folgendermaßen interpretiert und eingebaut – Ergebnis funktioniert nicht ( Zeigt fast alle Datensätze aus der gesamten Datei an )
Sub Filtern_iii()
With ThisWorkbook.Worksheets("Ausstrahlung")
.UsedRange.AutoFilter
.UsedRange.AutoFilter 7, "*" & ThisWorkbook.Worksheets("Schauspieler - Film").Range( _
"D14").Value & "*"
.UsedRange.AutoFilter 7, "*" & ThisWorkbook.Worksheets("Fehlende Filme").Range(" _
D14").Value & "*"
Dim Anzahl
Anzahl = .Cells(Rows.Count, 2).End(xlUp).Row
End With
If Anzahl > 1 Then
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Tabelle7").Rows.Delete
ThisWorkbook.Worksheets("Ausstrahlung").UsedRange.Copy Destination:=ThisWorkbook. _
Worksheets("Tabelle7").Range("A1")
ThisWorkbook.Worksheets("Fehlende Filme").UsedRange.Offset(1, 0).Copy Destination:= _
ThisWorkbook.Worksheets("Tabelle7").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
ThisWorkbook.Worksheets("Ausstrahlung").Activate
ActiveSheet.UsedRange.AutoFilter
Worksheets("Tabelle7").Activate
End Sub
Könntest Du mal schauen ob Dein Code an der richtigen Stelle von mir eingebaut wurde, wenn nicht könntest du den Code dementsprechend ändern und mir dann in deiner nächsten Antwort zur Verfügung stellen.
Mit freundlichen Grüßen
Jürgen
Anzeige
AW: VBA - Autofilter erweitern
01.03.2018 09:57:08
Daniel
Hi
du sollst die Codes nicht ineinander verschachteln, sondern nacheinander ausführen.
zuerst kopierst du die Daten vom Blatt "Ausstrahlung" und danach vom Blatt "Fehlende"
nicht gleichzeitig!
Gruß Daniel

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige