Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
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
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatieren von Zellen per VBA

Formatieren von Zellen per VBA
Zellen
Guten Tag
habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde....
und zwar:
mittels folgendem Code schreibe ich in eine Spalte ein Datum:
Cells(j, 10).Value = CDate(MyDatStrg)
Wie müsste ich diese Zeile erweitern, damit die entsprechende Zelle gleich auch noch hellblau eingefärbt wird ?
BESTEN DANK für die Hilfe !
AW: Formatieren von Zellen per VBA
07.12.2010 10:53:17
Zellen
Hi,
Cells(j, 10).Value = CDate(MyDatStrg)
Cells(j, 10).Interior.ColorIndex = 34
Grüße Boris
AW: Formatieren von Zellen per VBA
07.12.2010 10:54:30
Zellen
Hi Pascal,
Die Frage ist, was ist "hellblau" ? 
Cells(j, 10).Interior.Colorindex = 20

GreetZ Renée
AW: Formatieren von Zellen per VBA
07.12.2010 11:02:04
Zellen
Danke herzlich allen für die grossartige Hilfe doch ....
Wenn die Zelle bereits schon eine Farbe hatte (vor dem Einfügen) dann wird diese nicht neu formatiert.
Dh. die Zelle behält ihre urpsprungs-Farbe obwohl
Cells(j, 10).Interior.Colorindex = 20
Warum das ?
Das wäre nur dann der Fall, wenn
07.12.2010 11:08:19
Renee
für diese Zelle eine bedingte Formatierung aktiv ist, Pascal.
D.h. Diese Farbe kannst du dann nicht übersteuern, es sei denn du löscht die bedingte Formatierung!
GreetZ Renée
Anzeige
hast Du Blattschutz auch deaktiviert ? oT
07.12.2010 11:09:32
Matthias
AW: hast Du Blattschutz auch deaktiviert ? oT
07.12.2010 11:18:47
Pascal
Hier mal den Code den ich bisher habe. Ich glaube das Problem liegt darin, dass das Autofill hier wieder alles überschreibt ?
Private Sub CommandButton1_Click() 'Formeln runterkopieren
On Error Resume Next
ActiveSheet.Unprotect "0000"
Dim x As Long, y As Long, j As Long
Dim MyDatStrg As String
MyDatStrg = InputBox("Bitte Datum angeben", "Datum", Date)
If StrPtr(MyDatStrg) = 0 Then Exit Sub 'Abbrechen gedrückt
If Not IsDate(MyDatStrg) Then Exit Sub 'Kein Datum
x = Cells(Rows.Count, 10).End(xlUp).Row
y = Cells(Rows.Count, 1).End(xlUp).Row
For j = x + 1 To y
Cells(j, 10).Value = CDate(MyDatStrg)
Cells(j, 10).Interior.ColorIndex = 34
Cells(j, 11).Interior.ColorIndex = 6
Cells(j, 12).Interior.ColorIndex = 6
Cells(j, 13).Interior.ColorIndex = 6
Next
If x  y Then Range(Cells(x, 11), Cells(x, 13)).AutoFill Destination:=Range(Cells(y, 11),  _
Cells(x, 13))
ActiveSheet.Protect "0000"
End Sub

Anzeige
hier nochmal mal konkret ...
07.12.2010 11:23:30
Matthias
Hallo Pascal
Du hättest besser zum entsprechenden Beitrag verlinken sollen, bzw. gleich in diesem Beitrag weiterschreiben sollen.
https://www.herber.de/forum/messages/1190213.html
Somit werden Zusammenhänge besser sichtbar und Andere können sich da besser reindenken
Private Sub CommandButton1_Click()
Dim x As Long, y As Long, j As Long
Dim MyDatStrg As String
MyDatStrg = InputBox("Bitte Datum angeben", "Datum", Date)
If StrPtr(MyDatStrg) = 0 Then Exit Sub 'Abbrechen gedrückt
If Not IsDate(MyDatStrg) Then Exit Sub 'Kein Datum
ActiveSheet.Unprotect
x = Cells(Rows.Count, 10).End(xlUp).Row
y = Cells(Rows.Count, 1).End(xlUp).Row
For j = x + 1 To y
          With Cells(j, 10)
.Value = CDate(MyDatStrg)
.Interior.ColorIndex = 20
End With
Next
If x  y Then Range(Cells(x, 11), Cells(x, 13)).AutoFill Destination:=Range(Cells(y, 11),  _
Cells(x, 13))
ActiveSheet.Protect
End Sub
und das funktioniert auch:
https://www.herber.de/bbs/user/72627.xls
Gruß Matthias
Anzeige
AW: hier nochmal mal konkret ...
07.12.2010 11:31:37
Pascal
Ups ja stimmt ! hätte ich wirklich tun sollen, die Frage auf den alten Thread zu verlinken.
SORRY für meine Unachtsamkeit !!!!!
werde den neuen Code gleich mal testen
AW: Formatieren von Zellen per VBA
07.12.2010 11:30:33
Zellen
Hallo Pascal,
wenn ich z.B. A1 ohne Farbe lasse und A2 von Hand Grün mache und dann dieses VBA-Schnipsel laufen lasse funktioniert es einwandfrei:
Sub farbtest()
Range("A1:A2").Interior.ColorIndex = 20
End Sub
A1 und A2 werden hellblau eingefärbt, daher meine Vermutung: Ist für die Zielzelle bereits eine bedingte Formatierung eingestellt? Oder ist die Zelle Teil eines als Tabelle formatierten Zellbereichs?
Beide Sachen "überschreiben" jede Farbänderung.
Gruß
Timo
Anzeige
AW: Formatieren von Zellen per VBA
07.12.2010 11:36:29
Zellen
Also .. ich habe den Code von Matthias mal mit dem Debugger durchlaufen.
Alles wird sauber eingefärbt.
doch dann kommt man zur Zeile :
If x y Then Range(Cells(x, 11), Cells(x, 13)).AutoFill Destination:=Range(Cells(y, 11), _
Cells(x, 13))
und schon werden die vorher gelb eingefärbten Zellen wieder mit Weiss überschrieben
AW: Formatieren von Zellen per VBA
07.12.2010 12:55:43
Zellen
Hi Pascal,
Verlagere die .Autofill Zeile doch mal vordie For-Schleife!
GreetZ Renée
AW: Formatieren von Zellen per VBA
07.12.2010 13:49:25
Zellen
DANKE !!!!
(dass ich nicht selber draufgekommen bin :-(
Es klappt nun wunderbar ! :-)
Nun .... brauch ich noch die letzte Hilfe für mein Projekt.
Und zwar ....
Ab der Datenbank in welche ich hier ständig reingeschrieben habe und nun dank Euch einige Zellen farbig formatiere, erstelle ich auf einem anderen Tabellenblatt total
drei Pivot-Tables.
Der Quellbereich dieser drei Pivots bezieht sich immer auf die Anzahl Datensätze auf dem Tabellenblatt "Datenbank"
Wie könnte ich nun also per Knopfdruck für jede auf dem Tabellenblatt "Analyse" vorhandene Pivottable den Quellbereich jeweils um die total Anzahl Datensätze erweitern ?
Danke herzlich für Eure Tips !
Anzeige
Benutze das Tabellen-Feature von
07.12.2010 15:09:28
Renee
Excel 2007, Pascal
Menü - Einfügen - Tabelle
...dann kannst du den Pivotbereich auf diese Namen (Formeln - Namensmanager) beziehen.
GreetZ Renée
AW: Benutze das Tabellen-Feature von
07.12.2010 15:20:35
Pascal
? wie meinst Du das genau ?
also ... ich habe Office 2010
Wenn ich aufs Menü Einfügen gehe, so hab ich da PivotTable und Tabelle
... wie weiter ?
Bereich Markieren - Tabelle ! (owT)
07.12.2010 15:44:12
Renee

AW: Bereich Markieren - Tabelle ! (owT)
08.12.2010 14:17:24
Pascal
wie ich es auch immer anstelle ... ich schaffe es nicht :-(
oder .... weiss nicht genau was ich tun muss ....
D.h. auf dem Tabellenblatt "Analyse" hab ich ja schon lange drei Pivot-Tabellen.
diese basieren wie gesagt auf die Datensätze im Tabellenblatt "Datenbank"
Muss ich nun diese drei Pivot-Tabellen löschen und neuerstellen ?
oder kann ich die Pivot-Tabellen anpassen (diese entstanden noch, bevor ich mittels Makro Datensätze in die Datenbank schrieb)
Danke herzlich für die Hilfe !
Anzeige
Excel-Tabelle in einem Arbeitsblatt
09.12.2010 10:30:04
Renee
Die interne XL-Hilfe zu bemühen, hilft auch bei Excel gut manchmal, Pascal
F1 und im Suchbegriff Tabelle eingeben, dann Erstellen oder Löschen einer Excel-Tabelle in einem Arbeitsblatt
Versuche in einer neuen, leeren Arbeitsmappe nachzuvollziehen. Erstelle eine Pivot aufgrund der "Tabelle", füge neue Zeilen (Tab auf der letzten Zelle rechts unten) in die Tabelle, aktualisiere deine Pivottabelle (Rechtsklick - Aktualisieren).
Leider werden im Deutschen die Begriffe Tabelle und Tabelle/Datentabelle (engl. Table) vermischt. Das Englische ist hier spezifischer Arbeitsblatt=WorkSheet und Tabelle=Table.
GreetZ Renée
Anzeige

316 Forumthreads zu ähnlichen Themen

Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Anzeige
trotz INDIREKT verknüpfte zellen farbig markieren
merlin

Hallo,
gibt es eine Möglichkeit trotz der Verwendung von INDIREKT die verknüpften Zellen markieren zu lassen?
https://www.herber.de/bbs/user/60118.xls
Viele Grüße, vielen Dank.
09.03.2009 11:14:37
Thread-ID: 1058088
3 Beiträge
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
Anzeige
VBA Text suchen > Zeile durch Zelle markieren
Steffen

Hi Zusammen,
ich habe ein Tabellenblatt in dem in den Spalten A bis X jede einzelne Zelle nach einem bestimmten Begriff
durchsucht werden soll. Wenn der Begriff (Text) in einer Zeile vorhanden ist soll in Spalte Y in der entsprechenden Zeile ein "x" gesetzt werden.
Soweit bin ich...
24.09.2009 15:26:22
Thread-ID: 1105312
3 Beiträge
VBA: Gültigkeit für eine Zelle zuweisen
André

Moin zusammen,
ich möchte per VBA einer Zelle eine Gültigkeit zuweisen, und zwar eine Liste von Werten, die dann per Dropdown ausgewählt werden können.
Um den hierzu notwendigen Code zu erhalten, habe ich die Gültigkeit manuell zugewiesen und per Makrorekorder aufzeichnen lassen. Dabei...
22.03.2010 14:10:36
Thread-ID: 1147568
3 Beiträge
Zelle farbig ausfüllen über Formel / bedingte Form
Jim

Hallo Forum,
ich habe eien Frage bzgl. einer Zellformatierung.
Mit welcher Formel oder bedingten Formatierung kann ich einer Zelle eine Füllfarbe unter Randbedingungen zuweisen
Z.B steht in der Zelle A1 die Zahl 1, 2, 3, 4 oder 5. Nun soll die Zelle A2 farbig sein (ohne das ich ein...
22.07.2010 22:07:47
Thread-ID: 1168460
3 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Zellen einfärben per VBA
Heinz

Guten morgen,im Forum
Ich hätte bitte gerne ein Makro.
Wenn zB. A3"" das in E4+F4 die Zelle gelb eingefärbt wird.
Also immer eine Zelle in E+F darunter, wenn Spalte A ungleich "".
Angefangen von A5 bis A1000
Mit bed.Formatierung würde die Arbeitsmappe einfach zu groß.
Kö...
29.03.2011 09:10:20
Thread-ID: 1208020
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
6
2
1
3
2
2
2
6
4
4
2
5
7
2
7
2
5
2
2
2
3
8
2
6