ich habe folgende Berechnung gemacht,
'*** Summe einfügen ****'
'***Spalte ermitteln ***'
If Me.cboSumme.Value = True Then
intSpalte = Spalteermitteln(1)
'** Rechnoperation Summe ausführen **'
Worksheets("AutoAus").Cells(1, intSpalte).Value = "AutoAus"
Worksheets("AutoAus").Cells(2, intSpalte).Value = "Summe"
For intZaehler = 3 To 10000
If Worksheets("AutoAus").Cells(intZaehler, 1) "" Then
lngFile1Data = Worksheets("AutoAus").Cells(intZaehler, 3).Value
lngFile2Data = Worksheets("AutoAus").Cells(intZaehler, 2).Value
lngErgebnis = lngFile2Data + lngFile1Data
Worksheets("AutoAus").Cells(intZaehler, intSpalte).Value = lngErgebnis
Else: Exit For
End If
Next intZaehler
End If
ich würde aber lieber in die Spalte nicht das Ergebis (lngErgebnis)
einfügen sondern die Formel die die Spalte 2 + die SPalte 3 beinhaltet.
Gruß
Swen