|
Hallo,
ich bin ein totaler VBA Neuling und schlage mich seit Tagen mit dem Kopieren von einer Range in eine andere Zelle durch einen einfachen Mausklick rum. Also durchs Anklicken soll die Zelle D5 in L5 erscheinen. Hintergrund ist, dass ich eine Skala zwischen 1 und 10 habe, die ich durchs einfache Anklicken bedienen möchte. So bewerte ich nach folgenden Kriterien. Das Problem ist, dass ich in meiner ersten Spalte durchs Anklicken schaffe, die von mir ausgesuchte Zahl in meiner Spalte nebenan zu kopieren. Die anderen Spalten schaffe ich nicht zu kopieren. Es kommen dauernd Fehlermeldungen.
Bsp: Durchs Anklicken der 9 auf meiner Skala erscheint die 9 auch in einer beliebigen Zelle, hier L5
1,2,3,4,5,6,7,8,9,10 -> 9
In der nächsten Spalte klick ich die 4 und sie erscheint dann in L6
1,2,3,4,5,6,7,8,9,10 -> 4
und so weiter
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B4:K4")) Is Nothing Then Exit Sub
ActiveCell.Copy ActiveSheet.Range("L4")
End Sub
Ich hoffe ihr könnt mir helfen!
|