Fadenkreuz makro --> Laufzeitfehler
20.04.2013 08:31:43
mikey
Laufzeitfehler "-2147024809 (80070057);
Der Wert ist außerhalb des gültigen Bereiche.
Wenn ich eine ganze Zeile bsp. bei mir ab A18 in Excel anklicke.
Ich klicke sie so an das die gesamte Zeile in Excel markiert ist,
dazu muss man nur ganz links auf bsp. A20 mit der Maus fahren,
der Mauszeiger ändert sich danach auf einen kleinen schwarzen Pfeil
wenn mit diesem nun die Zeile markiere kommt die Fehlermeldung.
Kann es sein das man die Spalte auch eingrenzen muss oder ist
das nur eine Vermutung von mir.
Also die Spaltenmarkierung sollte bis AO1
Habe verschiedene große Zeilen 280,320,409
Der Fehler taucht auch auf wenn ich eine ganze Spalte markiere.
Diesen Fehler wenn ich auf eine Spalte klicke habe ich wegbekommen
indem ich einfach den Punkt im Makro
Top = Target.Top bei (FKZeile) rausgelöscht habe, jetzt
kann ich oben auf Spalt A, B usw. klicken ohne das der Laufzeitfehler
kommt. jedoch kann ist dann die zeilenmarkierung bei großen zellen
nur über die Hälfte der zelle sichtbar.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sichtbar As Boolean
Sichtbar = Target.Row >= 18 And Target.Column >= 3
With Shapes("FKZeile")
.Visible = Sichtbar
.Left = Columns("A").Left
.Width = Columns("AP").Left - Columns("A").Left
.Top = Target.Top
.Height = Target.Height
End With
With Shapes("FKSpalte")
.Visible = Sichtbar
.Left = Target.Left
.Width = Target.Width
.Top = ActiveWindow.VisibleRange.Top
.Height = ActiveWindow.VisibleRange.Height
End With
End Sub
Vielleicht habt ihr eine idee
danke
lg