Zellen als Zahl konvertieren - Problem

Hallo
ich schreibe gerade meine Bachelorarbeit und habe im Zuge dieser viele Messdaten gesammelt, die ich nun auswerten möchte. (ca. 500 Dokumente mit ~10GB)
Dafür möchte ich mir gerne ein VBA Script schreiben.
Programmiererfahrung habe ich, aber keine mit VBA.
Im Moment hänge ich aber an einigen Stellen und weiß nicht recht weiter.
Mein erstes Problem:
Ich will bei den Messdaten unnötige Kommastellen abschneiden/runden und die Zellen direkt als Zahl formatieren.
Das runden funktioniert, das umformatieren leider nicht.
Ich verwende für das umformatieren die Funktion "NumberFormat", allerdings ist das Ergebnis keine Zahl, sonder wird in Excel als "Benutzerdifferent" gekennzeichnet.
Hier der verwendete Codeabschnitt:


' #### Zellenformat ändern und Darstellung anpassen - START ####
Workbooks(sDatei).Sheets(2).Columns("A").NumberFormat = "#,######0.000000"
Workbooks(sDatei).Sheets(2).Columns("B:G").NumberFormat = "#,###0.000"
Workbooks(sDatei).Sheets(2).Columns("H:I").NumberFormat = "#,0."
Workbooks(sDatei).Sheets(2).Columns("A").EntireColumn.ColumnWidth = 10
Workbooks(sDatei).Sheets(2).Range("B:G").EntireColumn.ColumnWidth = 7
Workbooks(sDatei).Sheets(2).Range("H:I").EntireColumn.ColumnWidth = 5
' #### Zellenformat ändern und Darstellung anpassen - ENDE ####

Kann mir jemand sagen woran das liegen könnte?
Was kann ich eventuell änder?
Für was steht eigentlich die "#", es ging auch ohne.
Vielen Dank
Gruß
Norman

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Günther,
Ich hab mir nun mal Power Query angeschaut. Bin mir aber nicht sicher, ob das wirklich das ist, was ich brauche.
Ich erkläre mal grob und kurz was ich machen möchte.
Von jeder Messung liegt eine Excel Datei vor. Diese hat im Grundzustand genau ein Blatt auf dem die ersten 9 Spalten gefüllt sind.
Spalte 1 mit Zeitwerten (in s)
Spalte 2-7 mit Werten von Wegsensoren (in mm)
Spalte 8 & 9 mit Werten von Kraftsensoren (in N)
Skript 1:
Skript 1 bearbeitet nacheinander alle Dateien eines Ordners.
Es soll den relevanten Bereich der Messung (0,7s von 2s) jeweils auf Blatt 2 kopieren und vorformatieren (runden, Zahlenformat etc.)
Skript 2:
Öffnet die Dateien und kopiert die geordneten Daten von Blatt 2 in ein neues Dokument Auswertung.
In Auswertung stehen dann alle auf Blatt 1 die Zeitdaten aller Messungen, Blatt 2-9 die Messdaten der Sensoren.
Skript 3:
Skript 3 bildet jeweils einen Min. Mittel und Max Wert einer Zeile für das Auswertungsdokument.
Damit bekomme ich den Mittelwert und eine Hüllkurve.
Skript 4:
Soll noch Daten auswählen und daraus Graphen ersten. Kraft-Weg Diagramme.
Skript 1-3 hab ich schon, aber alle haben noch Kinderkrankheiten und funktionieren nicht ganz richtig. Skript 4 fange ich erst an.
Ich hab mal 2 Messungen + leere Auswertdatei + die 3 Skripte in ne Dropbox gepackt:
https://www.dropbox.com/sh/3gp737mttme8xwx/AADAy6lU9M2H5cl8XouCT4COa?dl=0
Problem an dem Power Query Tool ist, das ich wieder alles händisch auswählen muss. Ich hab aber so 30-40 Kombinationen mit jeweils 10-100 Dateien. Deswegen auch das VBA Skript.

Beliebteste Forumthreads (12 Monate)

Zellen als Zahl konvertieren - Problem

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread