Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellenrahmen mit VBA

Forumthread: Zellenrahmen mit VBA

Zellenrahmen mit VBA
20.05.2003 14:22:28
Anton
Hallo,
wie macht man Zellenrahmen über VBA?
Ich möchte über VBA z.B. die Zelle A1 nur rechts mit einem
Strich versehen und diesen auch noch blau färben.
Kann mir jemand weiter helfen?

Vielen Dank im voraus.
Gruß
Anton

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Zellenrahmen mit VBA
20.05.2003 14:28:10
Volker Croll

Hallo Anton,

am einfachsten Du startest Deinen Makrorecorder und versiehst A1 rechts mit einer blauen Linie.

Dann hast Du als Ansatz diesen Vorgang als Makro aufgezeichnet.

Gruss Volker

Re: Zellenrahmen mit VBA
20.05.2003 14:33:05
Dominik

Sub Rahmen()

Range("A1").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
End Sub

MfG
Dominik

Anzeige
;

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
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
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

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