Text bei Datum ändern

[BoskoBiati]

Hi,

hiermit kannst Du alle diese Schritte in der Tabelle 1 ausführen, auch ohne die Daten zu kopieren (jetzt nur für den Bereich BI, kannst Du anpassen):

Code:

Sub MonateSuchenUndErsetzen()
'ändert im aktiven Tabellenblatt jeweils die Einträge
'JAN, FEB, MAR, usw in 01 02 03 usw.
Dim lastRow As Long
Dim rng As Range
Dim cell As Range
Dim k As Long
lastRow = Cells(Rows.Count, "BI").End(xlUp).Row

Set rng = Sheets("Tabelle1").Range("BI7:BI" & lastRow)
For Each cell In rng
If IsNumeric(Left(cell, 1)) Then
cell = Replace(cell, " ", ".")
cell = Replace(cell, "JAN", "01")
cell = Replace(cell, "FEB", "02")
cell = Replace(cell, "MAR", "03")
cell = Replace(cell, "APR", "04")
cell = Replace(cell, "MAY", "05")
cell = Replace(cell, "JUN", "06")
cell = Replace(cell, "JUL", "07")
cell = Replace(cell, "AUG", "08")
cell = Replace(cell, "SEP", "09")
cell = Replace(cell, "OCT", "10")
cell = Replace(cell, "NOV", "11")
cell = Replace(cell, "DEC", "12")
End If

Next
End Sub

[luna101]

Guten Abend Edgar,
danke für die Info und das Makro. Habe bei "Datum_ändern" noch etwas eingefügt.
                  cell = Replace(cell, "BEF", "vor ")
                  cell = Replace(cell, "AFT", "nach ")
                  cell = Replace(cell, "ABT", "um ")
und bei        cell = Replace(cell, "JAN", ".01.")  beim Monat/Tag die leerzeichen entfernt
as Umwandeln der Datum funktioniert soweit gut.

Ein kleiner Schönheitsfehler habe ich noch gefunden.
InTabelle1 sollte der Tag auch 2 stellig sein und ohne leerzeichen. ( 1  .05. 1657  zu  01.05.1657)
Wäre toll, wenn das auch noch geändert werden könnte.
Danke für deine Hilfe und Gruss Martin

[Ivan 16]

Hallo

Alternative ohne VBA mit PQ.

[luna101]

Hallo Ivan 16,
  für deine Lösung mit PQ. Da ich mich noch nie damit beschäfftigt habe,
muss ich mal über die Bücher gehen und zuerst lernen es zu verstehen.
Trotzdem Danke für deine Mühe und ein schönes Wocheende wünscht dir
Martin

[luna101]

Hallo Leute,
hat denn niemand eine Idee, wie man das Problem lösen könnte,
oder hat eventuell jemand eine andere Lösung dafür? 
Ich würde ich freuen, wenn mir jemand helfen würde.
Mit freundlichen Grüssen 
Martin
PS: Mit PQ bin ich leidern noch ein Nobody

[BoskoBiati]

Hi,

ich dachte, das Problem ist gelöst?
Wenn nicht, dann stelle Deine Datei nochmal in der neuesten Version vor, damit man sehen kann, was Du verpfuscht hast.

[luna101]

Guten Abend Edgar,

für deine bisherige Hilfe.

Das Umwandeln funktioniert soweit.Nur die Dastellung hätte noch Optimierungsbedarf.

Das Datum sollte keine Leerzeichen enthalten und die Tage sollten 2 stellig sein.



   Bei 22 .05. 1657   sollte     22.05.1657  stehen und

   bei '1  .01. 1657   sollte     01.01.1657  stehen, (betrifft alle Tage von 1 - 9).



Wäre herrlich, wenn dies noch realisiert werden könnte.

Gruss Martin

[Rudi'S]

Hallo Martin,

du hast die komplette Lösung deines Problems vor dir. Du musst nur die richtigen Schlüsse daraus ziehen, dich damit beschäftigen und nicht einfach alles nur abschreiben.
Alles, was du wolltest, hast du erhalten. Ich bin auch nur ein Anfänger, aber ohne sich damit zu beschäftigen, bringt es dich nicht weiter.
Die Ergänzungen hast du doch schon selbst eingepflegt - und nichts anderes wäre das mit der "01" (obwohl das im Makro von André auch richtig dargestellt ist).

Gruß Rudi

[BoskoBiati]

Hi,

hier mal eine kurze Version:


  Kopie von Kopie von Datum ändern.xlsm (Größe: 1,53 MB / Downloads: 11)

[luna101]

Danke Rudi für das neue Makro.
Habe versucht das Datum korrekt darzustellen, was mir nicht gelungen ist.
Was ich immer noch nicht verstehe ist, dass trotz der Einstellung

If IsNumeric(Left(cell, 1)) Then
cell = Replace(cell, " ", "")
cell.NumberFormat = "DD.MM.yyyy"
End If

der Tag  1 - 9 immer noch einstellig angezeigt wird.
Ich weiss, dass ich langsam Nerve, bitte entschuldige.
Was das Verstehen und die richtigen Schlüsse daraus ziehen betrifft,
hast du recht. Ich habe noch einiges zu lernen und zu verstehen.
Freundliche Grüsse
Martin