Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zellen eines Bereiches formatieren

Forumthread: Bestimmte Zellen eines Bereiches formatieren

Bestimmte Zellen eines Bereiches formatieren
03.11.2018 23:50:54
Oli
Liebes Nutzerteam!
Nach erfolgloser Interntsuche, möchte ich euch nun um Hilfe bitten:
Ich suche einen Code, mit dem ich per Button, im Bereich 'Sheets(“Januar“).Range(“D7:AH22, AT7:AT22, AX7:BG22“)' alle Zellen, die nicht leer sind, auf 'Interior.ColorIndex = 2' und 'Font.ColorIndex = 1' setzen, sowie deren Inhalt löschen kann.
Vielen Dank im Voraus
Oliver
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zellen eines Bereiches formatieren
04.11.2018 00:07:46
onur 

Private Sub CommandButton1_Click()
Dim cell
For Each cell In Range(“D7:AH22, AT7:AT22, AX7:BG22“)
If cell  "" Then
cell.Interior.ColorIndex = 2
cell.Font.ColorIndex = 1
End If
Next
End Sub

AW: Bestimmte Zellen eines Bereiches formatieren
04.11.2018 01:50:02
Oli
Vielen Dank für die super schnelle Antwort, funktioniert perfekt.
Jetzt möchte ich die gleiche Aktion, beim selben Knopfdruck auch im den gleichen Bereichen der Sheets Februar bis Dezember durchführen. Also mit einem Knopfdruck alle Monate zurücksetzen, ich dachte das bekäme ich dann hin - Fehlanzeige...
Also bitte noch die Syntax für das gleichzeitige Ausführen in den anderen elf Blättern.
Daaanke!
Anzeige
AW: Bestimmte Zellen eines Bereiches formatieren
04.11.2018 03:01:05
onur 

Private Sub CommandButton1_Click()
Dim cell, sh, wks
For Each sh In Array("Januar", "Februar", usw , usw)
Set wks = Sheets(sh)
For Each cell In wks.Range("A1:C8")
If cell  "" Then
cell.Interior.ColorIndex = 2
cell.Font.ColorIndex = 1
End If
Next
Next
End Sub

Anzeige
AW: Bestimmte Zellen eines Bereiches formatieren
04.11.2018 03:12:24
Oli
Problem gelöst, vielen Dank!
AW: Bestimmte Zellen eines Bereiches formatieren
04.11.2018 00:57:22
Daniel
wenn es sich um feste Werte handelt (keine Formeln) 
With Sheets(“Januar“).Range(“D7:AH22, AT7:AT22, AX7:BG22“).SpecialCells(xlcelltypeconstants)
.Interior.ColorIndex = 2
.Font.ColorIndex = 1
.ClearContents
End with

Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Kopieren eines Bereiches in ein neues Arbeitsblatt
Anett

Hallo,
ich habe ein Problem bei dem ich nicht weiterkomme:
Ich möchte einen Bereich aus einem Arbeitsblatt in ein anderes von insgesamt 20 Arbeitsblatt kopieren. Allerdings gibt es noch eine Schwierigkeit: Der zu kopierende Bereich hat 124 Zeilen. Jede Zeile soll abhängig von Ihrem Inha...
10.09.2008 11:12:00
Thread-ID: 1008687
2 Beiträge
Anzeige
Zellinhalte eines Bereiches in MsgBox?
Robert

Hallo,
ich stehe vor dem Problem, dass ich die Zellinhalte eines festen Bereiches (IU1:IU20), sofern überhaupt Einträge dort vorhanden sind, diese ausgeben müsste.
Dachte das würde mit einer MsgBox funktionieren. Ich kriegs nicht auf die Reihe. Den Inhalt einer Zelle anzuzeigen ist kein...
07.11.2008 18:31:54
Thread-ID: 1022782
3 Beiträge
Adresse des benannten Bereiches ohne VBA
Peter

Guten Abend
Gibt es eine Möglichkeit, mittels einer Formelabfrage ausfindig zu machen, wo ein bestimmter Bereich liegt?
Angenommen der Druckbereich in Tabelle1 ist B2:P2 müsste das Ergebnis der Abfrage
=Tabelle1!$B$2:$P$2
sein.
Gruss, Peter
06.01.2009 22:09:00
Thread-ID: 1037380
16 Beiträge
letzter Eintrag eines Bereiches (begrenzte Spalte)
walter

Hallo und guten Abend,
ich suche eine Formel (kein Makro) um den letzten Eintrag eines Spaltenbereiches in einer anderen Zelle darzustellen.
Wer weiß Rat ?
Danke + Gruß
Walter
11.02.2009 23:17:00
Thread-ID: 1049842
4 Beiträge
Anzeige
Letzte Zeile eines Bereiches finden
Claudia

Hallo zusammen,
ich suche per Formel die letzte belegte Zelle im Bereich E22:E33. Kann mir da jemand helfen? Es darf nicht die letzte belegte Zelle in Spalte E sein, weil im Anschluss noch Zellen belegt sind.
Danke!
Viele Grüße
Claudia
27.04.2009 15:07:05
Thread-ID: 1071392
9 Beiträge
Namensbereichesbeschriftung unischtbar machen
Herbert

Ich würde gerne für einen Anwender die Namensbereichsbeschriftung in der 25% Ansicht (und etwas größere) unsichtbar machen, da diese stört. (Einstellungen-Namen). Wie geht das in Excel bzhw VBA?
Herzlichen Dank Herbert
04.05.2009 12:31:50
Thread-ID: 1072719
6 Beiträge
Anzeige
Erste Zelle eines Bereiches
Yusuf

Moin
gibt es eine Möglichkeit die Adresse der ersten (links oben) Zelle eines festegelegten Bereiches zu ermitteln?
z.B.:
Set RaBereich = Range("A2:O54")
hier waere es "A2"
Vielen Dank im voraus.
mfg
Yusuf
26.06.2009 11:15:20
Thread-ID: 1084529
6 Beiträge
Exitenz eines Namensbereiches prüfen ?
k

Hallo,
wie kann ich per VBA prüfen, ob ein Namensbereich vorhanden ist und ihn dann ggf. löschen ?
Löschen vermutlich so:
ActiveWorkbook.Names("KD").Delete
Aber wie kann ich in der aktiven Mape danach suchen - ob es ihn gibt zum löschen ?
so:
If ... Name("KD"). gi...
29.07.2009 10:58:40
Thread-ID: 1092172
9 Beiträge
Summe eines Bereiches wenn 2 Kriterien
Andre

Hallo liebe Leute,
mal wieder eine kleine Frage.
hier ein Beispiel.

was mache ich da genau für einen Fehler?
hab es schon mit Summewenn versucht, doch die kann nur ein Kriterium oder?
Also er soll nur die Werte des Bereiches A3:A7 zusammenrechnen, wenn B3:B7;B10 UND wen...
08.12.2009 13:32:35
Thread-ID: 1122384
3 Beiträge
Summe eines Bereiches wenn 2 Kriterien
Andre

Hallo liebe Leute,
mal wieder eine kleine Frage.
hier ein Beispiel.

was mache ich da genau für einen Fehler?
hab es schon mit Summewenn versucht, doch die kann nur ein Kriterium oder?
Also er soll nur die Werte des Bereiches A3:A7 zusammenrechnen, wenn B3:B7;B10 UND wen...
08.12.2009 13:33:29
Thread-ID: 1122390
2 Beiträge
aktive Zelle an Anfang des Printbereiches stellen
Karsten

Hallo,
Ich benötige einen VBA-Befehl der die aktive Zelle an den Anfang des Printbereiches (selbe Spalte), in meinem Falle D6, stellt.
Läßt sich so etwas per VBA erkennen?
https://www.herber.de/bbs/user/66651.xls
Danke für eure Hilfe.
Gruß
Karsten
17.12.2009 09:42:02
Thread-ID: 1124543
5 Beiträge
Anzeige
Zelle eines Bereiches in VBA zuordnen
Horst

Hallo
ich habe unter "Einfügen" "Namen" "Definieren" einen Bereich definiert und diesem einen Namen zugewiesen.
z.B.
Baujahr =Testblatt!$H$2:$H$31
Unter VBA möchte ich auf Baujahr quasi wie ein Array zugreifen.
z.B.
Test = Baujahr(1).Value (das wäre dann also der Inh...
20.01.2010 13:45:04
Thread-ID: 1131345
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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