VBA – Programmierung mit Excel Grundlagen
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Seite 50<br />
Das Sprachkonzept von <strong>VBA</strong><br />
• OPTION COMPARE BINARY unterscheidet zwischen Groß- / Kleinschreibung (obiges<br />
Ergebnis FALSCH).<br />
• OPTION COMPARE TEXT bewirkt, daß bei Vergleichen die Groß- / Kleinschreibung ignoriert<br />
wird (Das Ergebnis des obigen Beispiels wäre dann WAHR).<br />
➨ Die Option muß im Modul vor der ersten Prozedur gesetzt werden !<br />
➨ Der Defaultwert ist OPTION COMPARE BINARY.<br />
<br />
Option Compare Text<br />
Sub Vergleich ()<br />
Ort1 = "Hagen"<br />
Ort2 = "HAGEN"<br />
If Ort1 = Ort2 Then<br />
Gleich = True<br />
Else<br />
Gleich = False<br />
End If<br />
End Sub<br />
✘ Um unnötige falsche Ergebnisse bei derartigen Vergleichen zu vermeiden, sollte man<br />
vor dem Vergleich die Zeichenketten „auf das gleiche Level“ bringen <strong>–</strong> beide in Groß- oder<br />
beide in Kleinschrift umwandeln. Siehe dazu die Funktionen UCASE und LCASE weiter im<br />
Text.<br />
Teilstrings<br />
Mit Hilfe der Funktionen RIGHT, LEFT und MID lassen sich Teilketten aus Strings herausgelöst<br />
werden.<br />
Right (Zeichenfolgeausdruck, Länge)<br />
Left (Zeichenfolgeausdruck, Länge)<br />
Mid (Zeichenfolgeausdruck, Startposition, [Länge])<br />
RIGHT löst Teilketten aus dem Zeichenfolgeausdruck (Typ STRING) heraus, beginnend <strong>mit</strong><br />
dem ersten Zeichen rechts, LEFT beginnend <strong>mit</strong> dem ersten Zeichen links, MID beginnend <strong>mit</strong><br />
der abgegebenen Position nach rechts um in LÄNGE angegeben Anzahl Zeichen. Wird LÄNGE<br />
nicht angegeben, werden alle Zeichen rechts von STARTPOSITION ausgegeben.<br />
<br />
Set Eingabe = Worksheets("Begriffe").Range("B2")<br />
´enthält die Zeichenkette "Autobahnpolizei"<br />
Ausgabe = Right(Eingabe, 7) 'ergibt: polizei<br />
Ausgabe = Left(Eingabe, 4) 'ergibt: Auto<br />
Ausgabe = Mid(Eingabe, 5, 4) 'ergibt: bahn<br />
Ausgabe = Mid(Eingabe, 5) 'ergibt: bahnpolizei<br />
Leerzeichen in Strings<br />
Die Funktionen RTRIM, LTRIM und TRIM entfernen überflüssige Leerzeichen an<br />
unterschiedlichen Positionen eines Strings:<br />
RTrim(Zeichenfolgeausdruck)<br />
LTrim(Zeichenfolgeausdruck)<br />
Trim(Zeichenfolgeausdruck)<br />
RTRIM entfernt rechts stehende Leerzeichen, LTRIM entfernt führende Leerzeichen, TRIM<br />
entfernt sowohl führende als auch alle nachfolgenden Leerzeichen aus Strings.<br />
Insbesondere bei der Bereinigung von Eingabedaten leisten diese Funktionen gute Dienste<br />
(siehe Beispiel im nächsten Unterkapitel).