alternative Rahmen ziehen
Malte
ich verzweilfe gerade. Mein Quellcode lief wunderbar, bis ich eine Sache geändert habe, die _
eigl. keinen Einfluss darauf haben dürfe, dass meine Rahmen-zieh-Sub nicht mehr geht.
Sub rahmen_ziehen_v1(ByVal intMerker As Integer, ByVal intMerker_auf As Integer)
Dim rngBereich As Range
Set rngBereich = Range("A" & intMerker & ":K" & intMerker_auf)
With rngBereich.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rngBereich.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
rngBereich.BorderAround xlContinuous, xlMedium
End Sub
In Version 1 übergebe ich intmerker=3 und intmerker_auf=39.. die Sub läuft einwandfrei
in Version 2 übergebe ich intmerker=3 und intmerker_auf=39.. exakt das gleiche die Sub liefer Fehler 400.
Ich habe keine Idee mehr.
Gibts es alternativen, wie ich den Rahmen ziehen kann?
Vielen Dank!
Gruß