Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle finden Zeile formatieren

Zelle finden Zeile formatieren
06.12.2005 10:36:47
Chrizzi
Liebe Excel-Spezialisten,
vielleicht kann mir jemand bei folgendem Problem helfen: ich möchte aus einer markierten Spalte A diejenigen Zeilen formatieren (Spalten A bis H), die das Zahlenformat "0" aufweisen. Meine Schleife funktioniert soweit, allerdings ist sie nach Durchlauf der ersten Zeile beendet. Wie kann man das beheben?
Bsp:

Sub ZelleFindenZeileFormatieren()
Dim Zelle As Range
Range("A15").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
For Each Zelle In Selection
If Zelle.NumberFormat = "0" Then
Range(ActiveCell(), _
ActiveCell.Offset(0, 7)).Interior.ColorIndex = xlNone
End If
ActiveCell.Offset(1, 0).Select
Next Zelle
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle finden Zeile formatieren
06.12.2005 10:42:48
Hajo_Zi
Hallo Hans Bärbel,
in VBA kann zu 99% auf select usw. verzichtet werden. Darum und um Optimierung habe ich mich nicht gekümmert.

Sub ZelleFindenZeileFormatieren()
Dim Zelle As Range
Range("A15").Select
Range(Selection, Selection.End(xlToRight)).Select   ' markieren bis letzte Spalte
Range(Selection, Selection.End(xlDown)).Select      ' markieren bis letzte Zeile
For Each Zelle In Selection
If Zelle.NumberFormat = "0" Then
Range(Zelle, Zelle.Offset(0, 7)).Interior.ColorIndex = xlNone
End If
Next Zelle
End Sub



AW: Zelle finden Zeile formatieren
06.12.2005 10:43:41
u_
Hallo,
besser so:

Sub ZelleFindenZeileFormatieren()
Dim lngRow As Long
Application.ScreenUpdating = False
For lngRow = 15 To Range("A15").End(xlDown).Row
If Cells(lngRow, 1).NumberFormat = "0" Then
Range(Cells(lngRow, 1), Cells(lngRow, 8)).Interior.ColorIndex = xlNone
End If
Next lngRow
Application.ScreenUpdating = True
End Sub
Gruß
Geist ist geil!
Anzeige
AW: Zelle finden Zeile formatieren
06.12.2005 12:45:08
Chrizzi
Super u_,
das funktioniert fabelhaft!
Vielen Dank.
Grüsse
Chrizzi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige