Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle 4 Rahmenlienien in einen Code unterbringen

alle 4 Rahmenlienien in einen Code unterbringen
Karsten
Hallo
ich habe einen Code versucht anzupassen, aber so geht es nicht.
Kann mir jemand helfen alle 4 Borders unterzukriegen? Es geht nur immer mit einem (bei mir).
Danke für Eure Hilfe.
Gruß
Karsten
With Selection.Borders(xlEdgeTop) And Selection.Borders(xlEdgeBottom) And Selection.Borders(xlEdgeRight) And Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
iColor = .Colorindex
.Colorindex = 4
.Weight = xlThick
Application.Wait Now + TimeSerial(0, 0, 1)
.Colorindex = iColor
End With

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: alle 4 Rahmenlienien in einen Code unterbringen
06.10.2010 10:22:24
Luschi
Hallo Karsten,
wenn ich meinen Makrorecorder anschmeiße, dann sieht der Code so aus: 

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 26
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 26
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 26
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 26
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Gruß von Luschi
aus klein-Paris
Anzeige
AW: alle 4 Rahmenlienien in einen Code unterbringen
06.10.2010 10:37:41
Karsten
Hallo Luschi,
ach, hatte ich ja auch so gemacht und wieder alles auseinanderklamüsert.
Ok, oben with und unten end with. Es läuft.
Gruß
Karsten
AW: alle 4 Rahmenlienien in einen Code unterbringen
06.10.2010 10:45:28
Rudi
Hallo,
Selection.BorderAround xlContinuous, xlThick, 4
Gruß
Rudi
AW: alle 4 Rahmenlienien in einen Code unterbringen
06.10.2010 12:04:29
Karsten
Hallo Rudi,
danke, meine Variante war doch nichts.
Gruß
Karsten

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige