Spezialfilter dynamisieren

Sub Makro1() ' Makro1 Makro Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Sheets("Tabelle2").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("A4"), Unique:=False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Herbert,
vielen Dank, das du mir mit deinem Vorschlag weitergeholfen hast, allerdings habe ich den Spezialfilter verwendet, da mir dann alle Einträge untereinander kopiert werden, für die die Filterkriterien zutreffen.
Ich habe mir Deine VBA Version angesehen und momentan werden nicht alle Werte berücksichtigt, für die die Filterkriterien erfüllt sind. DIe VBA Lösung würde ich der Formellösung vorziehen, da sich die Anhzahl der Zeilen in der Datenbasis stark verändern kann.
Ich verstehe immer gerne den Codes um wieder hinzuzulernen. Vielleicht kannst du mir nochmal weiterhelfen, damit ich noch zum Ziel komme.

Option Explicit
Sub Filtern()
Dim sFarbe$, sGroesse$, iCountA%, iCountB%
sFarbe = [A2]              'Wodurch ergibt sich hier, auf welche Tabelle sich die Zelle A2  _
bezieht?
sGroesse = [B2]
With Tabelle2
For iCountA% = 2 To 21    'hier muss ich noch den letzten Wert der Basisdaten ermitteln,  _
aber das bekomme ich hin.
If .Cells(iCountA%, 1) = sFarbe Then
For iCountB% = 2 To 21
If .Cells(iCountB%, 1) = sFarbe And .Cells(iCountB%, 2) = sGroesse Then
Range("A5:E5").Value = .Range(.Cells(iCountB%, 1), .Cells(iCountB%, 5)).Value  _
'Diese Schleife sorgt doch dafür, das eigentlich alle übereinstimmenden Werte untereinander kopiert werden. In meinem Test allerdings nur ein Wert,
der mit den Suchkriterien übereinstimmt. Dies liegt ja an diesem Teil : Range("A5:E5").Value  _
des codes. Hier meine Frage,
wodurch ergibt sich, das sich die Range auf Tabelle 1 bezieht und wie kann ich hier angeben,  _
das der nächste gefundene Wert in der Range A6:E6 eingefügt wird usw.
GoTo ende
End If
Next iCountB%
End If
Next iCountA%
End With
ende:
End Sub

Vielen Dank, das du dich mit meinem Problem beschäftigt hast und Viele Grüße
Thomas

Sub Filtern() Dim sFarbe$, sGroesse$, iCountA%, iRowIn%, iLastRow% sFarbe = [A2] sGroesse = [B2] iRowIn = 5 With Tabelle2 iLastRow = .Cells(Rows.Count, "A").End(xlUp).Row For iCountA = 2 To iLastRow If .Cells(iCountA, 1) = sFarbe And .Cells(iCountA, 2) = sGroesse Then Range("A" & iRowIn & ":E" & iRowIn).Value = .Range(.Cells(iCountA, 1), .Cells( _ iCountA, 5)).Value iRowIn = iRowIn + 1 End If Next iCountA End With End Sub

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread