Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1652to1656
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
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige