Werte übertragen
23.09.2007 10:07:23
chris58
Ich habe diesen Code, der mir, wenn ich auf eine Zeile doppelklicke, den Wert in ein anderes Tabellenblatt kopiert. Da ich aber insgesamt 5 Werte habe, die ich in jeweils ein anderes Tabellenblatt benötige, wolte ich fragen, welchen code ich nehmen kann, der mir automatisch die jeweiligen Werte in die dazugehörigen Tabellenblätter wirft. Geht das überhaupt ?
Das Ganze ist derzeit so:
Ich lade mir Kurse von diversen Aktien auf das Excel-Blatt. Nun soll der code automatisch die Werte übernehmen und:
Kurs1 auf das Tabellenlbatt Kurse1 in die nächste freie Zeile (ab B2) kopieren
Kurs2 auf das Tabellenblatt Kurse2 in die nächste freie Zeile (ab B2) kopieren
Kurs3 auf das Tabellenblatt Kurse3 ...................
Kurs4 auf das Tabellenblatt Kurse4 ...................
Kurs5 auf das Tabellenblatt Kurse5 ...................
Danke für Eure Antwort
chris
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D2:D5000")) Is Nothing Then
Sheets("Kurse").Range("A1").Value = Target.Value
End If
End Sub