Ort suchen und alle Ergebnisse Kopieren

Question

Hallo zusammen,

ich brauche etwas hilfe.

Ich habe eine Datei mit dem Reiter Rohdaten C3-Q3 dort stehen Orte und in A3 bis A368 das Datum. Im Bereich C4 bis Q368 die Werte zu den Orten und Datum. Jeder Ort kommt mindestens 3 mal vor.

ich möchte jetzt via Makro die Orte immer auf ein neues Tabellenblatt mit Datum, Ort und Wert kopiert haben und das er das Tabellenblatt nach dem Ort benennt.

Leider sind die Orte nie fest an der selben Position und auch nicht immer die selben.

Könnt Ihr mir Helfen?

Answer 1

man könnte es per Hand machen mit Autofilter und sichtbaren Bereich kopieren.

Gruß Hajo

Answer 2

so sieht die Tabelle aus

Autos Total blaue Autos grüne Autos
Datum Summe Berlin Hamburg Essen Hannover Köln Berlin Hamburg Essen Hannover Köln Berlin Hamburg Essen Hannover Köln
01.12.2012 Hamburg Hamburg 2 0 0 1 2 4 2 1
02.12.2012 12 5 3 0 4 0 2 3 5 1 1
03.12.2012 18 4 0 7 2 5 6 3 4 1 2 2
04.12.2012 10 1 5 0 2 2 1 4 2 1 2
05.12.2012 2 1 0 0 1 0 1 1
06.12.2012 3 2
07.12.2012
08.12.2012
09.12.2012
10.12.2012
11.12.2012
12.12.2012
13.12.2012
14.12.2012
15.12.2012
16.12.2012
17.12.2012
18.12.2012
19.12.2012
20.12.2012
21.12.2012
22.12.2012
23.12.2012
24.12.2012
25.12.2012
26.12.2012
27.12.2012
28.12.2012
29.12.2012
30.12.2012
31.12.2012

Answer 3

bei ca. 20000 Daten die Woche ist per hand nicht passend

Answer 4

bei dem Tabellenaufbau geht Autofilter auch nicht.

Gruß Hajo

Answer 5

ich überlege eine for next schleife über Datum und Ort laufen zu lassen aber genau da haenge ich fest

Answer 6

Ok ich komme hier nicht weiter, kann mir jemand helfen?

Answer 7

Wie bekomme ich die werte aus Debug.Print in eine Zelle geschrieben? Damit könnte ich auch schon arbeiten.

Sub test()
Dim Zelle As Range

Sheets("Rohdaten").Select
Range("C2").Select
Range(Selection, Selection.End(xlToRight)).Select
For Each Zelle In Selection

Debug.Print Zelle.Address & " " & Zelle.Value


Next Zelle
End Sub