Worksheet_selectionchange
09.10.2018 10:45:00
biwi
ich habe aktuell folgenden Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B9:B103")) Is Nothing Then Exit Sub
Range("C5").Value = Target.Offset(0, 0).Value
End Sub
Ich habe eine Tabelle von B9 bis L103 mit einer ID in Spalte B:B wenn ich jetzt eine dieser Zellen in Spalte B anklicke schreibt mir das Makro den Wert der Zelle in C5. Alle Diagramme und weiteren Tabellen in meinem Arbeitsblatt nutzen diese Zelle dann über einen SVerweis. Jetzt möchte ich aber, dass auch wenn ich in irgendeine andere Spalte aus der Tabelle B9:L103 klicke der jeweilige Wert aus der gleichen Zeile der Spalte B in C5 geschrieben wird.Also ich klicke beispielsweise in K36 dann soll mir das Makro den Wert aus B36 in C5 schreiben usw. für den gesamten Bereich von B9 bis L103.
Kann mir da jemand weiter helfen?