Tabelle aufteilen

Question

Morgen!

Habe eine Frage, die für die Experten hier sicher eine Kleinigkeit ist, aber ich arbeite normalerweise nicht mit Tabellenkalkulation.

Meine "Aufgabe":
Ich habe Daten als CSV-Datei gegeben. Diese möchte ich, je nach Wert in einer Spalte (o.B.d.A. Spalte B), auf verschiedene Tabellenblätter packen.

Wie geht das mit OOo 3?

Answer 1

Spricht etwas dagegen, die Daten nach dieser Spalte zu sortieren, so dass man leicht die Daten eines Bereichs markieren und kopieren kann?

Answer 2

Hauptsächlich meine Faulheit. Und die Tatsache, dass es ein Dutzend verschiedener Einträge in der Spalte gibt und das ganze nicht nur ein einziges Mal passieren soll.

Answer 3

hi marvin :-))

dann gib mal eine nette beschreibung ^^

aufteilung nach werte der zellen oder ueberschriften oder oder oder *hihi*

nach schon vorhanden tabellen

oder neuen tabellen :-))

gruss nighty :-)

.

Answer 4

Wie gesagt: Aufteilung nach Wert der Zellen in Spalte B.
Die Tabellen, in die kopiert werden sollen, wären schon vorhanden, wenn ich die Daten importiere.

Answer 5

hi all ^^

ein beispiel :-)

gruss nighty

ausgehen von

Tabelle1/Tabelle2/Tabelle3/Tabelle4

import nach Tabelle1,spalte a wird gefiltert

Tabelle2 hat werte von 001 bis 100
Tabelle3 hat werte von 101 bis 200
Tabelle4 hat werte von 201 bis 300

Option Explicit
Sub FilterKopieren()
'gefiltert wird nach groesser 0 und kleiner 101 und anschliessend kopiert
Worksheets("Tabelle1").Range("A1").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd, Criteria2:="<101"
Worksheets("Tabelle1").Rows("2:" & Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy Worksheets("Tabelle2").Range("A" & Worksheets("Tabelle2").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
Worksheets("Tabelle1").Range("A1").AutoFilter
'gefiltert wird nach groesser 100 und kleiner 201 und anschliessend kopiert
Worksheets("Tabelle1").Range("A1").AutoFilter Field:=1, Criteria1:=">100", Operator:=xlAnd, Criteria2:="<201"
Worksheets("Tabelle1").Rows("2:" & Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy Worksheets("Tabelle3").Range("A" & Worksheets("Tabelle3").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
Worksheets("Tabelle1").Range("A1").AutoFilter
'gefiltert wird nach groesser 200 und kleiner 301 und anschliessend kopiert
Worksheets("Tabelle1").Range("A1").AutoFilter Field:=1, Criteria1:=">200", Operator:=xlAnd, Criteria2:="<301"
Worksheets("Tabelle1").Rows("2:" & Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy Worksheets("Tabelle4").Range("A" & Worksheets("Tabelle4").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
Worksheets("Tabelle1").Range("A1").AutoFilter
End Sub