Excel Vba Rahmenlinien Setzen

July 2, 2024, 3:26 pm

Verfasst am: 28. Mrz 2011, 19:20 Rufname: du musst berall dort, wo "Selection. " steht, anstelle von Selection den Zellbezug zu der Zelle, die du formatieren mchtst, eintragen. also net Code: Range("I9:J9") sondern Code: Range("I9:J9"). Borders(xlDiagonalDown). LineStyle = xlNone und das halt konsequent fr alle Selections im aufgezeichneten Code. Excel vba rahmenlinien setzen folder. wie gesagt, mit dem Recorder aufgezeichneter Code bedarf immer einer berarbeitung. meistens ist es sogar einfacher, den Code selbst zu schreiben und den Recorder nur zu verwenden, um nachzuschauen, wie es geht. Verfasst am: 28. Mrz 2011, 19:24 Rufname: Werde morgen gleich testen.... Danke schon mal vorab. Gre Markus

Excel Vba Rahmenlinien Setzen Program

DashStyle = msoLineDashDotDot. Excel vba rahmenlinien setzen program. = RGB(50, 0, 128) End With In diesem Beispiel wird myDocument ein Kreuz hinzugefügt und anschließend der Rahmen auf 8 Punkt Stärke und Rot festgelegt. With (msoShapeCross, 10, 10, 50, 70) = 8. = RGB(255, 0, 0) Support und Feedback Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Excel Vba Rahmenlinien Setzen 2

rderAround-Methode (Excel) | Microsoft Docs Weiter zum Hauptinhalt Dieser Browser wird nicht mehr unterstützt. Führen Sie ein Upgrade auf Microsoft Edge durch, um die neuesten Features, Sicherheitsupdates und den technischen Support zu nutzen. Artikel 04/07/2022 2 Minuten Lesedauer Ist diese Seite hilfreich? Haben Sie weiteres Feedback für uns? Feedback wird an Microsoft gesendet: Wenn Sie auf die Sendeschaltfläche klicken, wird Ihr Feedback verwendet, um Microsoft-Produkte und -Dienste zu verbessern. Datenschutzrichtlinie Vielen Dank. In diesem Artikel Fügt einem Bereich einen Rahmen hinzu und legt die Eigenschaften Color, LineStyle und Weight des Border -Objekts für den neuen Rahmen fest. XlBorderWeight-Aufzählung (Excel) | Microsoft Docs. Variant. Syntax ausdruck. BorderAround ( LineStyle, Weight, ColorIndex, Color, ThemeColor) Ausdruck Eine Variable, die ein Range -Objekt darstellt. Parameter Name Erforderlich/Optional Datentyp Beschreibung LineStyle Optional Variant Eine der Konstanten von XlLineStyle, die die Linienart für den Rahmen angibt.

Excel Vba Rahmenlinien Setzen Folder

Autor Nachricht Alienya Gast Verfasst am: 24. Jul 2008, 09:17 Rufname: Version: Office 2003 Hallo liebe Forenuser Mir wurde hier schon einmal supertoll geholfen, daher mchte ich euch noch einmal ein Problem schildern. Und zwar muss ich jeden Tag fr einiges an Mitarbeitern die Zeiterfassung machen. Dazu habe ich eine Excel Monatsliste. Rahmen per VBA setzen. Um diese bersichtlich zu halten (und damit ich nicht dauern in den Zeilen verrutsche) haben ich und mein Kollege uns geeinigt, alle 5 Zeilen eine dickere Rahmenlinie zu setzen. Nun das Problem: Wenn wir beispielsweise in Zeile 3 einen neuen Mitarbeiter eintragen, haben wir die dicke Rahmenlinie unter der 6 Zeile. Sie soll aber nach der 5ten stehen bleiben. Gibt es da eine Einstellung mit der man dem Tabellenblatt sagen kann "Setze Rahmenlinie ab Zeile 10 alle 5 Zeilen" Wir arbeiten mit Excel 2003 Ich danke euch schon einmal im vorraus Grangar Gute Excel Kenntnisse; VBA Einsteiger Verfasst am: 24. Jul 2008, 11:45 Rufname: BaBa Hi das knntest du eigentlich mit einer Bedingten Formatierung super hinbekommen.

Dann wird über die Funktion und einem bestimmten Bereich der Maximalwert ermittelt und in der Variable maxi gespeichert. Danach wird über die Funktion in der Spalte D nach dem gespeicherten Wert in maxi gesucht und die Zeilennummer in der Variable max gespeichert. Löschen der alten Markierung Um jetzt nicht zwei Markierungen in der Liste zu haben, muss erst die alte Markierung gelöscht werden. Dazu schreibst Du eine weitere Funktion, die alle Zellen im Bereich B6 – B12 durchgeht und den Standardrahmen der Tabelle für alle Zellen setzt. Die Funktion sieht folgendermaßen aus: Private Sub DeleteFirstPlaceBorder() rders(xlDiagonalDown). LineStyle = xlNone rders(xlDiagonalUp). LineStyle = xlNone With rders(xlEdgeLeft). Excel vba rahmenlinien setzen web. LineStyle = xlContinuous = black. TintAndShade = 0 = xlMedium End With With rders(xlEdgeTop). LineStyle = xlContinuous = xlThin With rders(xlEdgeBottom). LineStyle = xlContinuous With rders(xlEdgeRight). LineStyle = xlContinuous = xlHairline rders(xlInsideVertical). LineStyle = xlNone rders(xlInsideHorizontal).

[email protected]