Groß/Kleinschreibung | Herbers Excel-Forum

Forumthread: Groß/Kleinschreibung | Herbers Excel-Forum
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Groß/Kleinschreibung

Groß/Kleinschreibung

23.01.2009 11:51:32

steffen

Hallo,
ich benötige Eure Hilfe beim Suchen von Wörtern, die Kleinbuchstaben enthalten.
Ich möchte alle Zellen, in denen Kleinbuchstaben vorhanden sind einfärben.
Ich denke, dass das nur per VBA möglich ist -oder?
Gruß Steffen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ohne Sonderzeichen

23.01.2009 12:18:31

Christian
AW: Groß/Kleinschreibung

23.01.2009 12:31:07

Peter Feustel
Danke

23.01.2009 12:45:54

steffen

ohne Sonderzeichen

23.01.2009 12:18:31

Christian

Hallo Steffen,
ein Ansatz ohne Umlaute und Sonderbuchstaben:

AW: Groß/Kleinschreibung

23.01.2009 12:31:07

Peter Feustel

Hallo Steffen,
wenn du deinen zu durchsuchenden Bereich anpasst, sollte es so funktionieren:


Public Sub Kleingeschrieben()
Dim rZelle    As Range
Dim iPosit    As Integer
With ThisWorkbook.Worksheets("Tabelle1")
For Each rZelle In .Range("A1:F5")
For iPosit = 1 To Len(rZelle.Value)
If InStr("abcdefghijklmnopqrstuvwxyzäöü", Mid(rZelle.Value, _
iPosit, 1)) > 0 Then
rZelle.Interior.ColorIndex = 35
Exit For
End If
Next iPosit
Next rZelle
End With
End Sub

Gruß Peter