Hallo allerseits,

ich möchte gerne durch Umrahmen von Zellen ein simples Hochregallager erstellen/zeichnen lassen. Die einzelnen Ebenen des Regals können zwei unterschiedliche Höhen besitzen (hoch oder niedrig).

Dazu lese ich Daten aus einer Tabelle aus. Bsp.: 1.Ebene = niedrig, 2.Ebene = niedrig, 3. Ebene = hoch,......10.Ebene = niedrig

Dementsprechend werden dann in einem seperaten Tabellenblatt die Zeilenhöhen entsprechend angepasst. (Anm.: Ich starte hier bspw. mit Zeile 26 als 1. Ebene des Regals):

If Tabelle5.Range("B26").Value = "niedrig" Then
Tabelle6.Range("B26").RowHeight = 28
Else
End If

If Tabelle5.Range("B26").Value = "hoch" Then
Tabelle6.Range("B26").RowHeight = 50
Else
End If

Das Ganze geschieht für die jeweiligen Ebenen in einer Schleife.

Nun möchte ich aber nicht nur die Zeilenhöhe anpassen, sondern die Zellen, die nun entweder eine Höhe von "28" oder "50" besitzen entsprechend einrahmen. Die "Länge" des Regals ist hierbei noch egal und wird einfach mit bspw. 25 Spalten breit angenommen.

If .RowHeight = 28 Then Worksheets("Tabelle6").Range("B2:J26").Borders (xlEdgeLeft)
                                    .LineStyle = xlDouble
                                    .Color = -16727809
                                    .TintAndShade = 0
                                    .Weight = xlThick
        If .RowHeight = 28 Then Worksheets("Tabelle6").Range("B2:J26").Borders (xlEdgeTop)
                                    .LineStyle = xlDouble
                                    .Color = -16727809
                                    .TintAndShade = 0
                                    .Weight = xlThick
        If .RowHeight = 28 Then Worksheets("Tabelle6").Range("B2:J26").Borders (xlEdgeBottom)
                                    .LineStyle = xlDouble
                                    .Color = -16727809
                                    .TintAndShade = 0
                                    .Weight = xlThick
        If .RowHeight = 28 Then Worksheets("Tabelle6").Range("B2:J26").Borders (xlEdgeRight)
                                    .LineStyle = xlDouble
                                    .Color = -16727809
                                    .TintAndShade = 0
                                    .Weight = xlThick
                                    
        If .RowHeight = 50 Then Worksheets("Tabelle6").Range("B2:J26").Borders (xlEdgeLeft)
                                    .LineStyle = xlDouble
                                    .Color = -16727809
                                    .TintAndShade = 0
                                    .Weight = xlThick
        If .RowHeight = 50 Then Worksheets("Tabelle6").Range("B2:J26").Borders (xlEdgeTop)
                                    .LineStyle = xlDouble
                                    .Color = -16727809
                                    .TintAndShade = 0
                                    .Weight = xlThick
        If .RowHeight = 50 Then Worksheets("Tabelle6").Range("B2:J26").Borders (xlEdgeBottom)
                                    .LineStyle = xlDouble
                                    .Color = -16727809
                                    .TintAndShade = 0
                                    .Weight = xlThick
        If .RowHeight = 50 Then Worksheets("Tabelle6").Range("B2:J26").Borders (xlEdgeRight)
                                    .LineStyle = xlDouble
                                    .Color = -16727809
                                    .TintAndShade = 0
                                    .Weight = xlThick

Das ist mal mein erster Ansatz hierzu soweit. Jedoch bin ich mir sowohl mit der Schleife als auch mit der Definition der Range usw. nicht sicher bzw. komme nicht weiter.

Vielen Dank für eure Hilfe schon mal!

VG Christoph