Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
16.04.2024 11:48:22
Blatt in HTML exportieren wenn Checkbox aktiv ist
16.04.2024 11:43:37
Mehrere Druckbereiche dynamisch festlegen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

LCase(Right(TextBox1.Value, 3)) - Zeichenausgabe

LCase(Right(TextBox1.Value, 3)) - Zeichenausgabe
10.03.2004 14:47:15
ray
Hallo,
möchte von TextBox1 von rechts nach links ausgeben bis zum Zeichen "\"
Textbox ist z. B. F:\MV:\summe.doc
Ausgabe soll sein:
summe.doc
How???


Sub TextBox_teilen()
Dim sRechts  As String
sRechts = LCase(Right(TextBox1.Value, 3))
msgbox "" & sRechts
End Sub

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
vielleicht so?
10.03.2004 15:03:30
IngoG
Hallo Ray,
so sollte es gehen:

Sub TextBox_teilen()
Dim sRechts  As String
Dim i%
For i = Len(TextBox1.Value) To 1 Step -1
If Mid(TextBox1.Value, i, 1) = "\" Then
Exit For
End If
Next i
sRechts = LCase(Right(TextBox1.Value, Len(TextBox1.Value) - i))
MsgBox "" & sRechts
End Sub

Gruß Ingo
PS eine Rückmeldung wäre nett...
AW: LCase(Right(TextBox1.Value, 3)) - Zeichenausgabe
10.03.2004 15:03:43
K.Rola
Hallo,
Option Explicit

Sub Teilstring()
Dim str As String, i As Integer
str = Textbox1
For i = Len(str) To 1 Step -1
If (Mid(str, i, 1) = "\") Then Exit For
Next
str = Right(str, Len(str) - i)
MsgBox str
End Sub

Gruß K.Rola
Anzeige
Dank Euch - oT
15.03.2004 16:34:21
ray
s
Dank Euch - oT
15.03.2004 16:34:30
ray
s
Dank Euch - oT
15.03.2004 16:40:02
ray
s
AW: LCase(Right(TextBox1.Value, 3)) - Zeichenausgabe
10.03.2004 15:17:33
Eberhard G.
Hallo Ray,
Probier's 'mal damit:

Sub TextBox_teilen()
Dim intLen As Integer
Dim intStart As Integer
Dim sRechts As String
For intLen = 1 To Len(TextBox1.Value)
If Mid(TextBox1.Value,intLen,1) = "\" Then intStart = intLen
Next intLen
sRechts = LCase(Mid(TextBox1.Value,intStart + 1, intLen - intStart))
oder:
sRechts = LCase(Right(TextBox1.Value, intStart + 2))
MsgBox sRechts
End Sub

Dank Euch - oT
15.03.2004 16:32:20
ray
a
Dank Euch - oT
15.03.2004 16:33:09
ray
a
Dank Euch - oT
15.03.2004 16:33:29
ray
a

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige