---

Guten morgen,

gibt es eine Möglichkeit, dass wenn ich in eine Zelle
z.B. 2689 eingebe, diese folgendermaßen 2.te, 6.te, 8.te, 9.te
formatiert wird?

Gruß
Andreas

------------------
  Ich nutze Boardsuche | Google | Netiquette

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,

Zellen formatieren - Reiter Zahlen - Benuzterdefiniert:

#".te, "#".te, "#".te, "#".te"

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

 

Zitat:

---

Original erstellt von Paulchen:
...Zellen formatieren - Reiter [i]Zahlen - Benuzterdefiniert:
#".te, "#".te, "#".te, "#".te"[/i]

---

So ist es zwar richtig und das hatte ich auch schon herausbekommen, nur ist es hier
leider nicht ganz so einfach, da die Anzhal der Stellen nicht immer 4 ist.
Einige Bespiele:
246 oder 2 oder 123456

Ich hoffe mein Problem ist nun etwas beser zu verstehen.

Eine Lösung mit VBA ginge auch!

------------------
    Ich nutze Boardsuche | Google | Netiquette

[Diese Nachricht wurde von AndreasBo am 02. Jun. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Sub Werte_te()
'wandelt die aktive Zelle um
Dim i As Variant
Dim j(1 To 11) As Long 'fuer bis zu ZEHN Stellen
Dim k As Integer
Dim str As String

  i = 1
  k = Len(Selection)
 
  For j(i) = 1 To k
    If i > k Then Exit For
    str = str & Mid(Selection, i, 1) & ".te, "
'    Debug.Print str
    i = 1 + i
  Next j
 
  Selection = str

End Sub

---

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Andreas,

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inStart As Integer
    Dim strErgebnis As String
    If Target = "" Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1:B20")) Is Nothing Then ' Bereich anpassen
        If Target.Count > 1 Then Exit Sub
        For inStart = 1 To Len(Target)
            strErgebnis = strErgebnis & Mid(Target, inStart, 1) & ".te, "
        Next inStart
        Target = Left(strErgebnis, Len(strErgebnis) - 2)
    End If
    Application.EnableEvents = True
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Beverly:
Hi Andreas,

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inStart As Integer
    Dim strErgebnis As String
    If Target = "" Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1:B20")) Is Nothing Then ' Bereich anpassen
        If Target.Count > 1 Then Exit Sub
        For inStart = 1 To Len(Target)
            strErgebnis = strErgebnis & Mid(Target, inStart, 1) & ".te, "
        Next inStart
        Target = Left(strErgebnis, Len(strErgebnis) - 2)
    End If
    Application.EnableEvents = True
End Sub

---

---

Danke funtioniert genau wie gedacht. 

------------------
  Ich nutze Boardsuche | Google | Netiquette

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP