Zellen Formatierung nach Bedingung

falcon30 · 25.07.2005

Hallo Zusammen,

ich habe folgendes Problem:

Wenn eines der Zellen M75:M116 leer dann soll die entsprechende Zelle in der Spalte C hellblau (farbcode 33) sein.

Danke im Voraus.

Grüße
falcon30

Billy · 25.07.2005

hallo falcon

kann es sein dass du nach so etwas suchst:

Code:

Sub wenndannformatiere()
'Hier den Bereich angeben
Const c_bereich = A1:A3

'Bereich für das Makro lesbar machen
Dim Zelle As Range, r As Range
Set r = Range(c_bereich)

'Jede Zelle überprüfen
For Each Zelle In r
 If Zelle.Value =  Then
  Zelle.Interior.ColorIndex = 33
 End If
Next

End Sub

mfg billy

falcon30 · 25.07.2005

Hi,

die Bedingung ist fast gut, nur soll eine andere Zelle formatiert werden:

Wenn Zelle M75:M116 leer
Dann Zelle C75:C116 hellblau

z.b.: Zelle M100 ist leer dann C100 hellblau

Danke!!

Grüße
falcon30

Billy · 25.07.2005

falcon30 schrieb:
Hi,

die Bedingung ist fast gut, nur soll eine andere Zelle formatiert werden:

Wenn Zelle M75:M116 leer
Dann Zelle C75:C116 hellblau

z.b.: Zelle M100 ist leer dann C100 hellblau

Danke!!

Grüße
falcon30

hups

hab nur den 1. teil gelesen. sry

Code:

Sub wenndannformatiere()
'Hier den Bereich angeben
Const c_bereich = M1:M3

'Bereich für das Makro lesbar machen
Dim Zelle As Range, r As Range
Set r = Range(c_bereich)

'Jede Zelle überprüfen
For Each Zelle In r
 If Zelle.Value =  Then
  Zelle.Offset(0, -10).Interior.ColorIndex = 33
 End If
Next

End Sub

so sollte/ist es nun besser sein *gg*

falcon30 · 25.07.2005

Vielen Dank!!

Funktioniert super!!

jetzt habe ich noch ein Problem:

Wenn Zelle M75:M116 leer
Dann Zelle AF75:AP116 hellblau

z.b.: Zelle M100 ist leer dann AF100:AP100 hellblau

Wäre toll wenn Du mir hier auch noch helfen könntest.

Danke!!

Grüße
falcon30

Billy · 25.07.2005

Also

das machst du ja bei der gleichen schleife oder? *gg*

du musst dann einfach diese schleife nehmen und die alte löschen

Code:

For Each Zelle In r
 If Zelle.Value =  Then
  Zelle.Offset(0, -10).Interior.ColorIndex = 33
  Range(Cells(Zelle.Row, 32), Cells(Zelle.Row, 42)).Interior.ColorIndex = 33
 End If
Next

mfg billy

falcon30 · 25.07.2005

Vielen Dank!!

Funktioniert klasse.

Grüße
falcon30

Billy · 25.07.2005

falcon30 schrieb:
Vielen Dank!!

Funktioniert klasse.

Grüße
falcon30

dafür wurde es gemacht *gg*, dass es funktioniert und klasse ist ;D

Zellen Formatierung nach Bedingung

falcon30

Billy

falcon30

Billy

falcon30

Billy

falcon30

Billy

Zellen Formatierung nach Bedingung

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums