Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mit VBA automatisch einen Rahmen setzen

Mit VBA automatisch einen Rahmen setzen
05.11.2004 13:59:57
Martin
Hallo zusammen,
wie kann ich per VBA einen Rahmen um bestimmte Zellen setzen. Und zwar nur um die Zellen in einer Mappe, in denen auch was drinsteht?
Danke
Martin

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

Betreff
Datum
Anwender
Anzeige
AW: Mit VBA automatisch einen Rahmen setzen
05.11.2004 14:02:41
Udo
Wie, um jede einzelne Zelle oder alle gemeinsam?
Udo
AW: Mit VBA automatisch einen Rahmen setzen
05.11.2004 14:06:17
Martin
Das sind immer Zahlenblöcke, also bspw. 10 Zeilen und 10 Spalten. Darum soll (wenn möglich) ein Gesamtrahmen gezogen und nur die vertikalen Linien gezogen werden. Wenn das nicht geht einfahc um jede Zelle, die nicht leer ist, einen Komplettrahmen.
Danke
Martin
AW: Mit VBA automatisch einen Rahmen setzen
05.11.2004 14:09:11
Udo
Hab mich da übernommen, kein Plan, wie das automatisch gehen sollte.
Udo
AW: Mit VBA automatisch einen Rahmen setzen
05.11.2004 14:46:51
Dieter Maj
Hallo Martin
um jede Zelle, die nicht leer ist einen Zellrahmen setzen:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i
If Target.Count <> 1 Then Exit Sub
If Target <> "" Then
For i = 1 To 4
With Target.Borders(i)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
Next
Else
For i = 1 To 4
Target.Borders(i).LineStyle = xlNone
Next
End If
End Sub

Gruß Dieter
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige