Nun noch die folgenden Zeilen in die Funktion SetFirstPlace am Ende hinzufügen: (vor dem End Sub) Range("B" & max) Call SetFirstPlaceBorder Mit der ersten Zeile wird der Cursor auf die ermittelte Zelle gesetzt. Dann wird die Funktion SetFirstPlaceBorder aufgerufen und der rote dicke Rahmen wird gesetzt. Damit hast Du eine variable Markierung, die immer den ersten Platz anhand den Werten in der Spalte D entsprechend in der Spalte B markiert. Zum Schluß kannst Du hier noch eine Beispiel Excel-Datei herunterladen, die den kompletten Quelltext inkl. Beispieltabelle enthält. Wertetabelle für die Linien: Eigenschaften Werte LineStyle xlContinuous; xlDash; xlDashDot; xlDashDotDot; xlDot; xlDouble; xlLineStyleNone; xlSlantDashDot Color z. B. VBA Rahmenlinie einfügen. RGB(255, 0, 0) für Rot oder durch die Angabe der Grundfarbe in Englisch (z. black, yellow) Weight xlHairline; xlMedium; xlThick; xlThin
Auf eine Vorschlag bedanke ich mich im Voraus 05. 2008, 17:57 # 7 If <> "" Then Else neStyle = xlNone 05. 2008, 18:58 # 8 Vielen Dank, klappt wunderbar hat alles wunderbar geklappt habe die Strichstärke auf xlThin geändert. Vielen Dank, Samu
Worksheets("Sheet1")("A1:D4"). BorderAround _ ColorIndex:=3, Weight:=xlThick 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.
Tipp: Um Teile eines Rahmens hinzuzufügen oder zu entfernen, klicken Sie auf der Registerkarte Start unter Schriftart auf Rahmen, und klicken Sie dann auf Rahmenoptionen. Klicken Sie unter Rahmen auf die Rahmen, die Sie hinzufügen oder entfernen möchten. Klicken Sie auf der Registerkarte Start unter Schriftart auf Rahmen, und klicken Sie dann auf Kein Rahmen. Zeigen Sie auf der Registerkarte Start unter Format auf eine Formatvorlage, und klicken Sie dann auf. Klicken Sie auf Neue Zellenformatvorlage. Excel vba rahmenlinien setzen download. Klicken Sie auf der Registerkarte Rahmen unter Art auf die Linienart, die Sie anwenden möchten, und klicken Sie dann unter Rahmen auf die einzelnen Teile des Zellenrands, auf die die Linienart angewendet werden soll. Klicken Sie auf der Registerkarte Rahmen unter Farbe auf die Farbe, die Sie anwenden möchten, und klicken Sie dann unter Rahmen auf die einzelnen Teile des Zellenrands, auf die die Farbe angewendet werden soll. Tipp: Um die neue Zellenformatvorlage anzuwenden, markieren Sie die Zellen, die Sie ändern möchten, und klicken Sie dann auf der Registerkarte Start unter Format auf die Formatvorlage.
Gefragt 26, Feb 2015 in Tabellenkalkulation von Hallo, durch ein Makro werden neue Zeilen eingefügt und in SpalteC jeweils mit Inhalten versehen. Die Anzahl der neu eingefügen Zeilen ist dabei variabel. Ich möchte um den Gesamten Bereich, Spalte C, der neu eingefügten Zeilen automatisch einen Rahmen setzen lassen. Mein Gedanke war dabei den Bereich über die letzte Zeile zu ermitteln, leider ohne Erfolg. Hier mein Ansatz: lzeile = Sheets("Prämissen")(, 3)(xlUp) With Range("C6" & lzeile). Borders. Rahmenlinien - - - - - - - - - - - - - - - - Office-Loesung.de. LineStyle = xlContinuous = xlMedium. ColorIndex = xlAutomatic End With Beim Ausführen des Makros tut sich leider nichts. Kann mir jemand sagen, wo mein Fehler liegt? Vielen Dank im Voraus! Mfg peyd 13 Antworten Beantwortet rainberg Profi ( 14. 9k Punkte) mein Vorschlag Option Explicit Sub test() Dim lzeile As Long With Range("C6:C" & lzeile). LineStyle = xlContinuous End Sub Gruß Rainer nighty Experte ( 6. 4k Punkte) hi all ^^ "C6" & lzeile korrigiert "C" & lzeile angenommen die letzte zeiöe waee 77 dann ist dein rahmen bei zeile 677 die 6 ist daher ueberfluessig sollten 6 zeilen als Kopfzeilen dienen, waere zu der variablen lzeile + 6 zu addieren gruss nighty m-o ( 21.
DieBedienungsAnleitung bietet keinerlei Übersetzungsdienste an. Wenn Sie die Bedingungen akzeptieren, klicken Sie auf "Das Benutzerhandbuch herunterladen" am Ende dieses Vertrages, der Download von Handbuch KATHREIN UFS 702SI startet dann.
DieBedienungsAnleitung bietet keinerlei Übersetzungsdienste an. Wenn Sie die Bedingungen akzeptieren, klicken Sie auf "Das Benutzerhandbuch herunterladen" am Ende dieses Vertrages, der Download von Handbuch KATHREIN UFS 702 SI startet dann.
Wenn Sie den Timer direkt im Menü (manuell) programmieren, vergessen Sie nicht, auch die Stopp-Zeit und damit ein VPS-Erwartungsfenster einzugeben. 15 Minuten) dauert, dann wählen Sie für die Stopp-Zeit einen ausreichenden Abstand (z. Damit haben Sie die Sicherheit, dass bei einer vorangegangen, längeren ProgrammVerschiebung, das VPS-Erwartungsfenster nicht überschritten wird. Wenn Sie eine Zeile versehentlich gelöscht haben und die ursprüngliche Information wieder herstellen wollen, verlassen Sie das Timer-Menü, indem Sie zwei Mal die Taste drücken. Bitte beachten Sie, dass während einer TimerAufnahme keine Fernbedienungs-Befehle angenommen werden, damit nicht ungewollt OSD-Bild-Einblendungen aufgezeichnet werden. Als Hinweis, dass eine TimerAufnahme aktiv ist, wird auf der Programm-Anzeige am Gerät,, r E c" eingeblendet, wenn ein Befehl von der Fernbedienung empfangen wird. Kathrein 702 bedienungsanleitung e. Die Timer-Aufnahme kann vor= Stop-Taste abgebrochen zeitig nur durch die Taste werden. Das Gerät ist jetzt wieder normal bedienbar.