Mehr brandheiße Inhalte
zur Gruppe
Nerds und Gamer
1026 Mitglieder
zum Thema
Hochzeit und keine originelle Idee! Hilfe!!!19
Michplagt ein riesiges Problem. Im Dezember ist es soweit: wir…
Das Thema ist für dich interessant? Jetzt JOYclub entdecken

Hilfe....

Hilfe....
Hallo ihr Nerds,

ich brauche mal eure Hilfe einem Excel VBA Spezi.

Mein Problem ist: Ich lese in einem Script eine Zelle in einem String und möchte alle
Zeilenumbrüche, die sich am Anfang und am Ende des Strings entfernen. Zeilenumbrüche.
die mitten im String sind, sollen erhalten bleiben.

Also aus
var="

Die ist ein Text

"
soll werden var="Dies ist ein Text"
Hat jemand eine Idee..? Ich wäre euch sehr dankbar. *ggg*
******Sin Mann
177 Beiträge
Ich bin zwar kein Excel/VBA-Spezi, aber ich habe dazu einen Gedanken.

Der Gedanke die Zeilenumbrüche rauszufiltern ist falsch, denn ein Zeilenumbruch ist ein Zeilenumbruch, egal ob am Anfang, Ende oder mittendrin.
Was Du möchtest, sind Leerzeilen rausfiltern, oder?

Also würde ich mal Gedanklich sagen, prüfen ob Zeichen in einer Zeile sind, die nicht dem Zeilenumbruch entsprechen oder nicht, und entsprechend behandeln lassen.
@SilentSin
Das funktioniert so nicht, denn ein Leerzeichen chr(32) ist ein Leerzeichen. Ein Zeilenumbruch, ist eine Zeilenumbruch chr(13). VBA unterscheidet zwischen den beiden Zeichen
*****t80 Mann
55 Beiträge
Ich kenn nun die VBA Syntax nicht auswendig aber es wird sicher eine String Funktion geben die einem das erste Zeichen eines Strings ausgibt, wenn das ein Leerzeichen oder Zeilenumbruch ist lässt du das einfach löschen und wiederholst das ganze solang bis das erste Zeichen weder eine Leerzeichen noch ein Zeilenumbruch ist. Anschließend kommt eine 2. while Schleife daher ound macht das ganze mit dem letzten Zeichen des Stings.
Ich mein unter Excel ist das Left/Right([Tabellenname].[FeldName];1)
******Sin Mann
177 Beiträge
@HornyMuc
Ich schrieb von einer Leerzeile nicht Leerzeichen. *zwinker*
Aber waren ja auch nur Gedanken ohne weitere Kenntnisse in der Richtung.
*******nni Paar
520 Beiträge
Mal trim() getestet?
*******nni Paar
520 Beiträge
*******uple Paar
59 Beiträge
Right$ und Left$ in Verbindung mit vbCrLf und vbNewLine
So entfernst du die Zeilenumbrüche am Ende des Strings:

Sub linebreak(myString)
If Len(myString) <> 0 Then
If Right$(myString, 2) = vbCrLf Or Right$(myString, 2) = vbNewLine Then
myString = Left$(myString, Len(myString) - 2)
End If
End If
End Sub

Die Zeilenumbrüche am Anfang findest du analog mit Left$

vbCrLf und vbNewLine sind zwei Zeichen lang, deswegen -2 und nicht -1

Liebe Grüße, nerdycouple
*******uple Paar
59 Beiträge
Die Variante von Rome_Ninni würde auch gehen.
*********eln71 Mann
8 Beiträge
Oder...
... falls es damit nicht funktioniert hat, nimm die vorhandenen Funktionen LTrim() und RTrim() *zwinker*
LTrin und RTrim funktionieren nur bei Leerzeichen, nicht bei Zeilenumbrüchen.
CrLF ist ASCII 10 bzw. 13, Leerzeichen ASCII 32
*********eln71 Mann
8 Beiträge
hm, okay - woher kommen die denn? Kannst du das nicht abstellen?
Und tritt das immer wieder auf?

Ansonsten würde ich das schlicht mit search&replace machen ...
nein, abstellen geht nicht. Das sind Benutzereingaben.
Das Problem ist aber gelöst. Hab etwas experimentiert und eine Lösung gefunden.
Danke für eure Unterstützung und Ratschläge
Windows 7 ultimate
Ich habe seit Freitag das Problem das nach einem Chdisk mein System was ich drauf habe nur noch bis zu dem Punkt kommt Windows wird gestartet und wenn dann Es umschalten soll das ich mich anmelden kann bleibt der Monitor schwarz aber Maus geht.
Nun meinte ein bekannter das die partitisonstabelle defekt ist.
In der laufwerksübersicht sieht mann cund auch die anderen Laufwerke aber ! davor.
Auf d,e,f kommt an Rauf nur auf c nicht ich denke nicht das ich c formatieren kann und dann neu installieren kann eher muss ich wenn ich mit einem Adapter rauf komme von E und f die Daten sichern kann und dann die platte platt mache und neu installieren kann .
Oder hat wer noch ne andere idee. Ich weiß Ferndiagnose ist mist. Vielleicht hat ja ein Berliner Zeit mir zu helfen.
*******nni Paar
520 Beiträge
Boote von der Windows Installations-DVD.
Dann machst du die Reparatur und probierst mal chkdsk /f /r /b

Wenn C noch angezeigt wird, sollte das helfen...
Anmelden und mitreden
Du willst mitdiskutieren?
Werde kostenlos Mitglied, um mit anderen über heiße Themen zu diskutieren oder deine eigene Frage zu stellen.