String Funktionen

Inhalt

✓ 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
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - QR-Code
Kai Weissmann

QR-Code

  Inhalt QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen URL zur Generierung

Mehr lesen »
VBATrainer Excel VBA Coaching -Outlook Termin
Kai Weissmann

Outlook-Termin

  Inhalt Outlook-Termin erstellen und Zugriff auf alle Termin-Eigenschaften haben Outlook-Bibliothek aktivieren/Verweis setzen (Extras –>

Mehr lesen »
VBATrainer Excel VBA Coaching -PDF erstellen
Kai Weissmann

PDF erstellen

  Inhalt PDF erstellen: Ansprechen des Tabellenblatts und ExportAsFixedFormat Erstellung Dateipfad & Direktbereich Dateipfad und

Mehr lesen »
VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren