Zellinhalte mit VBA in 2 Tabellen transportieren
04.02.2005 15:04:49
Korl
ich habe mir eine Excelmappe für meine Ausgaben angelegt. Sie besteht aus 3 Tabellenblättern.
- Stamm
- Liste
- DB
Im Tabellenblatt "Stamm" habe ich mir alle Ausgaben angelegt.
Hier heraus werden die einzelnen Posten per Doppelklick ins Tabellenblatt "Liste" hinüber transportiert, um die monatlichen Ausgaben ausdrucken zu können, zur weiteren Bearbeitung mit nachfolgenden Makro. Dieses funktioniert auch.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zeile As Long
zeile = Sheets("Stamm").Range("h1").Value
If Target.Column > 2 Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Copy Destination:=Sheets("Liste").Cells(zeile, 2)
Cancel = True
End Sub
Nun mein Problem:
Nun möchte ich zusätzlich die einzelnen Posten die bereits ins Tabellenblatt "Liste" eingetragen werden, noch mal ins Tabellenblatt "DB" eingetragen werden, zwecks meiner Analyse mittels Pivottabelle.
Die Zeilennummer für den Eintrag ins Tabellenblatt "DB" befindet sich im Tabellenblatt "Stamm" Zelle "H2"
Da ich in VBA keine Leuchte bin, bräuchte ich Hilfe.
Ich hoffe, ich konnte mich verständlich ausdrücken.
Gruß Korl