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

Textbox soll dieses Format annehmen z.B. A 001

Forumthread: Textbox soll dieses Format annehmen z.B. A 001

Textbox soll dieses Format annehmen z.B. A 001
15.05.2006 13:01:43
Andre
Hallo,
kann mir bitte jemand sagen, wie es funktioniert, dass eine Textbox in einer Userform nur bestimmte Materialnummern annimmt.
z.B A 001
Der 1. Index soll nur Buchstaben annehmen, dazwichen ein Freizeichen (automatisch ohne Leertaste drücken) und die restlichen 3 Zeichen sollen Zahlen annehmen.
Mfg
Andre
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox soll dieses Format annehmen z.B. A 001
15.05.2006 13:21:29
Bertram
Hi Andre,
ist vielleicht nicht sonderlich elegant, aber funktioniert:

Private Sub TextBox1_Change()
Select Case Len(Me.TextBox1)
Case Is = "1"
If IsNumeric(Me.TextBox1.Value) Then
Me.TextBox1.Value = ""
MsgBox "1. Zeichen nur Buchstaben"
Else
Me.TextBox1.Value = UCase(Me.TextBox1.Value) & " "
End If
Case Is = "3", "4", "5"
If Not IsNumeric(Mid(Me.TextBox1, 3)) Then
Me.TextBox1.Value = ""
MsgBox "Ab dem Zweiten Zeichen bitte nur Zahlen"
End If
End Select
End Sub

Wenn du dann noch die Anzahl an Zeichen der TextBox auf 5 beschränkst, sollte es passen.
Gruß
Bertram
Anzeige
AW: Textbox soll dieses Format annehmen z.B. A 001
15.05.2006 13:30:05
Andre
Hallo Bertram,
vielen Dank für deine Hilfe. Funktioniert super, aber die Beschränkung au 5 Zeichen wäre prima, aber wie funktioniert es?
Mfg
Andre
AW: Textbox soll dieses Format annehmen z.B. A 001
15.05.2006 13:32:37
Hoffi
Hallo Andre,
im Eigenschaftsfenster der Textbox gibt es einen Punkt MaxLength. Da schreibst Du eine 5 rein.
Grüße
Hoffi
Anzeige
AW: Textbox soll dieses Format annehmen z.B. A 001
15.05.2006 13:38:16
Andre
Hallo Hoffi,
Danke klappt ebenfalls.
Wisst Ihr vielleicht noch, wie die Textbox beim öffnen der Userform gleich markiert ist, also der Coursor gleich darin blinkt.
Mfg
Andre
AW: Textbox soll dieses Format annehmen z.B. A 001
15.05.2006 13:41:50
Bertram
Hi Andre,
schreibe in das Userform_Initialize-Ereignis
Me.TextBox1.SetFocus
Gruß
Bertram
Anzeige
AW: Textbox soll dieses Format annehmen z.B. A 001
15.05.2006 13:42:34
Hoffi
Hallo Andre,
füge diesen Code noch in Deine Userform ein:

Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub

Grüße
Hoffi
AW: Textbox soll dieses Format annehmen z.B. A 001
15.05.2006 13:52:37
Andre
Vielen Dank euch beiden.
Funktioniert alles. Vielleicht könnt ihr euch auch diese Problem mal ansehen.
Ich habe den Inhalt der Textbox jetzt einer Variablen zugewiesen. Diesen Inhalt soll er in der Spalte a in den Zeilen 4-27 suchen.
Falls dieser vorhanden ist, dann Zeige die Spalten danach in der userform an.
z.B.
Teilenummer A 001
dann soll er die danebenstehenden Angeben anzeigen.
Wie z.B. Bestand, Mindestbestand, Hersteller usw.
Das kann man doch glaube ich in einer Litbox darstellen oder?
Anzeige
AW: Textbox soll dieses Format annehmen z.B. A 001
15.05.2006 14:36:25
Bertram
Hi Andre,
das hier kannst du mal als Ansatz nehmen. Bei Fragen fragen:-)

Private Sub TextBox1_AfterUpdate()
Dim Bereich As Range
Dim Zelle As Range
Dim Teilematrix() As String
Me.ListBox1.Clear
ReDim Teilematrix(1, 3)
Set Bereich = ActiveSheet.Range("A4:A27")
On Error GoTo Fehler
Set Zelle = Bereich.Find(What:=Me.TextBox1.Value, lookat:=xlWhole)
Teilematrix(0, 0) = Zelle.Offset(0, 1).Value
Teilematrix(0, 1) = Zelle.Offset(0, 2).Value
Teilematrix(0, 2) = Zelle.Offset(0, 3).Value
ListBox1.List() = Teilematrix
Exit Sub
Fehler:
Exit Sub
End Sub

Gruß
Bertram
Anzeige
;

Forumthreads zu verwandten Themen

Übertragung von bedingten Formatierungen
bedingten

Hallo,
kann mir jemand sagen, wie ich die bedingten Formatierungen eines Arbeitsblattes auf ein anderes Arbeitsblatt übertragen kann? Wenn ich es mit "Format übertragen" versuche, nimmt es mir natürlich auch alle Rahmen usw. mit. Das sollte nicht sein, da die Tabellen alle unterschiedliche...
11.09.2008 17:16:36
Thread-ID: 1009186
2 Beiträge
Formatierung Zelle auf "1 M" statt "1.000"
Chris

Hallo Leute,
Ich habe eine Frage bezüglich einer Zellformatierung.
Ich habe einet Tabelle in der Mengen an Großen Zahlen stehen.
Diese Tabelle würde ich gerne ohne die Werte durch 1000 zu teilen so Formatieren (benutzerdefiniert, das anstatt "1.234.567" nur noch "1.235 M" (gerundet)...
14.11.2008 16:50:09
Thread-ID: 1024652
5 Beiträge
Automatische Übernahme von Formaten
Formaten

Hallo Leute!
Ich suche Eine automatische Übernahme von Formaten aus anderen Tabellenblättern.
Habe zur Vereinfachung eine Datei angehängt.
Vorab schon mal vielen Dank für Hilfe.
Gruß ANJA
https://www.herber.de/bbs/user/57792.xls
21.12.2008 13:55:00
Thread-ID: 1034602
6 Beiträge
Hilfe Format "-" statt Null ("0")
RALF

Tach xl-Gemeinde,
kann mir bitte jemand sagen, wie xl das Format einzustellen ist, dass ich NUR
- Zahlen, ohne Komma mit Punkt als Tausendertrennung (also #.##0)
- wenn der Wert Null ist, dann soll ein "-" angezeigt werdn
Das Standardformat, das über den Symbolleisteneintrag For...
12.01.2009 15:25:00
Thread-ID: 1038894
5 Beiträge
Excel 2003 vergisst das xlt-Format
Achim

Guten Tag,
über Nacht und ohne mein Zutun ereignete sich seltsames: Excel vergaß das xlt-Format. Gestern noch erzeugte der Aufruf von "TEST.XLT" die Datei "TEST_1.xls", "TEST_2.xls" usw., heute nicht mehr. "TEST.xlt" bleibt "TEST.xlt".
Gleiches ist mir auf meinem Notebook vor einem halb...
20.10.2009 10:48:37
Thread-ID: 1110799
7 Beiträge
Formatierung 01-A-02
UweD

Hallo
Ich übernehme eine Tabelle aus Warenwirtschaftssystem in Excel.
Hierin sind Lagerorte angegeben. Diese verarbeite ich in einem Word Sereienbrief.
Zur besseren Lesbarkeit soll der Text folgendermaßen aufbereitet werden.
Zellwert: 01A02 ist immer 5- Stellig<...
30.06.2010 14:04:00
Thread-ID: 1164701
7 Beiträge
Formatierung 01-A-02
UweD

Hallo
Ich übernehme eine Tabelle aus Warenwirtschaftssystem in Excel.
Hierin sind Lagerorte angegeben. Diese verarbeite ich in einem Word Sereienbrief.
Zur besseren Lesbarkeit soll der Text folgendermaßen aufbereitet werden.
Zellwert: 01A02 ist immer 5- Stellig<...
30.06.2010 13:34:00
Thread-ID: 1164704
2 Beiträge
Anzeige
Bedingte Formatierung aus Excel 2003
Dietmar

Hallo zusammen,
habe ich Excel 200e bedingte Formatierungen verwendet. Wenn ich dieses Datei in Excel 2007 öffne funktionieren dort die bed. Formatierungen erst nachdem ich dann das Tabellenblatt verlassen und wieder geöffnet habe. Ein Excel 2003 funktionierten diese Bedingungen sofort nach...
04.12.2010 10:07:55
Thread-ID: 1189831
2 Beiträge
Anzeige
Excel 2010 Datumsformat
bully

Hallo Excelfreunde,
mit Hilfe von VBA habe ich in meiner "alten" Excel-Version (XP) Daten aus einer anderen Mappe importiert. Darunter auch diverse Datumsspalten. In Excel 2010 werden diese im Standardformat als 15.12.10 dargestellt. Ich muss sie aber als 15.12.2010 dargestellt haben, damit...
15.12.2010 15:58:21
Thread-ID: 1191627
5 Beiträge
VBA" WERT" im Format 08:00 ausgeben
Reinhardt

Hallo,
es steht in:
A1=800
A2=1200
als ein Zeitwert von einer Stempelkarte.
Der Cursor steht in A1.
VBA soll nun A2 minus A1 rechnen und der errechnete Wert soll im Format 08:00 in E1 ausgegeben werden.
WERT = ActiveCell.Offset(0, 1) - ActiveCell
ActiveCell.O...
05.01.2011 14:38:18
Thread-ID: 1194029
2 Beiträge
VBA" WERT" im Format 08:00 ausgeben
Reinhardt

Hallo,
es steht in:
A1=800
A2=1200
als ein Zeitwert von einer Stempelkarte.
Der Cursor steht in A1.
VBA soll nun A2 minus A1 rechnen und der errechnete Wert soll im Format 08:00 in E1 ausgegeben werden.
WERT = ActiveCell.Offset(0, 1) - ActiveCell
ActiveCell.O...
05.01.2011 14:24:12
Thread-ID: 1194032
7 Beiträge
xl2007 verliert bed. Format. aus xl2003
Dietmar

Hallo Zusammen,
ich stehe vor einem Rätsel.
01
Ich habe in Excel 2003 (SP3) eine Mappe mit mehreren Tabellenblättern erstellt, die mit zahlreichen bedingten Formatierungen versehen sind.
Beispielsweise unterlege ich auf einem Blatt jede zweite Zeile in grau mit Hilfe der Formel...
23.01.2011 07:00:14
Thread-ID: 1196754
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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