Zeile und Spalte der aktiven Zelle markieren
15.06.2018 16:27:07
Johannes
ich möchte in einem bestimmten Arbeitsblatt, die Zeile und Spalte der aktiven Zelle markiert _ haben und zwar nur bis zur aktiven Zelle. Also nicht die komplette Spalte bzw. Zeile. Mein Code sieht bis dato wie folgt aus, bei welchem ich allerdings einen Laufzeitfehler '1004' erhalte: Die Methode'Range' für das Objekt '_Worksheet' ist fehlgeschlagen
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range
Set rng1 = Range("B" & Target.Row, Target.Address(0, 0))
Set rng2 = Range(Left(Target.Address(0, 0), 1) & "5", Target.Offset(-1, 0).Address(0, 0))
Union(rng1, rng2).Select
Target.Activate
End Sub
Wäre super, wenn jemand eine Idee hat. Vielen Dank euch im Voraus.
Johannes