Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

5 Zeichen von rechts auslesen

5 Zeichen von rechts auslesen
29.10.2007 11:55:00
rechts
Hallo, komme im Moment mit folgendem Problem nicht weiter.
Ich möchte prüfen, ob das 5. Zeichen von rechts ein Leerzeichen ist, falls ja, dieses löschen.
Das ganze in VBA.
Die Stringfolge in den zu prüfenden Zellen sind unterschiedlich lang. Muss also von rechts suchen.
Hat jemand einen Tipp?
hartmut

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If mid(strVar,len(strVar)-4,1)=" " then....
29.10.2007 11:58:49
NoNet
Hallo Hartmut,
hier 2 Lösungsvorschläge :
If mid(strVar,len(strVar)-4,1)=" " then.... 'funktioniert mit allen VBA-Versionen (ab Excel 95)
oder :
If mid(strreverse(strVar),5,1)=" " then.... 'ab Excel 2000
Gruß, NoNet

AW: 5 Zeichen von rechts auslesen
29.10.2007 12:01:57
rechts
Hallo Hartmut,
oder so:
If Left(Right(str, 5), 1) = " " Then ...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: 5 Zeichen von rechts auslesen
29.10.2007 12:02:00
rechts
Hallo Hartmut,
Zeichenfolge = "DeinString"
RechterTeil=right(Zeichenfolge,5)
if instr(1,RechterTeil," ") =1 then
Zeichenfolge=left(Zeichenfolge,len(Zeichenfolge)-5) & right(RechterTeil,4)
end if
Gruß
Harry

Anzeige
AW: 5 Zeichen von rechts auslesen
29.10.2007 12:06:00
rechts
Hallo, erst einmal vielen Dank für die schnelle Hilfe.
Werde das jetzt ausprobieren und gebe dann Rückmeldung.
Hartmut

AW: 5 Zeichen von rechts auslesen
29.10.2007 12:32:00
rechts
Hallo, habe jetzt folgenden Weg genommen:

Sub leer_vor_mp3_weg()
Dim rng As Range
For Each rng In Sheets(1).Range("B1:B2000")
If Left(Right(rng, 5), 1) = " " Then
rng = Left(rng, Len(rng) - 5) & Right(rng, 4)
End If
Next
End Sub


Nochmals vielen Dank für eure Anregungen.
Hartmut

39 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige