VBA für Text in Zahl (alle Sheets)

[Hohle]

Grüß euch,

ich hoffe ihr könnt mir wieder mal helfen 
Bin kompletter VBA Neuling und kenne mich deswegen mit Macros noch nicht wirklich aus.

Ich mache wöchentlich mehrere Exports.
In diesen Exports werden leider immer wieder z.B. 90,0% als Text formatiert und man kann diese Zelle nicht auswerten.
Deswegen würde ich gerne ein Macro haben, bei dem alle Sheets dieses Workbooks in eine Zahl umwandelt.

Aktuell muss ich mir immer so ein Problem pro Sheet suchen, von da weg alle wichtigen Zellen markieren und dann "in eine Zahl umwandeln" drücken.

Hoffe, ich habe mein Problem halbwegs verständlich beschrieben und ihr könnt mir weiter helfen.

[Klaus-Dieter]

Hallo,

Hoffe, ich habe mein Problem halbwegs verständlich beschrieben und ihr könnt mir weiter helfen.

nein, hast du nicht. Am besten zeigst du mal deine Datei.

[schauan]

Hallo,

eventuell suchst Du mal die Ursache, warum Zahlen keine Zahlen sind.

Eine andere Variante wäre, irgendwo eine 1 zu schreiben, diese zu kopieren, alle Zahlen zu markieren und mittels Inhalte einfügen - Multiplizieren wandelst Du die "falschen" Zahlen in richtige um.

[Hohle]

Danke für die Rückmeldungen.
An diesem Report kann ich nichts ändern, dieser wird mir nur zur Verfügung gestellt.

Anbei ein Ausschnitt von einem Report.
Im normalen Report sind mehrere Sheets die ähnlich aufgebaut sind.

Aktuell muss ich pro Sheet eine Zelle finden, kann dann alle markieren und mit dem Rufzeichen "in eine Zahl umwandeln".
Hoffe, dass es jetzt mit dem Beispiel verständlicher ist   :19:

[schauan]

Hallo,

das würde im Prinzip so gehen:

Sub Wandeln()
Range("J4").Value = Range("J4").Value
Range("H14").Value = Range("H14").Value
End Sub

Du müsstest den Code dann noch mit den restlichen Zellen auffüllen...

Wenn Du es auf verschiedenen Blättern ausführen willst, müsstest Du die noch mit angeben, z.B.

Sub Wandeln()
With Sheets("Tabelle1")
.Range("J4").Value = .Range("J4").Value
.Range("H14").Value = .Range("H14").Value
End With
End Sub

Beachte hier die Punkte vor Range.