|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.06.2019 16:13:02 |
Chris |
|
|
|
11.06.2019 17:15:58 |
Gast43333 |
|
|
|
12.06.2019 07:39:39 |
Chris |
|
|
 Inhalt einer Textbox auf mehrere Zellen aufteilen |
12.06.2019 19:15:54 |
Gast58941 |
|
|
|
13.06.2019 09:40:52 |
Chris |
|
|
|
13.06.2019 11:39:07 |
Gast17007 |
|
|
|
18.06.2019 09:20:45 |
Gast79299 |
|
|
|
13.06.2019 09:50:52 |
Gast001 |
|
|
|
13.06.2019 09:53:10 |
Gast001 |
|
|
|
13.06.2019 11:40:01 |
Gast89281 |
|
|
|
17.06.2019 13:27:26 |
Chris |
|
|
|
17.06.2019 17:04:19 |
Gast90406 |
|
|
|
17.06.2019 17:19:23 |
Gast90406 |
|
|
|
18.06.2019 09:23:00 |
Chris |
|
|
Von:
Gast58941 |
Datum:
12.06.2019 19:15:54 |
Views:
481 |
Rating:
|
Antwort:
|
Thema:
Inhalt einer Textbox auf mehrere Zellen aufteilen |
|
Hallo,
ja die Just-In-Time-Prüf. hab ich bewußt vermieden, da müsstest Du noch die Löschen-Fälle abfangen, aber kannst ja mal testen:
Option Explicit
Private mlngLength As Long
Private Sub TextBox1_Change()
Dim lngIndex As Long
With TextBox1
If IsNumeric(.Value) Then
If Len(.Value) < mlngLength Then Call Columns(1).ClearContents
For lngIndex = 1 To Len(.Value)
Cells(lngIndex, 1).Value = Mid$(String:=.Value, Start:=lngIndex, Length:=1)
Next
ElseIf Len(.Value) < mlngLength Then
Call Columns(1).ClearContents
Else
Call MsgBox("Ihre Eingabe ist keine gültige Zahl...!", vbExclamation)
End If
End With
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
mlngLength = Len(TextBox1.Value)
End Sub
Gruß,
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.06.2019 16:13:02 |
Chris |
|
|
|
11.06.2019 17:15:58 |
Gast43333 |
|
|
|
12.06.2019 07:39:39 |
Chris |
|
|
Inhalt einer Textbox auf mehrere Zellen aufteilen |
12.06.2019 19:15:54 |
Gast58941 |
|
|
|
13.06.2019 09:40:52 |
Chris |
|
|
|
13.06.2019 11:39:07 |
Gast17007 |
|
|
|
18.06.2019 09:20:45 |
Gast79299 |
|
|
|
13.06.2019 09:50:52 |
Gast001 |
|
|
|
13.06.2019 09:53:10 |
Gast001 |
|
|
|
13.06.2019 11:40:01 |
Gast89281 |
|
|
|
17.06.2019 13:27:26 |
Chris |
|
|
|
17.06.2019 17:04:19 |
Gast90406 |
|
|
|
17.06.2019 17:19:23 |
Gast90406 |
|
|
|
18.06.2019 09:23:00 |
Chris |
|
|