|
Hallo psch,
freut mich, dass es gut funktioniert.
Wenn weitere Inhalte Kopiert werden sollen, muss man lediglich wissen, welche Zellen (Quelle und Ziel) das sind.
Die Zelle B18 wird mit diesem Befehl gefüllt:
wbk.Worksheets(1).Range("B18").Value = strValue
Der Inhalt der zu kopierenden Zelle wird zuvor weiter oben ausgelesen:
strValue = Target.Cells(1, 1).Value
Wenn ein neue Quelle kopiert werden soll, muss lediglich folgendes am Ende der "Worksheet_SelectionChange" hinzugesetzt werden:
strValue = Target.Worksheet.Range("Quelle").Value
If Not strValue = "" Then
wbk.Worksheets(1).Range("Ziel").Value = strValue
end if
"Quelle" und "Ziel" muss nur durch die Adresse ersetzt werden.
In diesem Beispiel wird angenommen, dass es sich bei der Quelle um eine feste Zelle handelt.
LG, BigBen
|