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

Auffüllen von Zeichen

Forumthread: Auffüllen von Zeichen

Auffüllen von Zeichen
19.05.2005 10:01:40
Zeichen
Hallo Profis,
hier bestimmt eine Kleinigkeit für Euch....
wie kann ich den Zellinhalt von 1.2.3.4 in 001.002.003.004 umwandeln?
Besten Dank!!
und viele Grüße
Antje
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auffüllen von Zeichen
19.05.2005 10:27:43
Zeichen
Hallo Antje,
versuchs mal so:
Bereich markieren / Rechte Maustaste = Zellen formatieren dann auf Zahlen = Benutzerdefiniert und unter Typ folgendes eintragen: 000"."
Gruß
Doreen
AW: Auffüllen von Zeichen
19.05.2005 10:38:09
Zeichen
Danke Doreen,
Ich habe aber die Daten im Format 1.2.3.4/22 oder 1.20.3.40/21 usw stehen. Dazu müßte ich die letzten drei Zeichen abschneiden und am liebsten per Makro die Zeichen ersetzen lassen, da dies in vielen Dateien zutun ist.
Kannst Du noch weiterhelfen?
Das wäre nett!
Gruß
Antje
Anzeige
AW: Auffüllen von Zeichen
19.05.2005 10:44:35
Zeichen
Hallo Antje
so :
 
 AB
11.2.3.4001.002.003.004
Formeln der Tabelle
B1 : ="00"&WECHSELN(A1;".";".00")
 

Gruß UweD
Anzeige
AW: Auffüllen von Zeichen
19.05.2005 11:41:36
Zeichen
Hallo UweD,
besten Dank,
ich habe jetzt die Formel:
ActiveCell.FormulaR1C1 = "=""0""&SUBSTITUTE(RC[-1],""."","".00"")"
wie kann ich aber nun variieren zwischen 1.2.3.4 und 1.20.3.40 usw das Ergebnis aber immer das Format 001.002.003.004 bzw 001.020.003.040 usw haben soll.
Ich möchte dieses Makro über verschiedene Tabellen laufen lassen.
Danke!
Gruß
Antje
Anzeige
AW: Auffüllen von Zeichen
19.05.2005 13:12:40
Zeichen
Auch Hallo,
versuch's mal so.
cu, Bernd
--
Option Explicit

Sub reFormat()
Dim cell As Range
Dim i As Integer
Dim h As String
Dim re As Object, m As Object
Set re = CreateObject("vbscript.regexp")
re.Pattern = "^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})"
For Each cell In Selection
If re.test(cell.Value) Then
Set m = re.Execute(cell.Value)
h = ""
For i = 0 To m(0).SubMatches.Count - 1
h = h & Format(m(0).SubMatches(i), "000") & "."
Next
cell.Offset(0, 1).Value = Left(h, Len(h) - 1)
End If
Next
Set re = Nothing
End Sub

Anzeige
AW: Auffüllen von Zeichen
19.05.2005 13:23:16
Zeichen
Jaaa besten Dank
Grüße ans Forum
AW: Auffüllen von Zeichen
19.05.2005 14:57:59
Zeichen
Hallo nochmal
hab mal ein Makro erstellt


      
Sub Nullen()
    'Bereich vorher markieren
    Dim Z, I%, Anz%, X As Variant, Neu$
    For Each Z In Selection
        Neu = ""
        If Z.Value <> "" Then
            Anz = Len(Z) - Len(Application.Substitute(Z, ".", "")) 'Anzahl der Punkte
            X = Split(Z, ".") 'Inhalt wird in Vektor zerlegt
            For I = 0 To Anz
                Neu = Neu + Format(X(I), "000") & "."
            Next I
            Z.Offset(0, 1).Value = Left(Neu, Len(Neu) - 1) 'letzter Punkt kommt wieder weg
        End If
    Next Z
End Sub 


Gruß UweD
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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