autom. Trennung des Zellwertes b. allen Eingaben

Schönen Abend zusammen,

hab mal vor geraumer ZEit folgendes Makro ebenfalls aus dem Forum bekommen, um
einen in einer Zelle eingegebenen Wert aus Zahlen & Buchstaben , der 10 stellig
ist.

zB.: 0123123123 zu 0_123_123_123 ( die Striche sind Leerzeichen ), oder
zB.: 1451258RE9 zu 1_451_258_RE9 ( "" ).

Sprich die Trennung soll immer an 2. , 4. , & 7. Stelle erfolgen, und der Zellwert ist immer 10 stellig.

Mit diesem Makro hat es zumindest in Excel XP schon ganz gut funktioniert, jedoch EXCEL 97 im Gesch. meckert dabei.
" Mid " wird dabei ständig bemängelt. Habe schon probiert Mid zu dekl. aber leider ohne Erfolg.

Zum Thema:

Gibts ne Lösung auf einer einfachen Zellformatierung die ich noch nicht kenne,
# ### ### ### oder so ähnlich ???

Oder hat mir bitte Jemand eine andere VBA Anweisung für beispielsweise Spalte B.

wäre Euch wiedermal sehr verbunden, vielen liebn Dank im Voraus, Gruß udo

----------------------------------------------------------------------------

If Target.Column = 2 Then

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 If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Cells.Count > 1 Then Exit Sub If .Column = 2 And Len(.Value) = 10 Then _ .Value = Left(.Value, 1) & " " _ & Mid(.Value, 2, 3) & " " _ & Mid(.Value, 5, 3) & " " _ & Mid(.Value, 8, 3) End With End Sub

Hallo Udo,

aus der VBA-Hilfe zu Mid:

Gibt einen Wert vom Typ Variant (String) zurück, der eine bestimmte Anzahl von Zeichen aus einer Zeichenfolge enthält.
Syntax
Mid(string, start[, length])
Die Syntax der Mid-Funktion verwendet die folgenden benannten Argumente:

Teil Beschreibung
string Erforderlich. Zeichenfolgenausdruck, aus dem Zeichen zurückgegeben werden. Wenn string den Wert Null enthält, wird Null zurückgegeben.
start Erforderlich; Wert vom Typ Long. Position in string, an der die zurückzugebende Zeichenfolge beginnt. Ist start größer als die Anzahl der Zeichen in string, so gibt Mid eine leere Zeichenfolge ("") zurück.
length Optional; Wert vom Typ Variant (Long). Anzahl der zurückzugebenden Zeichen. Wird length nicht angegeben oder befinden sich weniger Zeichen im Text (das Zeichen an der Stelle start eingeschlossen), als durch length angegeben, so werden alle Zeichen ab start bis zum Ende der Zeichenfolge zurückgegeben.
Bemerkungen
Mit der Len-Funktion können Sie die Anzahl der Zeichen in string bestimmen.

Mid wird bei RAnton und FP unter Version 8 richtig erkannt. Probier morgen am anderen Rechner nochmal die Version von FP.
Falls das immer noch nicht klappt könnte ich mir die "Krücke" vorstellen, die Eingabe in einen String zu packen, mit Right zu kürzen und dann mit Left davon die erforderlichen Zeichen zu nehmen.

Gruß
Peter

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Cells.Count = 1 And Len(Target) = 10 Then Target = Left(Target, 1) & " " & _ Left(Right(Target, 9), 3) & " " & _ Left(Right(Target, 6), 3) & " " & _ Left(Right(Target, 3), 3) End If End Sub

Beliebteste Forumthreads (12 Monate)

autom. Trennung des Zellwertes b. allen Eingaben

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread