Aus Großbuchstaben bestehende Wörter finden
#1
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.
Antwortento top
#2
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.
Gruß
Peter
Antwortento top
#3
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
Antwortento top
#4
Hallo,

... gelöscht ...
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

?mage
Antwortento top
#5
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
Antwortento top
#6
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
Grüße,
Winny
Antwortento top
#7
Danke euch allen und einen besonderen Dank an Winny. Clevere Idee, die ich selbst gerne gehabt hätte!
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste