Hallo Leute,
ich hab eine Tabelle bei der die Zellen von A bis D in den Zeilen 7 bis 24 markiert werden.Durch die Markierung wird eine Berechnung von anderen Zellen aktiviert.Das ganze sieht folgender Maßen aus:
Option Explicit
Sub Berechnung1()
Dim Zelle As Range
Dim Ende As Integer
With TAbelle2
Ende = 2
On Error GoTo fehler
For Each Zelle In Intersect(Selection, Range("A7:A24)
.Cells(Ende, 1) = Zelle.Offset(0, 9)
.Cells(Ende, 2) = Zelle.Offset(0, 27)
.Cells(Ende, 3) = Zelle.Offset(0, 28)
.Cells(Ende, 4) = Zelle.Offset(0, 40)
.Cells(Ende, 5) = Zelle.Offset(0, 41)
.Cells(Ende, 7) = Zelle.Offset(0, 29)
.Cells(Ende, 8) = Zelle.Offset(0, 30)
.Cells(Ende, 9) = Zelle.Offset(0, 42)
.Cells(Ende, 10) = Zelle.Offset(0, 43)
Ende = .Range(„A65536“).End(xlUp).Row + 1
Next Zelle
.Cells(Ende, 2) = WorksheetFunction.Sum(.Columns(2))
.Cells(Ende, 3) = WorksheetFunction.Sum(.Columns(3))
.Cells(Ende, 4) = WorksheetFunction.Sum(.Columns(4))
.Cells(Ende, 5) = WorksheetFunction.Sum(.Columns(5))
.Cells(Ende, 7) = WorksheetFunction.Sum(.Columns(7))
.Cells(Ende, 8) = WorksheetFunction.Sum(.Columns(8))
.Cells(Ende, 9) = WorksheetFunction.Sum(.Columns(9))
.Cells(Ende, 10) = WorksheetFunction.Sum(.Columns(10))
End With
fehler:
End Sub
So geht das für B,C und D weiter, nur das in „ZElle.Offset(0, )“ andere zahlen stehen.
Meine Calls sehen wie folgt aus
Sub Alle_Zusammen
Call Berechnung1
Call Berechnung2
Call Berechnung3
Call Berechnung4
End Sub
Wenn ich jetzt die Zellen nichr in alphabetischer Reihenfolge markiere,z.B. D9,C12,A22 dann wird nur D9 berechnet.
was kann ich dagegn tun?
Vielen lieben dank im voraus!
LG
