Wenn im Bereich A7:NG100 die Zelle nicht leer ist, dann umrahmen. Habe es schon zum Teil mit dem Makrorecorder versucht. Allerdings läuft das Makro so endlos... Vielen Dank! Gruß
Thomas
Mein Versuch...
Sub Umrahmen()
Dim Zelle As Range
For Each Zelle In Sheets("Anwesenheit")("A7:NG100")
If <> "" Then 'ist nicht leer
rders(xlDiagonalDown). LineStyle = xlNone
rders(xlDiagonalUp). LineStyle = xlNone
With rders(xlEdgeLeft). LineStyle = xlContinuous. ColorIndex = 0. VBA-Forum - Das Forum zu Microsoft VBA. TintAndShade = 0
= xlThin
End With
With rders(xlEdgeTop). TintAndShade = 0
With rders(xlEdgeBottom). TintAndShade = 0
With rders(xlEdgeRight). TintAndShade = 0
With rders(xlInsideVertical). TintAndShade = 0
With rders(xlInsideHorizontal). TintAndShade = 0
End If
Next
End Sub
Betrifft: AW: VBA Rahmen setzen
von: Bastian
Geschrieben am: 11. 2013 10:12:35
Hallo Thomas,
den zu Bereich, den die Schleife abklappert, kann man mit specialCells weiter einschränken. Das sollte dann deutlich schneller gehen:
Versuch mal, die Schleife so zu formulieren:
Option Explicit
Sub Rahmen()
Dim Bereich As Range
Set Bereich = Range("A7:NG100")
For Each Zelle In Union(Bereich.
- Excel vba rahmenlinien setzen 2020
- Excel vba rahmenlinien setzen download
- Excel vba rahmenlinien setzen mac
Excel Vba Rahmenlinien Setzen 2020
Weight
XlBorderWeight
Die Rahmenstärke. ColorIndex
XlColorIndex
Die Rahmenfarbe als Farbindex in der aktuellen Farbpalette oder als XlColorIndex -Konstante. Color
Die Rahmenfarbe als RGB-Wert (Rot, Grün, Blau). ThemeColor
Die Designfarbe als Index im aktuellen Farbdesign oder als XlThemeColor-Wert. Excel vba rahmenlinien setzen download. Rückgabewert
Hinweise
Nur eins der folgenden Argumente muss angegeben werden: ColorIndex, Color, or ThemeColor. Sie können entweder LineStyle oder Weight angeben, aber nicht beide. Wenn Sie keines der Argumente angeben, verwendet Microsoft Excel die Standardlinienart und -stärke. Diese Methode zieht eine Kontur um den gesamten Bereich, ohne ihn auszufüllen. Um die Rahmen aller Zellen festzulegen, müssen Sie die Eigenschaften Color, LineStyle und Weight für die Borders -Auflistung festlegen. Um den Rahmen zu löschen, legen Sie die LineStyle -Eigenschaft für alle Zellen im Bereich auf xlLineStyleNone fest. Beispiel
In diesem Beispiel wird dem Bereich A1:D4 in Sheet1 ein breiter roter Rahmen hinzugefügt.
Excel Vba Rahmenlinien Setzen Download
5
Viele Grüße Peter
Das Forum lebt auch von den Rückmeldungen. Geschrieben am: 01. 2005 07:14:20
Einwandfrei! Ich danke Dir. Excel-Beispiele zum Thema "Rahmen per VBA setzen"
Unterschiedliche Namen mit Rahmenlinien trennen
Mit variablem oberer und unterer Rahmenlinie drucken
Anzahl der Monatstage gem. Zeitrahmen suchen
Farbpalette auf Graustufen setzen
Menüs zurücksetzen
Einige Zeilen in einer sequentiellen Datei ersetzen
Alle nichtnumerischen Werte auf Null setzen
AutoFilter über mehrere Arbeitsblätter setzen
Bedingte Übergabe des Focus und Setzen der Schreibmarke im Dialog
Vor eine Aufzählung Punkte setzen
Bis zur 12. Zeile Cursor nach unten, dann nächste Spalte ansetzen
Focus nach Klick auf einen Frame nicht dorthin setzen
Alle #DIV/0! Excel vba rahmenlinien setzen 2020. -Fehlerwerte in Tabelle durch 0 ersetzen
Zellkontextmenü durch Jahreskalender ersetzen
Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen
Suchen in 2.
Excel Vba Rahmenlinien Setzen Mac
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. 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. Rahmen setzen in VBA - - - - - - - - - - - - Office-Loesung.de. 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.
3k Punkte)
Hallo peyd,
mit
Range("C6" & lzeile)
definierst du keinen Bereich, um den ein Rahmen gezogen werden könnte! Wenn, dann z. B. so:
With Sheets("Prämissen")("C6:C" & lzeile). Borders
oder
With Sheets("Prämissen")(Cells(6, 3), Cells(lzeile, 3)). Borders
M. O.
Hallo Peyd,
versuch es mal so:
With Range("C6:C" & lzeile)
neStyle = xlContinuous. = xlMedium
lorIndex = xlAutomatic. Borders(xlInsideHorizontal). LineStyle = xlNone
peydd
Hallo nochmal,
Bräuchte noch ein kleines extra. Ich möchte die Spalte C nach dem Begriff "Montage" durchsuchen lassen und wenn der Begriff gefunden wird, soll diese Zelle mit einem Rahmen versehen werden. Excel vba rahmenlinien setzen mac. Vielen Dank im voraus! Hallo peydd,
noch 'ne Altenative
Sub rahmen()
Dim rngC As Range
For Each rngC In Range("C1:C100") 'anpassen
If = "Montage" Then
neStyle = xlContinuous
End If
Next
Rainer