Csv Tabelle bearbeiten

[thorsti20]

Hallo zusammen. Ich habe eine Frage bezüglich der Änderung eine csv Datei.

Folgende Zeilen möchte ich ändern, also möglichst automatisiert ändern....leider bekomme ich es nicht hin.

Alte Regalbeschriftung:
01-01-01
01-01-02
01-01-03
01-01-04
01-02-01
01-02-02
01-02-03
01-02-04
01-03-01
...

Neue Regalbeschriftung:
01-01-00
01-01-01
01-01-02
01-01-03
01-02-00
01-02-01
01-02-02
01-02-03
.....

Hat jemand eine Idee? Beste Dank vorab!

[GMG-CC]

Moin,
zum bearbeiten von Text-Dateien verwende ich vorzugsweise Notepad++
Ob es in Excel 2014 andere Möglichkeiten gibt, weiß ich nicht.

[Fennek]

Hallo,

dieser Code sollte die "neuen" Labels erstellen:

Code:

Sub Main
range("A1:A20").numberformat ="@"
for i = 1 to 4
    for j = 0 to 3
        r=r+1
        cells(r,1)  = "01-" & format(i, "00") & "-" & format(j,"00")
    next j
next i
End Sub

mfg

[thorsti20]

Besten Dank für Deine Bemühungen, aber ich hab vieles probiert und gegoogelt, aber ich weiß nicht, wie ich den Code in Excel einfüge, sodass es klappt?
Kannst Du mir nen Tipp geben?

[Fennek]

Hallo,

der Code gehört in ein allgemeines Modul im VBA-Editor.

Dann werden die "neuen" Aktenzeichen in Spalte A geschrieben.

mfg

(Frust)

[thorsti20]

Vielen Dank für die Hilfe! Das VBA konnte ich nun ausführen, allerdings hab ich mich falsch ausgedrückt. Ich habe bestehende Daten, wie z.B.

02-03-02
03-03-02
04-03-02
04-03-02
06-03-02
06-03-02
07-03-02
08-03-02
08-03-02
03-04-02
04-04-02
05-04-02
06-04-02
09-15-01
09-15-01
usw.

Von diesen letzten Ziffern soll "eins" abgezogen werden, sodass aus 09-15-01 dann 09-15-00 wird und aus 06-04-02 dann 06-04-01.

Ist das auch möglich? Oder ist handarbeit angesagt?

[snb]

Wass könnte die höchtste Wert sein ?

xx-yy-99   ?

Wenn's eine txt Datei ist:

Code:

Sub M_snb()
   with createobject("scripting.filesystemobject")
      c00=.openttextfile("G:\OF\beispiel.txt").readall

      for j=99 to 1 step -1
         c00=replace(c00,format(j,"00")& vbcrlf,format(j-1),"00") & vbcrlf)
      next

      .creatextfile("G:\OF\beispiel.txt").write c00
  end with
End Sub

[thorsti20]

Hallo...der höchste Wert ist 04, also die letzten beiden Ziffern. Hintergrund....es gibt 4 Paletten übereinander, die untere die 01, dann 02, 03 und 04 als höchste Palette im Regal. Diese möchte ich ändern, sodass die auf dem Fußboden steht die 00 bekommt.

Das mit der txt Datei probiere ich! Danke!!! ECHT SUPER!

[snb]

.txt oder .csv ist egal in dieser Code:

Code:

Sub M_snb()
   with createobject("scripting.filesystemobject")
      c00=.openttextfile("G:\OF\beispiel.txt").readall

      for j=4 to 1 step -1
         c00=replace(c00,format(j,"00") & vbcrlf,format(j-1,"00") & vbcrlf)
      next

      .creatextfile("G:\OF\beispiel.txt").write c00
  end with
End Sub

[thorsti20]

Hallo,
muss man dies auch mit Excel als Makro starten? Oder mach ich da was falsch?

Aus Excel heraus (nach Makro starten) bekomme eine Fehlermeldung:

"Syntaxfehler"  Zeile c=00=replace....wird rot markiert.


Könntest du ein Programm daraus machen? Dateiname E:\test.txt
Neue Datei dann E:\test_neu.txt