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?

Den Inhalt der Folge kostenlos als PDF einsehen
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)

Folge 32   Kommentare einfügen mit VBA (AddComment)

Folge 33   Zellen verbinden & Warnmeldungen ignorieren

Excel-VBA-SCIENZLESS-2.png

Jetzt abonnieren &

kein Video mehr verpassen!

Excel-VBA-SCIENZLESS-1.png

Lass uns Gutes tun!

SCIENZLESS LERNVIDEOS

ProtectedShops.png

Protected Shop

© 2020 André Naß