Formatierung in Abhängigkeit eine Zelle
14.02.2008 11:14:14
Torsten
habe eine kleines VBA-Proble. Ich habe eine kleine Beispieldatei. Dort werden in 3 Spalten Nr. Beschreibung und Art von Reklamationen aufgelistet. Ich will nun, dass sich bei Eingabe in der Spalte Art das Format von Spalte A und B in Abhängigkeit der Eingabe ändert. Habe die so gelöst:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c1:c10")) Is Nothing Then
With Target
If .Value = "rej" Then
For i = 1 To 2
Target.Offset(0, -i).Activate
With ActiveCell.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Target.Select
End With
Next i
Else
For i = 1 To 2
Target.Offset(0, -i).Activate
With ActiveCell.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlNone
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlNone
Target.Select
End With
Next i
End If
End With
End If
End Sub
Habe nun das Problem, dass die Zeilen nicht immer einzeln eingegebn werden, sondern die Daten oft aus einer zweiten Tabelle kopiert und eingefügt werden. Dabei kommt es aber zur Fehlmeldung: Laufzeitfehler 13, Typen unverträglich.
Wie kann ich das Problem umgehen/beseitigen.
Vielen Dank für eure Hilfe.