Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
344to348
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
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Linie ziehen wenn...

Linie ziehen wenn...
01.12.2003 14:16:18
michael
HAllo,
wie kann der Range Befehl verändert werden(per macrorec aufgezeichnet), so dass eine obere Rahmenlinie von mehreren Zellen einer Zeile ausgeführt wird?

for i= 0 to 100
If IsNumeric(Wert(i)) Then
'Range("N11:Z11").Select 'wie wird dieser geändert?
'Range("Z11").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
next

Gruß
Michael

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

Betreff
Datum
Anwender
Anzeige
AW: Linie ziehen wenn...
01.12.2003 14:19:21
Galenzo
Hallo,
ist nur 'ne Frage der Syntax:



Private Sub LinieOben()
With Range("N11:Z11").Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub


Viel Erfolg!
Anzeige
Danke aber...
01.12.2003 14:29:50
michael
Range("N11:Z11") sollte "dynamisch sein". Geht:
Range("Ni:Zi"). (i als Zähler der die jeweilige Zeile anwählt?

Habe weiter oben mein Prob upgeloaded.

Viele Grüsse
Micha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige