AutoFill und Worksheet_Change
29.05.2013 21:34:27
Brandl
Mich bringt wiederum ein Problem zur Verzweiflung:
Wenn in der ersten Spalte unter der aktuellen Zeile eine farblich markierte Zelle ist, wird bei Einfügen eines Textes automatisch eine Zeile eingefügt.
Dies funktioniert mit folgendem Code problemlos.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b As Integer
If NoEvent Then Exit Sub
a = Target.Row
b = Target.Column
If a > 2 Then
If b = 2 Or b = 3 Or b = 4 Then
If Cells(a + 1, 1).Interior.ColorIndex _
xlColorIndexNone And Target.Value Empty Then
' Zeile einfügen
Rows(a + 1).Insert Shift:=xlShiftUp
With Cells(a + 1, b).EntireRow
.Hyperlinks.Delete
.Interior.ColorIndex = xlColorIndexNone
End With
End If
End If
End If
End Sub
Wird aber im benannten Bereich mit der Maus eine AutoFill-Aktion oder ein Kopieren von mehreren Zeilen ausgeführt, bekomme ich den Laufzeitfehler "13".
Ich kann das zwar dadurch lösen: On Error --> Exit Sub
sehe das aber nicht als wirkliche Lösung.
Wenn mir jemand helfen kann, bin ich sehr dankbar!
LG aus Kärnten
Sigi