Aktive Zeile modifizieren

Bild

Betrifft: Aktive Zeile modifizieren
von: Markus
Geschrieben am: 02.12.2003 09:47:49

Hallo,

ich habe folgendes Problem:

In einer Schleife werden die Inhalte einer bestimmten Zelle ausgelesen.
Wenn diese Zelle keinen Wert enthält (=False), dann sollen in der Zeile, in
der sich diese Zelle befindet die Inhalte der Zellen von E bis J gelöscht
werden und außerdem soll die Zeile von A bis J rot markiert werden.

Ich scheitere immer daran, daß ich die Zeile im Schleifendurchlauf nicht
indiziert ansprechen kann.

Wer weiß Rat ?

Gruß

Markus

Bild


Betrifft: AW: Aktive Zeile modifizieren
von: Nike
Geschrieben am: 02.12.2003 09:54:59

Hi,
mal ein Ansatz, da du deinen Codeanfang nicht gepostet hast:


Sub test()
If ActiveCell = "" Then
    Range(Cells(ActiveCell.Row, 5), Cells(ActiveCell.Row, 10)).ClearContents
    Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)).Interior.ColorIndex = 3
End If
End Sub


Bye

Nike


Bild


Betrifft: AW: Aktive Zeile modifizieren
von: Markus
Geschrieben am: 02.12.2003 11:05:19

Hallo Nike,

vielen Dank.
Das war's was ich gebraucht habe.

Gruß

Markus


Bild

Beiträge aus den Excel-Beispielen zum Thema " Aktive Zeile modifizieren"