Clever-Excel-Forum

Hallo Community,

in einer Übersichtstabelle habe ich 14 Spalten und ca. 1000 Zeilen bei dem täglich 2-3 neue hinzukommen.
Nun würde ich gerne 5 weitere Tabellen erstellen bei dem die Inhalte aus der Übersichtstabelle eingetragen werden.

z.B. in der Übersichtstabelle steht in Spalte E "Berlin". Dann möchte ich gerne dass die komplette Zeile in das Tabellenblatt "Berlin" kopiert wird.

Dasselbe für München, Hamburg, Mannheim, Kaiserslautern. Geht das ohne VBA mir einer Formel? Oder wie gehe ich sinnvollerweise da dran?
Der Makrorecorder hat folgendes aufgenommen. Funktioniert zwar, aber ist eher unelegant :)

Code:
    ActiveSheet.ListObjects("Übersicht").Range.AutoFilter Field:=5, Criteria1:= _

        "Berlin"

    ActiveWindow.SmallScroll Down:=-349

    Range("Tabelle1[[#Headers],[Objekt Nr.:]]").Select

    Range(Selection, Selection.End(xlDown)).Select

    Range(Selection, Selection.End(xlToRight)).Select

    Selection.Copy

    Sheets("Berlin").Select

    Range("A1").Select

    ActiveSheet.Paste

    Sheets("Übersicht").Select

    Application.CutCopyMode = False

    Application.WindowState = xlMaximized

    ActiveWindow.LargeScroll ToRight:=-1

    ActiveSheet.ListObjects("Übersicht").Range.AutoFilter Field:=5

    ActiveWindow.SmallScroll Down:=30

    Range("F976").Select

Besten Dank im Voraus und viele Grüße tyr0n

Zitat:Oder wie gehe ich sinnvollerweise da dran?

Hallo,
ich frage mich ob es nicht viel einfacher ist die Originalliste zu filtern.

>> ich würde aus der Liste eine intelligente Tabelle erstellen (eine Zelle der Liste markieren > [STRG] + [T] )

Du bekommst in den Überschriften ein Pull-Down-Menü in der du ganz nach belieben deine Liste filtern kannst.

Gruß Holger

Hallo echo,

es handelt sich dabei bereits um eine Tabelle mit Überschriften. Allerdings geht es ums Auswerten und da benötige ich die gefilterte Daten in einzelnen Tabellen.

VG tyr0n

Hi,

statt 5 Tabellen erstelle Dir eine Parameterabfrage mit Power Query oder Power Pivot.

Hi,

schau dir mal die FILTER()-Funktion an…

=FILTER(DeineTabelle;DieSpalteMitStädten="Berlin")

Hallo

bitte probier mal ob sich die Daten mit diesem kleinen Makro kopieren lassen.
Wenn nicht bitte eine kleine Beispieldatei mit Fantasiedaten hochladen.

mfg Gast 123

Code:
Sub Übersicht_kopieren()

    Stadt = "Berlin": GoSub AFiL

    Stadt = "München": GoSub AFiL

    Stadt = "Hamburg": GoSub AFiL

    Stadt = "Mannheim"": GoSub AFiL"

    Stadt = "Kaiserslautern": GoSub AFiL

Exit Sub

AFiL: On Error GoTo Fehler

With Worksheets("Übersicht")

      .ListObjects("Übersicht").Range.AutoFilter Field:=5, Criteria1:=Stadt

      .ListObjects("Übersicht").Range.SpecialCells(xlCellTypeVisible).Copy

      Worksheets(Stadt).Range("A1").PasteSpecial xlPasteAll

      Application.CutCopyMode = False

      Return

End With

Fehker: MsgBox "Fehler aufgetreten"

End Sub

tyr0n

echo

tyr0n

Ralf A

HKindler

Gast 123