Zahlenformate ins Spreadsheet holen
Jörg-HH
ein UF-Spreadsheet soll sich Daten holen und dazu auch die benutzerdef. Formate.
'Einlesen der Werte aus dem Formular. Dort gibt es ausgeblendete Spalten,
'daher sind die i+x-Angaben hier nicht linear
For i = 1 To 1 'Bezeichnung
For n = 1 To 10
.Cells(n, i) = Worksheets("Formular").Cells(n + 1, i + 15)
Next n
Next i
For i = 2 To 2 'Inhalt
For n = 1 To 10
.Cells(n, i) = Worksheets("Formular").Cells(n + 1, i + 17)
Next n
Next i
For i = 3 To 3 'Umschlag
For n = 1 To 10
.Cells(n, i) = Worksheets("Formular").Cells(n + 1, i + 17)
Next n
Next i
...usw...
Mit welchen Zaubersprüchen kann ich VBA denn veranlassen, außer den Zahlen auch noch die Zahlenformate in das Spreadsheet zu übernehmen?
Oder wäre es besser, die Formate (sind immer dieselben) gleich im SprSht zu verankern? Falls ja - wie geht das?
Schönen Nachmittag!
Jörg
Anzeige