String Funktionen

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

 

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

Teile diesen Beitrag

Empfehlungen für dich

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung