Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

TextBox5_Change, If Len > 70

TextBox5_Change, If Len > 70
04.03.2004 11:03:05
ray
Hallo, gestern konnte mir hierbei jemamd helfen. Funktioniert super.

Private Sub TextBox5_Change()
If Len(Me.TextBox5) > 80 Then
Me.CommandButton3.SetFocus
End If
End Sub

Frage: Wie ergänze ich das Script, das er ein "ganzes" Wort mit in die nächste Box nimmt. Jetzt ist so ...gan (jetzt 80 erreicht) nächste Box ze...
Wie könnte das gehen?
Gruß von der sonnigen Elbe
Ray

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox5_Change, If Len > 70
06.03.2004 09:28:46
Hans W. Herber
Hallo Ray,
binde die folgende Funktion ein:
Aufrufbeispiel:

Sub CallWholeWord()
MsgBox WholeWordB("Nur ganze Wörter lief")
End Sub

Ab Version XL2000:

Function WholeWordA(sText As String)
WholeWordA = Left(sText, InStrRev(sText, " ") - 1)
End Function

Ältere Versionen:

Function WholeWordB(sText As String)
Dim iChar As Integer
For iChar = Len(sText) To 1 Step -1
If Mid(sText, iChar, 1) = " " Then Exit For
Next iChar
WholeWordB = Left(sText, iChar - 1)
End Function

gruss hans
Anzeige
Vielen lieben Dank oT
08.03.2004 12:49:12
ray
e

179 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige