Makro auf Knopfdruck Daten anzeigen

Question

Hallo liebe Technik-Freunde,

ich habe ein Problem und meine VBA Kenntnisse sind mehr als eingerostet seit
Schulzeiten ;-)

Ich habe eine Tabelle die Vorlaufzeiten für verschiedene Parteien beinhalten. Da die
Spaltenaufteilung anhand der Kalenderwochen vorgenommen wird ist die Tabelle
dementsprechend lang.

Gerne würde ich auf Knopfdruck nur die Daten für eine Partei anzeigen lassen um
den Überblick zu behalten (auf eienm neuen Tabellenblatt). Könnt ihr mit da weiter
helfen? Braucht ihr mehr Infos?

Danke Euch & Grüße,
Twansen

Answer 1

Hallo Twansen .-)

Ein Beispiel!

Gruss Nighty

Tabelle1 Spalte A ist mit eindeutigen merkmalen
Tabelle1 Spalte A eine beliebige Zelle Selektieren
Die Selektierte Zelle wird dem Autofilter übergen und gefiltert und Kopiert nach Tabelle2.

Einzufügen
Alt+F11/Projectexplorer/Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Row > 1 Then
Worksheets("Tabelle2").Cells.Clear
Worksheets("Tabelle1").Range("A1").AutoFilter Field:=1, Criteria1:=Target
Worksheets("Tabelle1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle2").Range("A1")
Worksheets("Tabelle1").Range("A1").AutoFilter
End If
Application.EnableEvents = True
End Sub