Daten kopieren
11.01.2006 13:20:42
helena
mein Problem ist noch nicht gelöst
ich möchte in Abhängigkeit von BLATTWAHL (aktive Blatt)
gewählt wird in Blatt AUSWAHL "A1" Daten übertragen von Quelle zB AbtA, AbtB, ..... nach Ziel Blätter, es sind alle Blätte ausgeblendet einzig
"AUSWAHL" und das gewählte Quellblatt zB. "AbtA" ist eingeblendet, dieser
Teil mit Anwahl funktioniert bereits, untere Teil ist offen
hier mein Ansatz aber geht nicht
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As String
'wks solllte ergeben "AbtA" dies steht in Blatt AUSWAHL in A1
wks = Worksheets("Auswahl").Range("A1") 'aktive Sheet
'ziel ..............................Quelle
'' mein Zielblatt.Zelle "F1" = AbtA.Zelle "C3"
Sheets("Ziel1").Range("F1") = wks.Range("C3")
Sheets("Ziel1").Range("C45") = wks.Range("C5")
Sheets("Ziel2").Range("C45") = wks.Range("C5")
End Sub
im wks sollte Blattname stehen ich wähle ja aus aktive Quellblatt AbtA, AbtB, .....usw. und Daten werden dann in die Blätter übertragen
Was ist hier falsch ? oder besser gesagt wo habe ich Überlegungsfehler
DANKE für Hilfe würde dies ziemlich dringend benötigen
gruss helena
Anzeige