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.
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.
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
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
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
Danke euch allen und einen besonderen Dank an Winny. Clevere Idee, die ich selbst gerne gehabt hätte!