30.09.2013 Aufrufe

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).

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!