Autor Nachricht Muschelschubser Im Profil kannst Du frei den Rang ndern Verfasst am: 14. Mrz 2006, 19:03 Rufname: Hallo, ich habe einen Teil des Textes in zwei Spalten (keine Tabelle) formatiert. Wie kann ich jetzt um beide Spalten einen geschlossenen Rahmen legen, ohne dass ich auch zwischen den beiden Spalten zwei Rahmenlinien habe (Abschnitte)? Es ist die Word-Version XP. Gru Lisa Moderator; Word seit Word 5. 0 (fr DOS) Verfasst am: 14. Mrz 2006, 19:27 Rufname: Wohnort: Leipzig Hallo Muschelschubser, das geht ber Format - Rahmen und Schattierung - Register: Seitenrand. Wenn du dort Kontur whlst, wird ein Rahmen um die ganze Seite erstellt. _________________ Sei doch so nett und gib eine Rckmeldung, ob es klappt! Gru, Lisa Guter Rat ist teuer! Dicke / Stärke der Rahmenlinie einer Zelle in Excel 2016 individuell festlegen | ComputerBase Forum. Verfasst am: 14. Mrz 2006, 19:30 Rufname: Hallo Lisa, der Rahmen soll nicht die ganze Seite einrahmen, sondern nur den Teil des Textes, der in zwei Spalten formatiert ist. Verfasst am: 14. Mrz 2006, 19:36 Rufname: aha, das ist bisschen mehr Arbeit, ist so nicht vorgesehen.
Ich hoffe es kann mir jemand helfen diese Formatierung mittels VBA zu automatisieren. Vielen vielen Dank & ich wünsche einen schönen Abend. Lena Betrifft: AW: VBA Rahmenlinie einfügen von: Henner Geschrieben am: 12. 2017 22:45:34 Hallo Lena Das geht wie folgt. Für die letzte benutzte Spalte im benutzten Bereich musst Du eine Function einbauen, die letzte Zeile kannst Du einfach ermitteln. Fertige Datei siehe unten. In der Beispieldatei Makro "Linien" aufrufen. Function FindLetzte(mySH As Worksheet) As Range Dim LRow As Long, LCol As Long Dim A As Long With edRange On Error Resume Next LRow = ("*",, xlValues, xlWhole, xlByRows, xlPrevious, False, False) LRow = (LRow, ("*",, xlFormulas, xlWhole, xlByRows, xlPrevious). _ Row) If LRow = 0 Then LRow = 1 For A =. Columns(. Excel vba rahmenlinien setzen 2018. ) To. Columns(1) Step -1 LCol = lumns(A)("*",, xlValues, xlWhole, xlByRows, xlPrevious). _ Column LCol = (LCol, lumns(A)("*",, xlFormulas, xlWhole, _ xlByRows, xlPrevious)) If LCol > 1 Then: LCol = A: Exit For Next A If LCol = 0 Then LCol = 1 End With Set FindLetzte = (LRow, LCol) End Function Sub Linien() Dim intLRow As Integer Dim intLCol As Integer intLRow = (, 1)(xlUp) intLCol = FindLetzte(ActiveSheet) For t = intLRow To 2 Step -1 If (t, 1) <> "" Then (Cells(t, 1), Cells(t, intLCol) _).
Borders(xlEdgeTop). LineStyle = xlContinuous Next t End Sub Download: Funktioniert? Gruss Henner Betrifft: KORREKTUR: VBA Rahmenlinie einfügen Geschrieben am: 12. 2017 22:53:40 Kleine Korrektur: Dimensioniere LRow und LCol als Long - nicht Integer. Korrigierte Version der Datei: Dim lngLRow As Long Dim lngLCol As Long Betrifft: AW: KORREKTUR: VBA Rahmenlinie einfügen von: Lena List Geschrieben am: 13. Excel vba rahmenlinien setzen folder. 2017 18:37:55 Hallo Henner, Vielen vielen Dank funktioniert perfekt. Super. Danke für deine Hilfe. Lg & schönen Abend, Betrifft: Gerne, danke für die Rückmeldung. (owT) Geschrieben am: 13. 2017 19:55:02. von: Luschi Geschrieben am: 12. 2017 23:27:12 Hallo lena list, hier mal mein Versuch: Starte dazu das Makro 'MachMal'. Gruß von Luschi aus klein-Paris Excel-Beispiele zum Thema "VBA Rahmenlinie einfügen" Unterschiedliche Namen mit Rahmenlinien trennen Mit variablem oberer und unterer Rahmenlinie drucken Zeile einfügen und Formeln und Werte übernehmen Datum in Fußzeile einfügen Nach jedem 5.