Herbers Excel/VBA-Archiv

Zellrahmen: Begrenzung aus Zellinhalt auslesen | Herbers Excel-Forum

• Zellrahmen: Begrenzung aus Zellinhalt auslesen von Ralf vom 09.08.2012 14:37:23
• zu viele " - von Rudi Maintaire am 09.08.2012 14:45:23
  • AW: zu viele " - von Ralf am 09.08.2012 14:50:13

Betrifft: Zellrahmen: Begrenzung aus Zellinhalt auslesen von: Ralf
Geschrieben am: 09.08.2012 14:37:23

Hallo Forum,

ich möchte aus zwei Zellinhalten einen Tabellenrahmen erstellen.
Ich habe mir folgenden Code aufgezeichnet und anschließend selbst ein bischen manipuliert. Die Definition des Zellbereiches ergibt einen Kompilierungsfehler.
Hier der Code:

Sub Makro1()

    'Zellbereich aus Zellinhalt Tabelle 1 entnehmen, Q28 Begrenzung oben links, Q29 Begrenzung  _
unten rechts
    Range("Worksheets("Tabelle1").Range("Q28").Value & ":" & Worksheets("Tabelle1").Range("Q29") _
.Value").Select
    
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

End Sub

Was mache ich falsch?

Vielen Dank im Voraus für eine Rückmeldung.

Viele Grüße

Ralf

Betrifft: zu viele " von: Rudi Maintaire
Geschrieben am: 09.08.2012 14:45:23

Hallo,
das erste und das letzte weg!

Range(Worksheets("Tabelle1").Range("Q28").Value & ":" & Worksheets("Tabelle1").Range("Q29") _
.Value).Select

Gruß
Rudi

Betrifft: AW: zu viele " von: Ralf
Geschrieben am: 09.08.2012 14:50:13

Hallo Rudi,

super, vielen Dank.

Viele Grüße

Ralf

Beiträge aus den Excel-Beispielen zum Thema "Zellrahmen: Begrenzung aus Zellinhalt auslesen"