Daten automatisch aus Pivot-Tabellen extrahieren

[Elsman]

Hallo Leute!
Ich habe hier ein Problem mit Excel und Pivot-Tabellen. Ich hoffe Ihr
könnt mir dabei helfen.

Ich habe Automatisch via Makro Daten aus einer Access-Datenbank in
Excel importiert und eine Pivot-Tabelle erstellen lassen.
Soweit hat auch alles geklappt, nur jetzt stell ich mir vor, wichtige
daten zu markieren und zur Verarbeitung in Access zurückzuschreiben.
Nur wie kann ich die Daten bzw Datensätze automatsch erfassen und auf
ein neues Datenblatt transferieren?

Zu den Daten,
Es sind ausgelesene Daten, bestehend aus einer Kostenart, Datum,
Kostenstelle und dem Wert.
Es geht darum regelmässige Zahlungsflüsse zu erfassen und aus
sporadischen Zahlungen auf manuellem Weg relevante Zahlungen mit
aufzunehmen - dafür die Tabelle.

Ich muss jetzt noch dazu sagen, das ich eigentlich nicht viel
Erfahrung mit Makros habe.

Könnt Ihr mir irgendwie helfen? Ich Danke euch schon einmal dafür

Greetz!
der Elsi

Soeren Elsen
***@gmx.de
Halle/Saale

[Elsman]

Hallo Leute!
Das Problem hat sich erledigt. ich habe eine Lösung gefunden:

Sub copy()
'
'
Dim lRow As Long
Dim lCol As Long

Sheets("pivottabelle").Select
Set rng = ActiveSheet.UsedRange
With rng

For lRow = .Rows.Count To 1 Step -1
For lCol = 1 To .Columns.Count
If .Cells(lRow, lCol).Interior.ColorIndex = 3 Then

DoCmd.SetWarnings False
Cells(lRow, lCol).Select
Selection.ShowDetail = True
Rows("2:2").Select
Selection.copy
'ActiveSheet.Delete
Sheets("Tabelle1").Select
Rows("2:2").RowHeight = 13.5
Rows("2:2").Select
ActiveSheet.Paste
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Sheets("Pivottabelle").Select



Exit For
End If
Next lCol
Next lRow
End With
End Sub

Ist vielleicht nhicht die beste lösung, aber es ist eine ;-)
Verbesserungsvorschläge nheme ich aber dennoch gerne an.

Zur Information, die Daten werden jetzt wieder in die Access DB
zurückgeschrieben und dort weiterverarbeitet.

An alle, die dennoch einen Blick in dieses Posting werfen um zu evtl.
zu Helfen
sage ich DANKE.

Greetz
der ELsi

Soeren Elsen
***@gmx.de
Halle/Saale

Post by Elsman
Hallo Leute!
Ich habe hier ein Problem mit Excel und Pivot-Tabellen. Ich hoffe Ihr
könnt mir dabei helfen.
Ich habe Automatisch via Makro Daten aus einer Access-Datenbank in
Excel importiert und eine Pivot-Tabelle erstellen lassen.
Soweit hat auch alles geklappt, nur jetzt stell ich mir vor, wichtige
daten zu markieren und zur Verarbeitung in Access zurückzuschreiben.
Nur wie kann ich die Daten bzw Datensätze automatsch erfassen und auf
ein neues Datenblatt transferieren?
Zu den Daten,
Es sind ausgelesene Daten, bestehend aus einer Kostenart, Datum,
Kostenstelle und dem Wert.
Es geht darum regelmässige Zahlungsflüsse zu erfassen und aus
sporadischen Zahlungen auf manuellem Weg relevante Zahlungen mit
aufzunehmen - dafür die Tabelle.
Ich muss jetzt noch dazu sagen, das ich eigentlich nicht viel
Erfahrung mit Makros habe.
Könnt Ihr mir irgendwie helfen? Ich Danke euch schon einmal dafür
Greetz!
der Elsi
Soeren Elsen
Halle/Saale