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 :)
Besten Dank im Voraus und viele Grüße tyr0n
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