GRUNDLAGENKURSE | DIE WICHTIGSTEN BEFEHLE
​#28 Die UCase, LCase Funktionen
Excel VBA Befehle Folge 28: Zeichenketten vergleichen mit UCase & LCase
Inhalt dieser Folge:
-
Wie nutze ich die Funktionen UCase() und LCase() um Zeichenketten zu bearbeiten?
-
Welche Möglichkeiten bieten mir diese Befehle um Zeichenketten miteinander zu vergleichen?
-
Wie passe ich die Groß- und Kleinschreibung automatisch für alle meine Einträge im Tabellenblatt an?
Ausgangssituation
Sub Ausgangssituation()
​
'Den Begriff aus Zelle A1 in einer MsgBox ausgeben
MsgBox Range("A1").Value
End Sub
​
Beispiel 1 - UCase
Sub Beispiel1()
'Alle Buchstaben Groß schreiben - UCase
MsgBox UCase(Range("A1").Value)
End Sub
​
Beispiel 2 - LCase
Sub Beispiel2()
'Alle Buchstaben Klein schreiben - UCase
MsgBox LCase(Range("A1").Value)
End Sub
​
Anwendungsbeispiel 1
-
Mit den Befehlen UCase und LCase Einträge in Zellen vergleichen
Sub Anwendungsbeispiel()
'Die Einträge in Zelle A1 und A2 sollen verglichen werden.
'Durch den Befehl "UCase" wird sichergestellt, dass trotz Groß- und Kleinschreibung gleiche Einträge erkannt werden
If UCase(Range("A1").Value) = UCase(Range("A2").Value) Then
'Die beiden Begriffe sind gleich
Range("A3").Value = "Gleich"
Else
'Die beiden Begriffe sind nicht gleich
Range("A3").Value = "Ungleich"
End If
End Sub
​
Anwendungsbeispiel 2
-
Einen Zelleneintrag mit dem Eintrag in eine InputBox vergleichen
Sub Anwendungsbeispiel()
'In diesem Beispiel wird der Eintrag in Zelle A1 mit dem Wert verglichen, den wir in die InputBox eingeben
Dim Name As String
Name = InputBox("Wie ist Dein Name?")
If Range("A1").Value = UCase(Name) Then
'Die beiden Begriffe sind gleich
Range("A3").Value = "Gleich"
Else
'Die beiden Begriffe sind nicht gleich
Range("A3").Value = "Ungleich"
End if
End Sub
​
Anwendungsbeispiel 3
-
In diesem Anwendungsbeipsiel werden wir die Einträge in Spalte A bearbeiten
-
Ziel ist es, dass alle Email-Adressen mit Kleinbuchstaben dargestellt werden
Sub Anwendungsbeispiel3()
'Alle Spalteneinträge klein schreiben
Dim i As Integer
For i = 2 To 8
Cells(i,1).Value = LCase(Cells(i,1).Value)
Next i
End Sub
​
Alle Folgen der VideoReihe auf einen Blick
​Folge 01 Arbeitsmappen und Tabellenblätter ansprechen, sortieren, ...
Folge 02 Zellen ansprechen
Folge 03 Meldeboxen, MsgBox (PopUpFenster)
Folge 04 Schrifteinstellungen (Fett, Kursiv, Schriftart, Schriftfarbe, Schriftgröße, ...)
Folge 05 Variablen & Datentypen in VBA
Folge 06 Arrays / Datenfelder in VBA
Folge 07 For Next - Schleifen in VBA
Folge 08 Dynamische Arrays
Folge 09 Rechenoperationen
Folge 10 Vergleichsoperatoren
Folge 11 Logische Operatoren
Folge 12 SuchFunktion (Einträge & Begriffe in Zellen suchen)
Folge 13 If Then Else - Verzweigungen in VBA
Folge 14 Do While Loop - Schleifen in VBA
Folge 15 Endlosschleifen verhindern
Folge 16 Die SortierFunktion (sortieren, nach mehreren Kriterien)
Folge 17 Select Case - Verzweigungen in VBA
Folge 18 InputBox (gestalten und Eingaben verwenden)
Folge 19 For Each - Schleifen in VBA
Folge 20 Borders-Eigenschaften (Dynamisches Tabellendesign erstellen)
Folge 21 Laufzeitfehler & Syntaxfehler - finden und beheben
Folge 22 On Error GoTo - Laufzeitfehler abfangen
Folge 23 Alle Farben in VBA nutzen (ColorIndex, vb Color, RGB)
Folge 24 Zeichen ersetzen mit der REPLACE Funktion
Folge 25 Zeichen trennen mit der SPLIT Funktion
Folge 26 Zeichen verbinden mit der JOIN Funktion
Folge 27 Auszug aus einer Zeichenkette - LEFT, RIGHT, MID Funktion
Folge 28 Zeichenketten vergleichen mit UCase & LCase
Folge 29 Arbeitsmappen Ereignisse (Open, BeforeClose, BeforeSave)
Folge 30 Tabellenblatt Ereignisse (Change, BeforeDoubleClick)
Folge 31 Zeilen und Spalten fixieren (FreezePanes)