Du kannst auch...
10.02.2017 02:33:59
Case
Hallo Guido, :-)
... Formeln per VBA in einen Bereich eintragen und dann in Werte umwandeln (hier einfach mal mit verschiedenen Formeln): ;-)
Option Explicit
Sub Main()
With ThisWorkbook.Worksheets("Tabelle1").Range("A1:A1000")
' Trage die Formel in A1:A1000 ein
.Formula = "=ROUNDUP(ROW()/6,0)"
' Umwandeln in Werte - keine Formel mehr in den Zellen
.Value = .Value
End With
End Sub
Sub Main_1()
With ThisWorkbook.Worksheets("Tabelle1").Range("A1:A1000")
' Trage die Formel in A1:A1000 ein
.Formula = "=-INT(-ROWS($A$1:$A1)/6)"
' Umwandeln in Werte - keine Formel mehr in den Zellen
.Value = .Value
End With
End Sub
Sub Main_2()
With ThisWorkbook.Worksheets("Tabelle1").Range("A1:A1000")
' Trage die Formel in A1:A1000 ein
.Formula = "=INT((ROW()-ROW($A$1))/6)+1"
' Umwandeln in Werte - keine Formel mehr in den Zellen
.Value = .Value
End With
End Sub
"Formula" erwartet die englische Schreibweise (Namen und Trennzeichen)
"FormulaLocal" dann eben die deutsche Ausgabe (auch hier Namen und Trennzeichen)
Sub Main_3()
With ThisWorkbook.Worksheets("Tabelle1").Range("A1:A1000")
' Trage die Formel in A1:A1000 ein
.FormulaLocal = "=AUFRUNDEN(ZEILE()/6;0)"
' Umwandeln in Werte - keine Formel mehr in den Zellen
.Value = .Value
End With
End Sub
Sub Main_4()
With ThisWorkbook.Worksheets("Tabelle1").Range("A1:A1000")
' Trage die Formel in A1:A1000 ein
.FormulaLocal = "=-GANZZAHL(-ZEILEN($A$1:$A1)/6)"
' Umwandeln in Werte - keine Formel mehr in den Zellen
.Value = .Value
End With
End Sub
Sub Main_5()
With ThisWorkbook.Worksheets("Tabelle1").Range("A1:A1000")
' Trage die Formel in A1:A1000 ein
.FormulaLocal = "=GANZZAHL((ZEILE()-ZEILE($A$1))/6)+1"
' Umwandeln in Werte - keine Formel mehr in den Zellen
.Value = .Value
End With
End Sub
Servus
Case