Makro zur Datenreduzierung
27.02.2019 17:11:32
Volker
ich stehe auf dem Schlauch... - bzw. habe zu lange kein Makro mehr programmiert..:
Ich habe eine Spalte auf Blatt ORI mit Daten und muss diese reduzieren, d.h. aus 2 Zeilen in ORI soll in einem neuen Blatt DATEN nur noch eine Zeile werden (Mittelwert) - auch wieder untereinander in einer Spalte.
Los geht das Ganze aufgrund von Tabellenüberschrift etc in Zeile 6, d.h.
Zeile 6 in DATEN soll aus Zeile 6+7 in ORI berechnet werden,
Zeile 7 in DATEN soll aus Zeile 8+9 in ORI berechnet werden,
Zeile 8 in DATEN soll aus Zeile 6+7 in ORI berechnet werden etc
Dazu habe ich mir ein Makro gebaut, das auch funktioniert, allerdings fängt er nicht mit Zeile 6+7 an, sondern mit 12+13.
Wo holt er sich den Offsett her?
Sub tescht()
Dim a, b, x As Long
Dim lngZeile As Long
Dim lngSpalte As Long
a = 6
b = 7
lngZeile = 6
lngSpalte = 3
For x = 1 To 50
Worksheets("Daten").Cells(lngZeile, lngSpalte).Activate
ActiveCell.FormulaR1C1 = "=SUM(ori!R[" & a & "]C+ori!R[" & b & "]C)/2"
a = a + 2
b = b + 2
lngZeile = lngZeile + 1
Next x
End Sub
Danke+tschöh
volker