Bestimmte Zahlenreihenfolge ändern - VBA

[Janemu]

Hallo ihr Lieben,

ich benötige wieder einmal eure Hilfe.

Ich möchte in meiner Excel-Datei eine Zahlenreihenfolge ändern.
Die Zahlen stehen in der Spalte C und immer in der 7. Zelle. Dazwischen ist Text, Datum und Uhrzeit.

Wie kann ich diese Zellen ändern von: 18/01/001/0001/0206 auf 01/01/0001/0206. Sozusagen die 18/ weg und die 2.te 0 bei "001"
Die Zahlen können immer unterschiedlich sein.

Ich habe folgendes Makro gefunden, kriege es aber nicht es abzuändern...
Ich habe auch mal eine Beispieldatei angehangen.

Sub Ersetzen()
Dim Zelle As Range

For Each Zelle In Tabelle1.UsedRange

Zelle.Value = Replace(Zelle.Value, "18/01/0", "")

Next Zelle
End Sub

[WillWissen]

Hi,

unabhängig davon, dass ich mit einer VBA-Lösung nicht dienen kann (möglicherweise geht es auch mit Formeln), ist mir aber aufgefallen, dass deine Angaben etwas widersprüchlich sind. Diesen Ausdruck

18/01/001/0001/0206

willst du geändert haben; in deiner Beispieldatei finde ich aber weder eine 18 noch eine 001.

Als Ergebnis willst du dies haben:

01/01/0011/0206

Woher kommt die 11?

[Janemu]

Ich dussel habe die falsche Datei hochgeladen und die 11 war ein schreibfehler... nicht mein Tag heute ::Danke für die Info

[WillWissen]

Hi,

kann passieren; du solltest dann aber schon die richtige Datei hochladen - im Moment sehe ich noch keine. :32:

Übrigens, bitte benutze zum Antworten den "Antworten"-Button auf der rechten Seite. Vollzitate sind zu 99% unnötig.

[BoskoBiati]

Hi,

suchen/Ersetzen:

/001 durch /01
18 durch 01

[Janemu]

Dankeschön, aber ich benötige dies als VBA. Wir haben leider ganz viele Dateien

[GMG-CC]

Aha ...
Dann nenne uns doch einen guten Grund, warum völlig fremde Menschen für ein größeres Unternehmen Arbeit übernehmen sollen, ohne dafür einen Ausgleich zu bekommen. Wenn du so wenig Kenntnisse in VBA hast, dass du die Split-Funktion (das hier ist ein heißer Tipp!) nicht so verwenden kannst, dass du mit den vielen Dateien zum Ziel kommst, dann wurde die Aufgabe entweder der falschen Person gegeben (wege Fehleinschätzung der Problem-Umfangs) oder du gibst es einem Kollegen, der IT, einem externen Dienstleister. 

Ich bin gerne hilfsbereit, aber bitte nur Hilfe zur Selbsthilfe, keine Quasi-Komplettlösungen für Unternehmen, welches mir völlig fremd ist und wo ich absolut nichts von habe (i.d.R noch nicht einmal ein Dankeschön von denen, die wirklich davon profitieren).

[schauan]

Hallo,

Du kannst Suchen und Ersetzen auch mit dem Makrorekorder aufzeichnen ...

[LCohen]

Kannst ja dies mal aufzeichnen:

=TEXT(TEIL(WECHSELN(WECHSELN(WECHSELN(A1;"/";"#";2);"#0";);"/";);3;99);"00\/00\/0000\/0000")

[schauan]

Hallöchen,

das wird dann aber eine Formellösung und die kannst Du nicht in die Zelle mit dem bisherigen Inhalt setzen