Hallo zusammen,

das Thema hat so glaube ich direkt nichts mit VBA zu tun, allerdings bin ich ratlos bzgl. eines eigentlich total simplen Problems, ich kann es aber NICHT lösen.

Problem: Ich habe eine Tabelle, in der die Zellen offensichtlich NICHT als Zahl formatiert sind obwohl die Zahlen über das Zahlenformat verfügen. (So scheint es) 
Nachdem ich die Funktion =ISTZAHL(...) ausgeführt habe wird mir bestätigt "FALSCH" also keine Zahl. Soweit so gut. 

Wenn ich in die entsprechende Zeile klicke (also in die Zeile selbst) und nach dem letzten Zeichen ENTER drücke wird aus dem Wert dann tatsächlich eine Zahl. Nunja dies kann ich unmöglich für alle Werte manuell machen. 

Die Werte in dieser Tabelle werden über diesen Befehl in die Tabelle eingefügt:

 

 Sheets("Datenweiterverarbeitung").Range("C2:C1000").Copy
    ' 'Fügt die Werte in die Spalte "A" der Analysetabelle ein
    With Sheets("Analysedaten")
        .Range("A2").PasteSpecial Paste:=xlValues

Ok dachte ich mir modifizier ich das ganze mal wie folgt und teste ob es mit diesem Code hinhaut:

    Sheets("Datenweiterverarbeitung").Range("C2:C1000").Copy
    ' 'Fügt die Werte  in die Spalte "A" der Analysetabelle ein
    With Sheets("Analysedaten")
        .Range("A2").PasteSpecial Paste:=xlValues
        .Range("A2").NumberFormat = "0"

Leider auch ohne Ergebnis. DIe Werte werden einfach nicht formatiert. Kann mir jemand helfen sagen wo genau das Problem liegt? Fakt ist, ich brauche die Werte der Spalte A defintiv als ZAHLENformat, damit ich meinen SVERWEIS ausführen kann. 

Manuelle Tests zeigen, dass mein etwas doofer aber einziger Versuch hilft damit der SVERWEIS ausgeführt werden kann. Denn nachdem ich in der Zelle nach dem letzten Zeichen, Enter drücke erhalte ich den Wert als Zahl, der SVERWEIS funktioniert dann. Aber nunja zufriedenstellend ist die Lösung natürlich nicht. Ich muss ja schon irgendwie sicherstellen, dass die Spalte dauerhaft und immer auch wirklich als ZAHL formatiert ist. 

Hat jemand eine Idee / oder einen Tipp? Wäre sehr dankbar.