Guten Tag, 

ich habe folgendes Problem: 

Eine Excel tabelle mit Zwei Blättern: 

Erstes Blatt soll die Daten für die User ausspucken.  Zweites Blatt stellt die Datenbank dar. 

Blatt 1("Startseite"): A3 soll kopiert werden (Hier gibt der Usere seine ID ein - demnach Variabel) 

Gehe zu Blatt 2("Alles") :  Hier soll in F2, das Kopierte eingefügt werden und danach gefiltert werden. 

Danach das Ergebnis der Filterung makieren und in Blatt 1 in A5-F5 eintragen - nach unten keine Grenzen. 

    ActiveCell.Offset(2, 0).Range("A1").Select
    Selection.Copy
    Sheets("Alles").Select
    ActiveSheet.Range("$A$2:$G$236001").AutoFilter Field:=6, Criteria1:= _
        "USERXYZ" <------- Hier ist mein Problem, wie bekomme ich das Variabel, dass hier das kopierte aus A3 (Blatt1) steht
    ActiveCell.Offset(2203, -6).Range("A1:G235175").Select
    ActiveCell.Offset(2203, 0).Range("A1").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Startseite").Select
    ActiveCell.Offset(4, 7).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.EntireColumn.AutoFit
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.EntireColumn.AutoFit
    ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.EntireColumn.AutoFit
    ActiveCell.Offset(0, 4).Columns("A:A").EntireColumn.EntireColumn.AutoFit
End Sub

VIelen dank vorab. 

Markus