Herbers Excel/VBA-Archiv

Rahmen erstellen

• Rahmen erstellen von joerg vom 26.07.2014 20:55:30
• AW: Rahmen erstellen - von Rudi Maintaire am 26.07.2014 21:03:56
  • AW: Rahmen erstellen - von joerg am 26.07.2014 21:22:24

Betrifft: Rahmen erstellen von: joerg
Geschrieben am: 26.07.2014 20:55:30

Hallo, ich würde gerne Zellbereiche mit einem Rahmen versehen. Wenn es nur eine Zeile gibt (ez=6) dann erhalte ich die Fehlermeldung "400". Bei 2 Zeilen oder mehr kommt die Meldung nicht und alles läuft perfekt. Was kann ich tun?

With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With

Betrifft: AW: Rahmen erstellen von: Rudi Maintaire
Geschrieben am: 26.07.2014 21:03:56

Hallo,
eine Zelle kann keine .Borders(xlInside...)-Eigenschaft haben.
Was kann ich tun?
ez abfragen und die Rahmen nur bei <>6 setzen.


Gruß
Rudi

Betrifft: AW: Rahmen erstellen von: joerg
Geschrieben am: 26.07.2014 21:22:24

Vielen Dank für deine Antwort!!

Beiträge aus den Excel-Beispielen zum Thema "Rahmen erstellen"