Hallo zusammen,
das folgende Makro legt mir ein Fadenkreuz auf das
Arbeitsblatt, welches mit der aktuellen Zelle „mitläuft“.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range, s As Shape
Set x = ActiveCell
With ActiveSheet
For Each s In .Shapes
If s.Name Like „Line*“ Then s.Delete
Next
.Shapes.AddLine x.Left, 0, x.Left, ActiveWindow.Height
.Shapes.AddLine 0, x.Top, ActiveWindow.Width, x.Top
End With
End Sub
Leider endet der waagerechte Strich bei Spalte O und der
senkrechte bei Zeile 47.
Weiß vielleicht jemand, wie ich erreichen kann, daß das
Fadenkreuz endlos ist?
Gruß und danke
Rolf
Hi,
machs doch so:
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
Dim x As Range, s As Shape
Set x = ActiveCell
With ActiveSheet
For Each s In .Shapes
If s.Name Like "Line\*" Then s.Delete
Next
.Shapes.AddLine x.Left, 0, x.Left, 100000
.Shapes.AddLine 0, x.Top, 100000, x.Top
End With
End Sub
Gruß.Timo
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Timo,
genau das isses. Dankeschöön.
Gruß
Rolf
machs doch so:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range, s As Shape
Set x = ActiveCell
With ActiveSheet
For Each s In .Shapes
If s.Name Like „Line*“ Then s.Delete
Next
.Shapes.AddLine x.Left, 0, x.Left, 100000
.Shapes.AddLine 0, x.Top, 100000, x.Top
End With
End Sub
Gruß.Timo
Hallo zusammen,
das folgende Makro legt mir ein Fadenkreuz auf das
Arbeitsblatt, welches mit der aktuellen Zelle „mitläuft“.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range, s As Shape
Set x = ActiveCell
With ActiveSheet
For Each s In .Shapes
If s.Name Like „Line*“ Then s.Delete
Next
.Shapes.AddLine x.Left, 0, x.Left, ActiveWindow.Height
.Shapes.AddLine 0, x.Top, ActiveWindow.Width, x.Top
End With
End Sub
Leider endet der waagerechte Strich bei Spalte O und der
senkrechte bei Zeile 47.
Weiß vielleicht jemand, wie ich erreichen kann, daß das
Fadenkreuz endlos ist?
Gruß und danke
Rolf