Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nur den letzten Zeileumbruch löschen

Forumthread: nur den letzten Zeileumbruch löschen

nur den letzten Zeileumbruch löschen
20.12.2013 09:35:02
Franz
Hallo Fachleute,
ich setze aus mehreren Einzelteilen einen String zusammen:
strGesText = Strtt(1) & vbLf & _
Strtt(2) & vbLf & _
Strtt(3) & vbLf & _
Strtt(4) & vbLf & _
Strtt(5)
wenn nun Strtt(5) mal leer ist (=""), dann soll der letzte - und nur der letzte - Zeilumbruch weg, und das krieg ich nicht hin. Ich verusche 2 div. Möglichkeiten mit Replace:
strGesText = Replace(rgZiel, vbLf, "")
strGesText = Replace(rgZiel, Right(rgZiel, 1), "")
.... aber beide Varianten suchen halt im ganzen String nach vbLf und holen sämtliche Zeilenumbrüche raus anstatt nur den letzten. Wie kann ich das denn schreiben?
Danke schonmal und Grüße
Franz

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur den letzten Zeileumbruch löschen
20.12.2013 09:48:18
UweD
Hallo
so z.B.
    strGesText = Strtt(1) & vbLf & _
Strtt(2) & vbLf & _
Strtt(3) & vbLf & _
Strtt(4) & IIf(Strtt(5)  "", vbLf, "") & _
Strtt(5)
Gruß UweD

AW: nur den letzten Zeileumbruch löschen
20.12.2013 09:53:27
Franz
Hallo Uwe,
das ist ja genial (zumindest für mich:-)) !!), das IIf war mir noch nicht bekannt, und wie man das direkt verwenden kann.
Vielen Dank und Grüße
Franz

Anzeige
AW: nur den letzten Zeileumbruch löschen
20.12.2013 09:54:30
UweD
so ginge es auch
    strGesText = Strtt(1) & vbLf & _
Strtt(2) & vbLf & _
Strtt(3) & vbLf & _
Strtt(4) & vbLf & _
Strtt(5)
If Right(strGesText, 1) = vbLf Then strGesText = Left(strGesText, Len(strGesText) - 1)

Anzeige
AW: nur den letzten Zeileumbruch löschen
20.12.2013 10:03:14
Franz
ja, danke, versteh das Prinzip, werd ich mir auch aufheben, gibt vielleicht andere Einsatzmöglichkeiten
Grüße
Franz
ach ja, und übrigens schöne Weihnachten und einen guten Rutsch ins Neue Jahr!

AW: nur den letzten Zeileumbruch löschen
20.12.2013 12:11:30
Rudi
Hallo,
man könnte auch strtt redimensionieren.
Motto: 
Sub FranzW()
Dim strTT(), strGesamtText As String
ReDim strTT(1 To 5)
'strtt() füllen
If strTT(5) = "" Then ReDim Preserve strTT(1 To 4)
strGesamtText = Join(strTT, vbLf)
End Sub

Gruß
Rudi

Anzeige
AW: nur den letzten Zeileumbruch löschen
20.12.2013 12:59:26
Franz
Hallo Rudi,
das ist ja auch genial, auch wieder was Neues für mich, vielen Dank!
Um das Ganze auf mehr als nur ein leeres "Strtt(5)" auszudehnen hab ich Uwes "IIf"-Vorschlag so erweitert:
strGesamtText = strTT(1) & IIf(strTT(2) "", vbLf, "") & _
strTT(2) & IIf(strTT(3) "", vbLf, "") & _
strTT(3) & IIf(strTT(4) "", vbLf, "") & _
strTT(4) & IIf(strTT(5) "", vbLf, "") & _
strTT(5)
Das sähe mit Deinem Tipp dann so aus:
If strTT(5) = "" Then ReDim Preserve strTT(1 To 4)
If strTT(4) = "" Then ReDim Preserve strTT(1 To 3)
If strTT(3) = "" Then ReDim Preserve strTT(1 To 2)
If strTT(2) = "" Then ReDim Preserve strTT(1 To 1)
strGesamtText = Join(strTT, vbLf)
..... was wunderbar funktioniert.
Um das zu verkürzen, fiele mir eine Schleife ein....... Oder gibt's da auch ne "elegantere" Möglichkeit, die besser dazu passt?
Grüße
Franz
Anzeige

Forumthreads zu verwandten Themen

VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Datenblatt ab letzte volle Zeile löschen
meixner

Hallo zusammen,
brauche ein Makro, dass ein Datenblatt durchsucht. Wenn in der Spalte A ab einer gewissen Zeile kein Text oder Zahl mehr steht, soll der komplette Bereich gelöscht werden.
z.B ab Zeile A30 befinden sich nur Nullen in der Spalte. Dann soll alles ab A30: F30 gelöscht werd...
19.10.2009 15:19:42
Thread-ID: 1110670
4 Beiträge
letzte volle zeile suchen und löschen
meixner

Hallo zusammen,
habe eine Tabelle (A8: H16). Ich möchte anhand eines Makros die letzte volle zeile suchen, die sich in Spalte G befindet, anhand eines Makros finden.
Wenn er die letzte befüllte zeile in spalte G gefunden hat, soll alles andere was sich ab dieser vollen Zeile in den and...
15.11.2009 12:00:37
Thread-ID: 1117324
10 Beiträge
VBA-AutoMakierung und erkennung der letzten Zeile
Kay

Hallo Forumsgemeinde,
Ich bin VBA-Anfänger und...
...auf der Suche nach einer Lösung für folgendes Problem:
Ich habe diverse Datensätze, welche in ihrem Umfang jedesmal variieren - Sie besitzen immer eine andere Anzahl an Zeilen.
Diese Daten versuche ich mittels diverser Makros...
13.05.2010 13:34:22
Thread-ID: 1156898
8 Beiträge
VBA: bei Wert 0 in Zelle A5, Zeile 9 löschen
Steffen

Hallo zusammen,
ich benötige kurz eure kompetente Hilfe!
Ich habe folgendes Problem....
Wenn in Zelle A5 in Mappe1 der Wert 0 steht dann soll die Zeile 9 in Mappe2 gelöscht werden.
Ich hoffen mir kann jemand weiterhelfen!
Vielen Dank für die Hilfe und einen Lieben Gruß
S...
04.09.2010 18:17:19
Thread-ID: 1175718
13 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
Anzeige
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
Anzeige
VBA: Zeilen mit Eintrag in Spalte B löschen
Martin

Guten Tag
Wie kann ich vermeiden beim untenstehende Code ein RC22 (hätte lieber ein Range oder Cells) einzugeben. Ich möchte, dass alle Zeilen mit Eintrag O oder P in Spalte B gelöscht werden.
Besten Dank im voraus.
Martin
'O und P löschen
With xxx.UsedRange
With .Colum...
13.04.2011 15:29:24
Thread-ID: 1210256
7 Beiträge
VBA: leere Zeilen löschen
Fritz_W

Hallo Forumsbesucher,
ich bitte um Eure Hilfe:
Mit welchem Code lassen sich alle leere Zeilen der aktiven Spalte (bis zur letzten Zeile mit Inhalt) löschen.
Beispiel: Befindet sich der Cursor in Zelle C6 und ist in Spalte C die letzte Zelle mit Inhalt die Zelle C957 sollten alle lee...
19.10.2011 09:27:12
Thread-ID: 1234458
3 Beiträge
VBA - letzte Zeile ermitteln
WalterK

Hallo,
für die letzte belegte Zeile in Spalte D habe ich folgende Codezeile gefunden:
Zeletzte = Cells(Rows.Count, 4).End(xlUp).Row
Leider werden hier auch die Formelergebnisse "" mitberücksichtigt.
Wie müßte die Codezeile lauten, wenn für die Ermittlung der letzten belegten Zei...
09.12.2011 11:55:16
Thread-ID: 1241383
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige