|
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:
1 | wbk.Worksheets(1).Range("B18").Value = strValue
|
Der Inhalt der zu kopierenden Zelle wird zuvor weiter oben ausgelesen:
1 | strValue = Target.Cells(1, 1).Value
|
Wenn ein neue Quelle kopiert werden soll, muss lediglich folgendes am Ende der "Worksheet_SelectionChange" hinzugesetzt werden:
1 2 3 4 | 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
|