Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makierung (Range)

Makierung (Range)
28.07.2004 13:18:15
Martin
Hallo Leute!
Ich habe diesen Code mir gebastelt um zur letzten benutzten Zelle zu gelangen.
Range("a16").Select
Selection.End(xlDown).Activate
ActiveCell(Row + 1).Select
Jetzt möchte ich das von der letzten Zeile aus bis nach oben zu e18 der Bereich makiert wird. Damit ich diesen bereich mit einem Rahmen makieren kann.
Für andere Lösungen bin ich offen!
Vielen Dank!
Mfg
Martin S.

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

Betreff
Datum
Anwender
Anzeige
AW: Makierung (Range)
Nike
Hi,
nicht schoen, aber selten ;-)

Sub Macro1()
lngZeil = Range("a16").End(xlDown).Row + 1
With Range(Cells(lngZeil, 1), Cells(18, 5))
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub

Bye
Nike
Anzeige
AW: Makierung (Range)
28.07.2004 13:53:21
Martin
Besten Dank!
MFG
Martin S.
mit BorderAround
GerhardW
Hi Nike,
es gibt noch eine knappere Lösung, habe ich heute erst gefunden:
With Range(...)
.Borders.LineStyle = xlNone
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin, ColorIndex:=xlAutomatic
End With
Grüße Gerhard
AW: das hat was ;-)
Nike
Hi,
danke fuer den Tip, is doch ein bischen knapper ;-)
Bye
Nike

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige