Office: Als Text gespeicherte Zahl umwandeln, bezogen auf das gesammte Arbeitsblatt

Hallo VBA´ler

hab da mal ne kurze Frage.

Ich habe ein Tabellenblatt "Test" mit z.Z. 25 Spalten.
In 13 nicht aufeinander folgenden Spalten sind Zahlen als Text hinterlegt.
Mit folgendem CODE habe ich es geschafft, eine Spalte umzuwandeln.
Code:

Gibt es eine Möglichkeit, die Umwandlung auf ein ganzes Tabellenblatt zu beziehen?
Frei gesprochen:
Wenn Wert gleich alsTextgespeicherteZahl dann umwandeln, sonst nichts.

Vorab schon mal ein Danke für all die netten Helfer!

Gruß Mücke

:)

 

Hallo Mücke,

versuch's mal hiermit (die Zelle ganz unten rechts im Tabellenblatt muss dafür ungenutzt sein):

Code:

 

Hallo Ingolf,

dein CODE hat funktioniert, bis auf kleine Einschränkungen!

Die Spalten mit einem Datumswert (z.B. 08.02.2010) wurden in eine Zahl umgewandelt (40217)!
Alle richtigen Zahlenformate wurden gelöscht!
Aus 100,00 wurde 100, 35,00 wurde 35 alle Nachkommastellen wurden abgeschnitten
aus 152,25 wurde 152,3 hier hat Excel freundlich gerundet.

Was soll wir nun tun?

Gruß Mücke

 

Hallo Mücke

Versuche es doch mal so:

Option Explicit

Private Sub Te()
On Error Resume Next
Sheets("Tabelle1").Cells.SpecialCells(xlCellTypeConstants).Value = _
Sheets("Tabelle1").Cells.SpecialCells(xlCellTypeConstants).Value
End Sub


ransi

 

Hallo Mücke,

dann versuchen wir's mal mit einer Erweiterung deiner Methode:

Code:

 

Hallo Ransi,

vielen Dank für deinen Beitrag.
Mit dieser Variante habe ich mir meine ganze Tabelle abgschossen.
Überall steht nun ein NV!
Fehlt in dem CODE noch etwas? oder muss dieser irgendwo Integriert werden?

Gruß Mücke

 

Hallo Ingolf,

der CODE sieht sehr gut aus, Vielen Dank!

Habe beim Lauf eine Fehlermeldung bekommen: Typen unverträglich
Über die Einzelschritte habe ich festgestellt, wenn in der Spalte eine leere Zelle ist, hört er auf umzuwandeln.

Kann man diese leeren Zellen in dem CODE umgehen?

Gruß Mücke

 

Hallo Mücke,

das würde dann zum Beispiel so aussehen:

Code:

 

Guten Abend Ingolf,

mit deiner letzten Variante hat es ohne Probleme funktioniert! *Smilie
Besten Dank dafür *hands

Wünsche DIR noch einen schönen Abend!

Gruß Mücke

 

Hallo leute ich bräuchte einmal eure hilfe

ich bekomme einen datenexport in eine excel-Tabelle mit unteranderem folgenden daten

01.11.2016 01.11.2016 1 01.11.2016 . .
02.11.2016 02.11.2016 1 01.11.2016 . .

das geht so ein paar hundert Zeilen so weiter. Der Export ist als Text formatiert. Somit werden die Datumsfelder nicht als solches erkannt es sei denn ich klicke mich mit F2 Enter durch jede einzelne durch oder ein VBA-Code.

ich habe jetzt den Code welcher oben vorgeschlagen wurde wie folgt angepasst

Sub alsTextgespeicherteZahlumwanden()

Dim LetzteZeile As Long
Dim i As Long
Dim s As Long
Dim spalten

spalten = Array(6, 7, 9, 10) 'hier die Spaltennummern angeben
For s = 0 To UBound(spalten) - 1
LetzteZeile = Cells(Rows.Count, spalten(s)).End(xlUp).Row
For i = 2 To LetzteZeile
With Cells(i, spalten(s))
If .Value ". ." Then
.Value = CDbl(.Value)
.NumberFormat = "dd.mm.yyyy"
End If
End With
Next
Next

End Sub

raus kommen tut das

04.08.4944 04.08.4944 1 04.08.4944 . .
01.07.7682 01.07.7682 1 04.08.4944 . .
####### ####### 1 04.08.4944 . .

Ich habe keine Ahnung mehr was ich noch probieren kann oder wo es hängt. ich habe leider schon seit mehreren Jahren nichts mehr in VBA gemacht.
könnt ihr mir Helfen die Datumsfelder als Datum zu Formatieren?

lg und danke

 

Guckst Du hier:

oder hier



P.S. Ein fast 9 Jahre altes Thema hervorzukramen...;-))

 

Hallo Scorefun,

scheinbar hat die Twitter-/Facebook-Generation vergessen, wo man im I-Net Informationen erhalten kann, die fern von Fake-News sind.
Und gerade diese interessanten Videos muß man auch mit einem gewissen Willen verfolgen und nachvollziehen können - selbst daran
scheint es oft zu fehlen und man jammert lieber rum!.

Kopf hoch & Gruß von Luschi
aus klein-Paris

 

*Smilie
Alles Jute nach Klein-Paris aus Ronsdorf