Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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.
Antworten 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
Antworten 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
Antworten Top
#4
Hallo,

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

Grüße aus Norderstedt, Peter
Antworten 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
Antworten 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
Antworten Top
#7
Danke euch allen und einen besonderen Dank an Winny. Clevere Idee, die ich selbst gerne gehabt hätte!
Antworten Top


Gehe zu:


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