VBA, criteria1 anpassen für Filterung
17.02.2023 10:20:48
Andreas
Ich habe ein kleines Problemchen und hoffe wieder mal hier Hilfe zu finden. Ich würde mich sehr, sehr freuen.
Folgendes Problem: Ich habe einen Makro-Code, der mir gefilterte Zeilen eines Tabellenblattes in das aktive Tabellenblatt koopiert:
Sub Listen()
'Kopieren:
With Sheets("Eingabe").UsedRange
.AutoFilter Field:=1, Criteria1:=[A1]
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Eingabe").UsedRange.AutoFilter
ActiveSheet.AutoFilter.ApplyFilter
End SubDie Zelle A1 im aktiven Tabellenblatt gibt den "Filter" (criteria1) an.
Die Werte die bisher als Filter angeben wurden mussten immer exakt sein und hatten im allgemeinen folgendes aussehen:
1.100.1.010 , 1.100.1.020 , 1.100.1.030 , 4.106.2.010 oder 4.110.5.020
D.h. immer eine Ziffernfolge mit 8 Ziffern und Punkten an entsprechender Stelle.
Nun möchte ich auch gern folgenden Filter verwenden: Bsp1: "1.100.1." oder Bsp2: "4.106.2."
Dabei sollen mir die Zeilen kopiert werden:
Bsp1: 1.100.1. und 1.100.1.000 bis 1.100.1.999
Bsp2: 4.106.2. und 4.106.2.000 bis 4.106.2.999
D.h. der Filter soll zum einen den exakten Wert einschließen und alle möglichen Kombinationen der vollständigen 8-stelligen Zeichenkette.
Ich glaube ich habe das jetzt wahnsinnig kompliziert umschrieben. Ich hoffe trotzdem Ihr könnt mein Problem nachvollziehen. Am allerbesten wäre es, wenn es eine einfache Lösung gebe und ich Euch mit meinem Problem auch keine große Arbeit bereite.
Über eine Antwort würde ich mich sehr, sehr freuen.
Viele Grüße, Andreas