Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
872to876
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle Ränder innerh. Bereich weg, neue festlegen

Alle Ränder innerh. Bereich weg, neue festlegen
01.06.2007 13:23:00
Peter
Guten Tag
Ich möchte in einem benannten Bereich ("Daten1") alle Ränder entfernen und dann auf allen Zeilen, die in Spalte Y den Buchstaben "S" haben, von Spalte A bis H einen einfachen, dünnen Strich unten wieder setzen.
Fragen:
Wie entferne ich in einem bestimmten Bereich alle Ränder?
Was muss anstelle With Selection.Borders stehen, dass ich von Spalte A bis H den gewünschten Strich unten erhalte?
Danke, Peter

Sub Unterstreichen()
Dim y As Long
Application.ScreenUpdating = False
For y = Range("Y65536").End(xlUp).Row To 1 Step -1
If Cells(y, 25).Value = "S" Then With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next i
Application.ScreenUpdating = True
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Ränder innerh. Bereich weg, neue festlegen
01.06.2007 13:47:00
Rudi
Hallo,

Sub Unterstreichen()
Dim y As Long
Application.ScreenUpdating = False
Range("Daten1").Borders.LineStyle = xlNone
For y = Range("Y65536").End(xlUp).Row To 1 Step -1
If UCase(Cells(y, 25).Value) = "S" Then
With Range(Cells(y, 1), Cells(y, 8)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next y
Application.ScreenUpdating = True
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Alle Ränder innerh. Bereich weg, neue festlegen
01.06.2007 14:01:05
Peter
Hallo Rudi
Perfekt, vielen Dank!
Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige