Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Rahmen setzen

Forumthread: VBA Rahmen setzen

VBA Rahmen setzen
11.10.2013 09:55:56
Thomas
Hallo zusammen,
ich brächte einen VBA-Code der folgendes auslöst.
Wenn im Bereich A7:NG100 die Zelle nicht leer ist, dann umrahmen.
Habe es schon zum Teil mit dem Makrorecorder versucht. Allerdings läuft das Makro so endlos...
Vielen Dank!
Gruß
Thomas
Mein Versuch... 
Sub Umrahmen()
Dim Zelle As Range
For Each Zelle In Sheets("Anwesenheit").Range("A7:NG100").Cells
If Zelle.Value  "" Then 'ist nicht leer
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End If
Next
End Sub

Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Rahmen setzen
11.10.2013 10:12:35
Bastian
Hallo Thomas,
den zu Bereich, den die Schleife abklappert, kann man mit specialCells weiter einschränken.
Das sollte dann deutlich schneller gehen:
Versuch mal, die Schleife so zu formulieren:
Option Explicit
Sub Rahmen()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("A7:NG100")
For Each Zelle In Union(Bereich.SpecialCells(xlCellTypeFormulas), _
Bereich.SpecialCells(xlCellTypeConstants))

Gruß, Bastian

Anzeige
AW: VBA Rahmen setzen
11.10.2013 10:22:06
Thomas
Hallo Basti,
ich habe den Code geändert.
Bekomme allerdings in der Zeile:
For Each Zelle In Union(Bereich.SpecialCells(xlCellTypeFormulas), _
Bereich.SpecialCells(xlCellTypeConstants))
Einen Laufzeitfehler (1024)
Gruß
Thomas
Sub Rahmen()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("A7:NG100")
For Each Zelle In Union(Bereich.SpecialCells(xlCellTypeFormulas), _
Bereich.SpecialCells(xlCellTypeConstants))
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Next
End Sub

Anzeige
AW: VBA Rahmen setzen
11.10.2013 10:36:22
Bastian
Hallo Thomas,
dann hast Du in dem Bereich keine Werte (alle Zellen leer?)
Der Code erkennt Zahlen, Text und Formeln in den Zellen. Nur diese Zellen werden von der Schleife abgearbeitet. Alle leeren Zellen werden ignoriert. Der Laufzeitfehler kommt, wenn alle Zellen leer sind.
Vielleicht ist der Bereich auch nicht richtig definiert.
Ich hatte das Tabellenblatt vergessen:
Set rngBereich = Sheets("Anwesenheit").Range("A7:NG100")
Gruß, Bastian

Anzeige
AW: VBA Rahmen setzen
11.10.2013 10:36:41
UweD
Hallo
geht auch ohne Schleife...
Sub Rahmen()
On Error GoTo Fehler
With Cells ' reset
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
End With
With Union(Range("A1:NG100").SpecialCells(xlCellTypeConstants, 23), _
Range("A1:NG100").SpecialCells(xlCellTypeFormulas, 23))
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Gruß UweD

Anzeige
AW: VBA Rahmen setzen
11.10.2013 10:44:28
hary
Moin Uwe
Reicht doch auch!?
.Borders.LineStyle = xlNone 'Rahmen entfernen

 .BorderAround Weight:=xlThin 'Rahmen setzen

gruss hary

AW: VBA Rahmen setzen
11.10.2013 10:47:59
Thomas
Danke erstmal,
aber die Lösung von Uwe beachtet nicht ob die Zelle leer ist oder nicht.
Gruß
Thomas

Anzeige
AW: VBA Rahmen setzen
11.10.2013 10:51:14
Bastian
Hallo Thomas,
doch, der Code von Uwe funktioniert.
Es werden ja die gleichen "SpecialCells" Kriterien verwendet.
Nur halt ohne Schleife, was noch schneller sein dürfte.
Gruß, Bastian

AW: VBA Rahmen setzen
11.10.2013 10:56:06
Thomas
Ich habe den Code von Uwe in einem neuen Arbeitsblatt getestet.
Bei mir meldet sich die MSGbox obwohl Zellen in dem Bereich gefüllt sind.
Gruß
Thomas

Anzeige
AW: VBA Rahmen setzen
11.10.2013 10:59:09
UweD
hallo
lad doch mal eine Musterdatei hoch
Gruß UweD

AW: VBA Rahmen setzen
11.10.2013 11:20:58
UweD
Hallo
Hier mal eine funktionierende Möglichkeit.
https://www.herber.de/bbs/user/87616.xlsm 
Sub Rahmen()
On Error GoTo Fehler
'reset
With ActiveSheet
.Cells.Borders.LineStyle = xlNone
MsgBox "alle Rahmen weg"
With Union(.Range("A1:NG100").SpecialCells(xlCellTypeConstants, 23), _
.Range("A1:NG100").SpecialCells(xlCellTypeFormulas, 23))
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With
End With
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Gruß UweD

Anzeige
AW: VBA Rahmen setzen
11.10.2013 11:00:30
UweD
Hallo hary
... .Cells.Borders.LineStyle = xlNone das klappt
... .BorderAround Weight:=xlThin dann wird bei einem Zellbereich nur außenherum gerahmt und innen nicht

@Uwe Danke gruss owT
11.10.2013 11:54:05
hary
.

AW: @Uwe Danke gruss owT
11.10.2013 15:02:49
UweD
Hallo
weiss nicht, woran es liegt.
Ändere ich irgendeine Zelle, dann geht es
:-(

AW: @Uwe Danke gruss owT
11.10.2013 15:29:44
Thomas
Hallo Uwe,
ich habe es jetzt mit Bedingter Formatierung gelöst.
Danke für deine Mühe.
Schöne Grüße & ein schönes Wochenende.
Thomas
;

Forumthreads zu verwandten Themen

Autofilter via VBA wieder auf "ALLE" setzen
Patrick

Hallo Excel-VBA-Gemeinde,
ich habe ein kleines Problem mit Filtern.
Kann man den Filter wieder auf "Alle" setzen via VBA
Ich habe eine ComboBox (Alle, A, B) mit der ich filter
If .ComboBox1.Text = "A" Then
Selection.AutoFilter Field:=1, Criteria1:="A", Operator:=xlAnd
En...
24.10.2008 13:05:00
Thread-ID: 1018976
3 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Zellen umrahmen
Franz

Hallo zusammen,
ich möchte per Makro alle Zellen im Bereich A1:Z1000 umrahmen, in denen etwas steht (Formeln alleine wären kein Inhalt).
Ich weiß, dass geht über bedingte Formatierung, aber ich stehe mit dieser Formatierung auf Kriegsfuss, daher möchte ich darauf gerne verzichten.
K...
15.02.2009 14:49:00
Thread-ID: 1050880
4 Beiträge
Anzeige
VBA-Sverweis + Datum, mehr als 1 Zelle
Alex

Hallo Leute,
mit diesem Code führe ich für eine Datei einen Bearbeiternachweis.
Das läuft so, wenn jemand auf dem 1. Tabellenblatt eine Eintragung macht, wird dies auf dem 2. Tabellenblatt mit Name und Datum protokolliert.
Das geht, wenn man nur 1 Zelle beschreibt oder die Eintragun...
02.05.2009 16:43:02
Thread-ID: 1072438
11 Beiträge
Anzeige
VBA: Tagesdatum auf 3 Zellen aufteilen
KlausF

Hallo Forum,
ich stehe gerade vor folgendem Problem:
Ich habe einen Button, der zellfüllend in einer beliebigen Zelle steht, z.B. in A2
Ich möchte jetzt auf Klick immer das heutige Tagesdatum wie folgt aufteilen:
die darüber liegende Zelle (hier A1) bekommt den Tag von Heute() i...
15.10.2010 15:37:47
Thread-ID: 1182643
4 Beiträge
VBA Zeilenumbrüch in Zelle auslesen
Georg

Liebe Excellenzen,
ich habe eine aus drei Spalten verbundene Zelle die eine feste Größe hat (Breite und Höhe). In diese Zelle schreibe ich via VBA unterschiedliche Texte. Normalerweise hat die Zelle eine Formatierung von Arial 24. Dann sind 2 Zeilen lesbar bei meiner Zeilenhöhe von 62.
...
17.09.2011 12:03:41
Thread-ID: 1230297
3 Beiträge
VBA: Datum verschieben und in Zelle hinzufügen
Boris

Hallo Forum,
ich habe ein kleines Problem mit einem VBA code und hoffe hier kann mir jemand helfen.
Situation ist folgende:
a) ich habe eine Excel Tabelle mit Aufgaben; das Zieldatum steht in Spalte G.
b) Bei einer Verzögerung soll das Datum in G nach H verschoben werden (um ei...
06.09.2012 12:34:04
Thread-ID: 1277594
6 Beiträge
Probleme beim Setzen von Rahmen Eigensch. in VBA
Rahmen

Hallo Forum,
habe nach einem Umstieg von EXCEL 2003 auf EXCEL 2007 folgendes Problem.
Mehrere Dateien werden hintereinander durchlaufen (durch VBA geöffnet, bearbeitet, formatiert, geschlossen) und in jeder werden unter anderem folgende Befehle ausgeführt (n = Name eines Worksheets im...
14.01.2013 17:52:16
Thread-ID: 1294238
2 Beiträge
zellenumbruch vba
Spenski

hallo
habe 3 textboxen und füge die inhalte via & in eine zelle ein
gibt es die möglichkeit die 3 inhalte untereinander in einer zelle darzustellen?
gruss
13.05.2014 23:09:52
Thread-ID: 1361408
3 Beiträge
Anzeige
VBA Autofilter nach datum in zelle filtern
Spenski

hallo habe folgenden code mit dem recorder aufgenommen Sub Makro10() ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria2:=Array(2, "6/18/2014") End Sub damit filter ich in einer tabelle das datum . in dem beispiel den 18.06.2014.
statt der...
10.06.2014 02:48:59
Thread-ID: 1365201
2 Beiträge
VBA Wenn Datum in Zelle, dann summieren...
Susanne

Hallo,
in Spalte A habe ich Rohdaten mit Datum (ein Datum kommt immer mehrmals vor). In einem zweiten Tabellenblatt habe ich das Datum für jeweils einen Tag in einer Spalte aufgelistet.
Nun möchte ich, dass wenn z.B. der 20.10.2014 mehrmals im ersten Tabellenblatt ist, diese Zeilen gezä...
18.12.2014 10:36:32
Thread-ID: 1398826
6 Beiträge
VBA - Summe nur von sichtbaren Zellen
sichtbaren

Hallo Forum,
mit folgendem Code errechne ich mir die Summe einer bestimmten Spalte von Werten größer 0:
Range("E1").Value = WorksheetFunction.SumIf(Range(Cells(3, 19), Cells(3, 19).End(xlDown)), ">0")
With Range("E1")
.WrapText = False
.Font.Bold = True
End With
R...
29.05.2015 11:45:22
Thread-ID: 1428320
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA Rahmen setzen in Excel

Schritt-für-Schritt-Anleitung

Um in Excel mit VBA Rahmen um Zellen zu setzen, kannst du den folgenden Code verwenden. Dieser Code überprüft, ob die Zellen im Bereich A7:NG100 nicht leer sind, und setzt dann die Rahmenlinien:

Sub Umrahmen()
    Dim Zelle As Range
    For Each Zelle In Sheets("Anwesenheit").Range("A7:NG100").Cells
        If Zelle.Value <> "" Then ' ist nicht leer
            With Zelle.Borders
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .Weight = xlThin
            End With
        End If
    Next Zelle
End Sub

Dieser VBA-Code führt die Funktion vba rahmen um zelle aus und setzt die vba rahmenlinien um alle nicht leeren Zellen.

Häufige Fehler und Lösungen

  1. Laufzeitfehler 1024: Dieser Fehler tritt auf, wenn der angegebene Bereich keine nicht leeren Zellen enthält. Stelle sicher, dass der Bereich korrekt definiert ist und mindestens eine Zelle nicht leer ist.

  2. Rahmen werden nicht gesetzt: Überprüfe, ob die Zellen tatsächlich Werte enthalten. Verwende den Code mit SpecialCells, um nur Zellen mit Werten zu berücksichtigen.

Set Bereich = Range("A7:NG100")
For Each Zelle In Union(Bereich.SpecialCells(xlCellTypeFormulas), Bereich.SpecialCells(xlCellTypeConstants))

Alternative Methoden

Eine schnellere Methode, um Rahmen um mehrere Zellen zu setzen, ist die Verwendung von Union und SpecialCells. Hier ist ein Beispiel:

Sub Rahmen()
    On Error Resume Next
    With Union(Sheets("Anwesenheit").Range("A7:NG100").SpecialCells(xlCellTypeConstants), _
               Sheets("Anwesenheit").Range("A7:NG100").SpecialCells(xlCellTypeFormulas))
        .Borders.LineStyle = xlContinuous
    End With
    On Error GoTo 0
End Sub

Diese Methode ist effizienter, da sie die Schleife vermeidet und direkt alle relevanten Zellen anspricht.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du vba excel rahmen setzen kannst:

  1. Rahmen um alle Zellen setzen:

    Sub AlleRahmen()
   With Sheets("Anwesenheit").Cells.Borders
       .LineStyle = xlContinuous
       .Weight = xlThin
   End With
End Sub

  2. Rahmen entfernen:

    Sub RahmenEntfernen()
   With Sheets("Anwesenheit").Cells.Borders
       .LineStyle = xlNone
   End With
End Sub

  3. Dünne Rahmenlinien setzen:

    Sub DünneRahmen()
   With Sheets("Anwesenheit").Range("A7:NG100").Borders
       .LineStyle = xlContinuous
       .Weight = xlThin
   End With
End Sub

Tipps für Profis

  • Verwende On Error Resume Next, um Laufzeitfehler in deinem Code zu vermeiden, besonders wenn du mit SpecialCells arbeitest.
  • Experimentiere mit den verschiedenen LineStyle und Weight-Eigenschaften, um die gewünschten visuellen Effekte zu erzielen.
  • Wenn du den Rahmen um mehrere Zellen setzen möchtest, kannst du Union verwenden, um die Leistung zu optimieren.

FAQ: Häufige Fragen

1. Wie entferne ich alle Rahmenlinien in einem Bereich?
Verwende den folgenden Code:

Sub AlleRahmenEntfernen()
    With Sheets("Anwesenheit").Cells.Borders
        .LineStyle = xlNone
    End With
End Sub

2. Kann ich die Rahmenlinien in unterschiedlichen Stilen setzen?
Ja, du kannst verschiedene LineStyle wie xlDash, xlDot usw. verwenden, um verschiedene Stile für die vba rahmenlinien zu setzen.

3. Wie kann ich Rahmen um mehrere nicht zusammenhängende Zellen setzen?
Du kannst Union verwenden, um mehrere Zellbereiche zusammenzufassen und dann die Rahmen zu setzen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige