mal wieder stehe ich vor einem problem und hoffe auf eure hilfe.
ich möchte in einen bestimmten bereich diagonale rahmen ziehen.
mein makro dazu sieht so aus:
Sub diagonal_gekreuzt()
Selection.Borders(xlDiagonalDown).LineStyle = xlContinuous
Selection.Borders(xlDiagonalDown).Weight = xlHairline
Selection.Borders(xlDiagonalDown).ColorIndex = xlAutomatic
Selection.Borders(xlDiagonalUp).LineStyle = xlContinuous
Selection.Borders(xlDiagonalUp).Weight = xlHairline
Selection.Borders(xlDiagonalUp).ColorIndex = xlAutomatic
End Sub
dieser befehl löst das makro aus:
wks_U.Cells(jZeilen_Nr + 4, 4).Select: Call diagonal_gekreuzt
davon gibt es viele zellen in zwei tabellen = 6 zeilen um eine zelle zu formatieren
nun mein problem:
da ich mit select arbeite, erfordet dies auch immer den wechsel zwischen den tabellen
meine frage:
kann ich das ganze auch ohne select erreichen?
wie müßte ich das im code dann unterbringen?
wks_U.Cells(jZeilen_Nr + 4, 4).? : Call diagonal_gekreuzt_grau
gruß
kirsche