Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1220to1224
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
Inhaltsverzeichnis

Zeilen mit Komma Werten markieren

Zeilen mit Komma Werten markieren
Stan
Hallo Excel Freunde,
Wie kann ich Zellen mit Kommawerten markieren?
Dim C As Range
Dim fAddr As String
With Cells
Set C = .Find(what:="aa", lookat:=xlPart) 'xlPart = enthält, ansonsten xlWhole
If Not C Is Nothing Then
fAddr = C.Address
Do
C.Interior.ColorIndex = 40
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address fAddr
End If
End With
Das Makro funktioniert nur mit Text
Wenn ich statt aa , schreibe funktioniert nicht mit Zahlen z.B 1,5 3,7 usw.
Vielleicht gibt es eine einfachere Lösung
Danke Stan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen mit Komma Werten markieren
30.06.2011 14:10:06
Kawensmann
Hallo,
versuch's mal so:
Sub Kommawerte()
Dim r As Range
Dim c As Range
Dim v As Variant
Set r = Nothing
For Each c In ActiveSheet.UsedRange
v = c.Value
If IsNumeric(v) And v  "" Then
If v - Int(v)  0 Then
If r Is Nothing Then
Set r = c
Else
Set r = Union(r, c)
End If
End If
End If
Next
r.Interior.ColorIndex = 40
End Sub

Gruß
Kawensmann
AW: Zeilen mit Komma Werten markieren
30.06.2011 14:39:35
Stan
Hallo,
Vielen Dank,
Funktioniert super.
Gruß Stan
Anzeige

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige