Hallo zusammen
ich bin VBA neuling und habe mir aus verschiedenen Foren meinen Cout zusammen geschrieben, jetzt komme ich aber leider nicht mehr weiter und bitte um hilfe:
Ziel (zur vereinfachung nicht als Makro dagestellt):
1. Spalte____2. Spalte__________________
Abschnitt 1__=(Tabelle2!$B5/1000)^2/4*3,142
Abschnitt 2__=(Tabelle2!$B6/1000)^2/4*3,142
...
3. Spalte
=SUMMEWENN(Tabelle3!$D$3:$D$27;Eingabe!$D11;Tabelle3!$E$3:$E$27)
=SUMMEWENN(Tabelle3!$D$3:$D$27;Eingabe!$D12;Tabelle3!$E$3:$E$27)
...
So weit bin ich gekommen:
For m = 1 To abschnitte
Cells(r, 1) = "Abschnitt" + Str(m): Cells(r, 1).BorderAround ColorIndex:=1, Weight:=xlMedium
Cells(r, 2) = "Formel": Cells(r, 2).Formula = "=(Tabelle2!?B5?/1000)^2/4*3.142"
Cells(r, 3) = Application.WorksheetFunction.Sum(?): Cells(r, 3).BorderAround ColorIndex:=1, Weight:=xlMedium
r = r + 1
Lg Patricia