11.02.2022, 20:46 (Dieser Beitrag wurde zuletzt bearbeitet: 11.02.2022, 20:47 von 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
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
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
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
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.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
14.02.2022, 19:46 (Dieser Beitrag wurde zuletzt bearbeitet: 14.02.2022, 19:47 von 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).
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