Wert zu Spaltenbereich addieren
12.02.2004 09:29:30
Volker
gibt es eine einfache Lösung zu einem ausgewählten Spaltenbereich eine Zahl zu addieren und das Ergebnis dann in eine neue Spalte zu fügen?
Ich habe es z.Z so realisiert
Dim spalte1, ziel As Range
Dim a As Integer
Set spalte1 = Application.InputBox("Spalte1", Type:=8)
Set ziel = Application.InputBox("Ziel", Type:=8)
spalte1.Copy ziel
a = spalte1.Count
ziel.Select
For i = 1 To a
ActiveCell.Value = ActiveCell.Value + TextBox1.Value
ActiveCell.Offset(1, 0).Activate
Next
geht das auch irgendwie ohne For...Next ???
danke euch