Herbers Excel/VBA-Archiv
bei Eingabe von Zahlen, autom. Trennung
- bei Eingabe von Zahlen, autom. Trennung von udo vom 01.10.2003 23:49:02
- AW: bei Eingabe von Zahlen, autom. Trennung - von heinz am 02.10.2003 02:23:33
- Vielen lieben Dank Heinz, konnte mich erst ... - von udo am 02.10.2003 20:04:29
- ok ot - von heinz am 03.10.2003 11:15:39
- ok ot - von heinz am 03.10.2003 11:15:39
- Vielen lieben Dank Heinz, konnte mich erst ... - von udo am 02.10.2003 20:04:29
- AW: bei Eingabe von Zahlen, autom. Trennung - von heinz am 02.10.2003 02:23:33
 |
Betrifft: bei Eingabe von Zahlen, autom. Trennung
von: udo
Geschrieben am: 01.10.2003 23:49:02
Hallo Ihr Lieben,
hätt so spät noch kurz ein Anliegen. Ich suche einen VBA Code, der dann ins Tabellenblatt gesetzt wird, und mit Worksheet Change dann funktionieren könnte.
Ziel soll es sein in einer x-beliebigen Spalte ( z.B. " B " ) oder auch nur von B2:B1000 , egal, in diesem Bereich einen 10 - stelligen Zahlenwert einzugeben ( per Nummertastaur ), und zwar hintereinander ohne Spacetaste.
Also die Eingabe wäre z.B. 1234567892 , und die Anweisung trennt mit dann den Wert auf die folgende Weise zu :
1_234_567_892 ( die " _ " sollen Leerzeichen sein ) , also " 1 234 567 892 "
wäre dann das optimale Ergebnis.
_______________________________________________________________________
Ich muss in dieser Tabelle dort in dieser Spalte ewig viele Zahlenwerte eingeben, und würde mir die Eingabe gerne erleichtern.
Es kann auch sein , dass mal anstatt einer Zahl , an einer Position ein Buchstabe stehen soll, z.B. : 1 234 567 H15
Hättet ihr da eine Idee, oder ein ähnliches Makro, welches ich an meine Tabelle dann anpassen könnte.
Vielen lieben Dank, schon mal für eure Unterstützung
Gruß udo
...
 |
Betrifft: AW: bei Eingabe von Zahlen, autom. Trennung von: heinz
Geschrieben am: 02.10.2003 02:23:33
interessantes problem - ist mir nix besseres eingefallen
bei zellen formatieren tatsächlich nix gefunden
Private Sub Worksheet_Change(ByVal Target As Range) Dim eingabe As String eingabe = Target.Text If Len(eingabe) = 10 Then Target = Mid(eingabe, 1, 1) & " " & Mid(eingabe, 2, 3) & " " & Mid(eingabe, 5, 3) & " " & Mid(eingabe, 8, 3) End If End Sub
| |
Betrifft: Vielen lieben Dank Heinz, konnte mich erst ... von: udo
Geschrieben am: 02.10.2003 20:04:29
... jetzt melden, werde es gleich mal probieren, sieht aber auf den ersten Blick schon ganz vielversprechend aus.
Mit Target und Length hatte ich auch schon verzweifelt rum versucht.
Danke dir, erstmal, ich meld mich nochmal zurück
Gruß udo
| |
Betrifft: ok ot von: heinz
Geschrieben am: 03.10.2003 11:15:39
| |