Aus Großbuchstaben bestehende Wörter finden

[Wulfi]

Hallöchen,

bräuchte nochmal eure Hilfe.

Wie finde ich in einem Tabellenblatt Wörter, die ausschließlich aus Großbuchstaben bestehen? Anschließend sollen diese Wörter rot markiert werden.

[Peter]

Hallo,

versuch mal folgendes (wobei ich jetzt davon ausgehe, dass die erste Zelle die geprüft werden soll die Zelle A1 ist):

den Bereich markieren - Start - Bedingte Formatierung - Neue Regel - Formel ist - Formel eingeben: =IDENTISCH(A1;GROSS(A1)) und das gewünschte Format wählen.

[Wulfi]

Hallo Leute,

ich habe mir ein kleines Programm geschrieben welches prüft ob nur aus Großbuchstaben besteht oder nicht. Bräuchte aber doch
nochmal eure Expertise, ob man das nicht vielleicht auch noch besser hinkriegt.

Code:

Function Gross(ByVal sChar As String) As Boolean

For i = 1 To Len(sChar)
Select Case Asc(Mid(sChar, i, 1))
Case 65 To 90:       Gross = True 'A-Z
Case 196, 214, 220:  Gross = True 'Ä, Ö, Ü
Case Else:
Gross = False
Exit Function
End Select
Next i

End Function

Sub Grossbuchstaben()
'Prüfen ob ein String ausschließlich aus Großbuchstaben besteht
Dim vstr
vstr = "CLeVER"
If Gross(vstr) Then
Debug.Print "Alles Grossbuchstaben"
Else
Debug.Print "Kleinbuchtaben vorhanden"
End If
End Sub

[Käpt'n Blaubär]

Hallo,

... gelöscht ...

[Fennek]

Hallo,

eine andere Variante mit vba:

Code:

Sub gross_klein()

For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
flag = True
   For j = 1 To Len(Cells(i, "A"))
       If Not Mid(Cells(i, "A"), j, 1) Like "[A-Z]" Then flag = False
   Next j
   If flag Then Cells(i, "B") = 1
Next i
End Sub

mfg

[Winny]

Hi

zur Prüfung sollte dies reichen, siehe auch die Formellösung von Peter

Code:

  If vstr = UCase(vstr) Then
     Debug.Print "Alles Grossbuchstaben"
  Else
     Debug.Print "Kleinbuchtaben vorhanden"
  End If

[Wulfi]

Danke euch allen und einen besonderen Dank an Winny. Clevere Idee, die ich selbst gerne gehabt hätte!