Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige