Die Arbeit mit Strings in Excel VBA
✓ Strings zurückgeben lassen: Messagebox, Direktfenster (Debug.Print), Excel-Oberfläche
✓ String aus Excel-Oberfläche herauslesen
✓ String in eine Variable einlesen
✓ Strings verketten mit „&“
✓ String Funktionen auf ursprünglichen String anwenden (, da String Funktionen standardmäßig nicht den ursprünglichen String verändern)
✓ Strings vergleichen mit „=“ und „<>“
✓ Strings in Groß-/Kleinbuchstaben konvertieren mit UCase/LCase
✓ Den ersten Buchstaben jedes Wortes groß schreiben mit WorksheetFunction.Proper
✓ Länge eines String mit Len bestimmen
✓ Leerzeichen aus einem String entfernen mit LTrim, RTrim und Trim
✓ Substring (Teil eines Strings) herausziehen mit Left, Right und Mid
✓ Substring finden mit InStr und InStrRev
✓ Substring ersetzen mit Replace
✓ String aus Excel-Oberfläche herauslesen
✓ String in eine Variable einlesen
✓ Strings verketten mit „&“
✓ String Funktionen auf ursprünglichen String anwenden (, da String Funktionen standardmäßig nicht den ursprünglichen String verändern)
✓ Strings vergleichen mit „=“ und „<>“
✓ Strings in Groß-/Kleinbuchstaben konvertieren mit UCase/LCase
✓ Den ersten Buchstaben jedes Wortes groß schreiben mit WorksheetFunction.Proper
✓ Länge eines String mit Len bestimmen
✓ Leerzeichen aus einem String entfernen mit LTrim, RTrim und Trim
✓ Substring (Teil eines Strings) herausziehen mit Left, Right und Mid
✓ Substring finden mit InStr und InStrRev
✓ Substring ersetzen mit Replace
Code
Sub String_Funktionen()
'String in Messagebox zurückgeben
MsgBox "Joseph Robinette Biden, Jr."
'String in Direktfenster zurückgeben
Debug.Print "Joseph Robinette Biden, Jr."
'String in Excel-Oberfläche zurückgeben
Tabelle1.Range("A1").Value = "Joseph Robinette Biden, Jr."
'String-Variable initialisieren
Dim USPresident As String
'String auf Excel-Oberfläche auslesen
USPresident = Tabelle1.Range("A1").Value
'Strings verketten
Debug.Print "US-Präsident: " & USPresident
'String umkehren
Debug.Print StrReverse(USPresident) 'Beachte: Variable USPresident wird von String Funktionen nicht verändert!
'Strings vergleichen
Debug.Print USPresident = "joseph robinette biden, jr."
Debug.Print USPresident <> "joseph robinette biden, jr."
'Groß-/Kleinschreibung
Debug.Print UCase(USPresident)
Debug.Print LCase(USPresident)
Debug.Print WorksheetFunction.Proper("joe biden")
'Länge eines Strings
Debug.Print Len(USPresident)
'String-Variable verändern
USPresident = " " & "Joseph Robinette Biden, Jr." & " "
'Leerzeichen entfernen
Debug.Print LTrim(USPresident)
Debug.Print RTrim(USPresident)
Debug.Print Trim(USPresident)
'Substring aus einem String herausziehen
USPresident = "Joseph Robinette Biden, Jr."
Debug.Print Left(USPresident, 6)
Debug.Print Right(USPresident, 3)
Debug.Print Mid(USPresident, 8, 9)
Debug.Print Mid(USPresident, 8)
'Substring in einem String finden
Debug.Print InStr(1, USPresident, "biden")
Debug.Print InStr(1, USPresident, "biden", vbTextCompare)
Debug.Print InStrRev(USPresident, "e")
Debug.Print InStrRev(USPresident, "e", 6)
'Substring ersetzen
Debug.Print Replace(USPresident, "Robinette", "John")
'Bereitgestellt von VBATrainer: www.vbatrainer.de
End Sub
