VBA Probleme mit der Funktion Replace

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub UPlus200EundFRaus() Dim arrSp(), Var$, i&, j&, iSpalte&, lz& With Tabelle1 ' Modulname des Tabellenblattes kein Blattname For iSpalte = 4 To 7 lz = .Cells(Rows.Count, iSpalte).End(xlUp).Row ' letzte Zeile derSchleife iSpalte (Spalte D bis G) arrSp = .Range(.Cells(1, iSpalte), .Cells(lz, iSpalte)).Value 'füllt as Array For i = 1 To UBound(arrSp) 'Schleife Zeile für Zeile For j = 1 To Len(arrSp(i, 1)) ' Schleife Zeichen für Zeichen der Arrayzelle ' Übernahmebedingung: Prüfen auf numerischen Wert oder Prüfen auf Punkt oder Prüfen auf Doppelpunkt If IsNumeric(Mid(arrSp(i, 1), j, 1)) Or Mid(arrSp(i, 1), j, 1) = "." Or Mid(arrSp(i, 1), j, 1) = ":" Or Mid(arrSp(i, 1), j, 1) = " " Then Var = Var & Mid(arrSp(i, 1), j, 1) 'Treffer in die Variable schreiben End If Next j arrSp(i, 1) = CDate(Var) 'echtes Datum - kein Text Schreiben des String in die Arrayzelle 'arrSp(i, 1) = Var 'Datum als Text Var = "" Next i Tabelle1.Cells(1, iSpalte).Resize(UBound(arrSp, 1), UBound(arrSp, 2)) = arrSp ' Schreibt die Werte des Arrays on Block entsprechend der Dimensionen des Arrays in die Zellen. Next iSpalte End With End Sub

Hallo Uwe.

Jetzt habe ich den Bezug zu "Tabelle1." verstanden. Problem ist in meinen Augen dabei nur, dass kaum jemand eine Ahnung davon hat, welches seiner Tabellenblätter "Tabelle1." ist. Und unbemerkt wurden die geänderten Daten bei meinen Versuchen mit Deinem Code aus der aktuellen Tabelle geholt, aber in die "Tabelle1." eingefügt.

Ich habe beim Löschen verschiedener Tabellenblätter vermutlich auch die "Tabelle1." gelöscht. Das hat zur Folge, das in der Zeile
lz = .Cells(Rows.Count ......
ein Laufzeitfehler 424 entsteht.

Auch nach dem Speichern und erneuten Öffnen habe ich nun trotzdem keine 'Tabelle1.". Die habe ich erst erhalten, nachdem ich ein neues Blatt erstellt hatte. Verwirrend ist, dass der Standardname für ein neues Blatt ebenfalls "Tabellex" und somit auch ggf. "Tabelle1" ist.

Auch wenn Dein Code - nach kleinen Anpassungen hinsichtlich Tabellenblatt - nun funktioniert, ist der Code von Thorsten doch übersichtlicher, und sorgt gleichzeitig dafür, dass die geänderte Zelle nun das richtige Format annimmt.

Gruß Joschi.

Sub UPlus200EundFRaus() Dim arrSp(), Var$, i&, j& arrSp = Range("D1:D" & Cells(Rows.Count, 4).End(xlUp).Row).Value For i = 1 To UBound(arrSp) For j = 1 To Len(arrSp(i, 1)) If IsNumeric(Mid(arrSp(i, 1), j, 1)) Or Mid(arrSp(i, 1), j, 1) = "." Or Mid(arrSp(i, 1), j, 1) = ":" Or Mid(arrSp(i, 1), j, 1) = " " Then Var = Var & Mid(arrSp(i, 1), j, 1) End If Next j arrSp(i, 1) = Var Var = "" Next i Tabelle1.Cells(1, 4).Resize(UBound(arrSp, 1), UBound(arrSp, 2)) = arrSp End Sub

Hallo alle, die mir geantwortet haben.

Ich verstehe das noch immer nicht.

Den Code von Uwe habe ich dahingehend erweitert, dass ich bei der "If"-Abfrage eine "Else" Bedingung eingefügt habe, und dort auf "Stop" gehe. Bei keinem Durchlauf ist er auf "Stop" gegangen. Es wurden also keine fehlerhaften Daten erkannt.

Ich habe mir den Inhalt meiner Variablen nach der Übertragung aus der Tabelle in Hex ausgedruckt. Da sind mir nur die Fragezeichen (X"3F") aufgefallen. Meine gefüllte Variable sieht damit genauso aus, wie meine Konstante (bei der ich allerdings ein paar "?" vergessen hatte; sorry.

3F 31 37 2E 3F 30 35 2E 3F 32 30 32 33 20 3F 3F *?17.?05.?2023 ??*

Auch ein Export meiner Tabelle hat mich nicht weitergebracht. In den exportierten Daten sind nur die reinen Werte zu sehen.

Letzter Versuch: den Inhalt einer Zelle mit "kopieren" in den Zwischenspeicher geladen und dann in einen Hex-Editor eingefügt. Jetzt erst sehe ich die Bescherung: das was mir als "?" angeboten wird, ist in Wirklichkeit ein X"00".

Warum finde ich dann in meiner Variablen nicht dieses X"00" sondern das Fragezeichen?
Und warum funktioniert der Replace bei dem Wert aus der Konstanten, aber nicht bei dem (gleich aussehenden) Wert aus der Tabelle?

Und =CODE($E$10) in der Tabelle zeigt mit "49" an. Warum. In dieser Zelle steht "17.09.2023 15:16"
Auch "=GLÄTTEN(SÄUBERN(E10))" hat kein brauchbares Ergebnis gebracht.

Gruß Joschi

Beliebteste Forumthreads (12 Monate)

VBA Probleme mit der Funktion Replace

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Probleme mit der Funktion Replace

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread