vbCr vereinfacht Mehrere vbCr-Zeichen verkürzt benutzen
Autor:   Tobias König	Bewertung:     [ Jetzt bewerten ]	Views:  14.615
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 21 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mein Problem war folgendes:
In einer UserForm mit einem Label wollte ich eine kleine Hilfe schreiben (ohne auf txt-Dateien etc.) zurückzugreifen. Nun bestand aber das Problem, dass ich auch Leerzeilen einfügen wollte - und nicht ganz wenige, damit es auch übersichtlich bleibt.

Also:

Text = "..." & vbCr & vbCr & ...

Nein, das kanns nicht sein; immer wieder mehrfach das gleiche schreiben...

Also neue Version:

Text = "..." & NZ(2) & "..."

Dazu gehört natürlich jetzt folgende neue Funktion:

Public Function NZ(ByVal Anz As Integer)
  NZ = String$(Anz, vbCr)
End Function

Klein - aber fein
Nun kann ich öfters Mehrzeilen-Umbrüche gestalten, ohne dass diese viel Platz wegnehmen. Zudem sind diese jetzt so flexibel, dass ich nur bei NZ(x) die Zahl ändern muss - und schon stimmt alles wieder.