Überprüfen ob Rahmen in Zelle

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich möchte folgendes machen:

  1. überprüfen in welchen Zellen ein diagonaler Rahmen gezeichnet ist
  2. in die Zelle darunter einen diagonalen Rahmen zeichnen

So hab ichs mir vorgestellt

->Überprüfen ob in der Spalte G von der Zeile 34 bis 4 eine Zelle mit Rahmen vorhande ist wenn ja, die Zelle darunter mit einem Rahmen versehen.
wenn nicht weiter zu Spalte E
-> In Spalte E wieder überprüfen von 34 bis 4 …
-> dann Spalte C von 33 bis 4
-> Spalte A von 34 bis 4

Zusatz:

wenn die letzte Zelle mit Rahmen z.B. die Zelle A34 ist dann springen auf C2 und dort den Rahmen zeichnen
das gleiche bei C33; E34
bei G34 ist aus

Den Rahmen zeichnen hab ich schonmal (aber das Wohin fehlt mir eben noch):

Sub RahmenZeichnen ()
Range(„A5“).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
End Sub

mfg MPunkt

#2

Hallo M.,

  1. überprüfen in welchen Zellen ein diagonaler Rahmen
    gezeichnet ist
  2. in die Zelle darunter einen diagonalen Rahmen zeichnen

->Überprüfen ob in der Spalte G von der Zeile 34 bis 4 eine
Zelle mit Rahmen vorhande ist wenn ja, die Zelle darunter mit
einem Rahmen versehen.
wenn nicht weiter zu Spalte E

in G37 ist die Zelle Diagonal gerahmt, okay, dann wird G38 diagonal gerahmt, was nun? Nach Spalte E oder weiter mit G38 was aber alles drunter rahmt.

Wieso zählst du von 34 nach 4?

-> In Spalte E wieder überprüfen von 34 bis 4 …
-> dann Spalte C von 33 bis 4

33 ist korrekt?

-> Spalte A von 34 bis 4

Zusatz:

Erst die Hauptsache verstehen/lösen dann die Zusätze :smile:

Zu deinem Code, was genau meinst du mit diagonalem Rahmen, xlDiagonalDown oder xlDiagonalUp oder beide zusammen?

Gruß
Reinhard

#3

Hallo M.,

  1. überprüfen in welchen Zellen ein diagonaler Rahmen
    gezeichnet ist
  2. in die Zelle darunter einen diagonalen Rahmen zeichnen

->Überprüfen ob in der Spalte G von der Zeile 34 bis 4 eine
Zelle mit Rahmen vorhande ist wenn ja, die Zelle darunter mit
einem Rahmen versehen.
wenn nicht weiter zu Spalte E

in G37 ist die Zelle Diagonal gerahmt, okay, dann wird G38
diagonal gerahmt, was nun? Nach Spalte E oder weiter mit G38
was aber alles drunter rahmt.

Ich fange in G34 an zu überprüfen, wenn ich eine Zelle mit dem diagonalen Rahmen gefunden habe, zeichne ich einen in die darunterliegende Zelle ein und das Makro wird beendet

Wieso zählst du von 34 nach 4?

weil ich jedesmal wenn ich es ausführe eine Zelle darunter gerahmt werden soll, wenn ich von oben nach unten überprüfe wird ja immer die gleiche gerahmt!

-> In Spalte E wieder überprüfen von 34 bis 4 …
-> dann Spalte C von 33 bis 4

33 ist korrekt?

ja

-> Spalte A von 34 bis 4

Zusatz:

Erst die Hauptsache verstehen/lösen dann die Zusätze :smile:

Zu deinem Code, was genau meinst du mit diagonalem Rahmen,
xlDiagonalDown oder xlDiagonalUp oder beide zusammen?

Also der Code gehört ja nicht mir sondern dem Makrorekorder :smile:
diagonaler Rahmen = Strich in Zelle, von links-unten nach rechts-oben

mfg MPunkt