Makro Schleife einbauen möglich ?
18.11.2005 17:23:23
Heribert
Wie kann ich in diesem Makro eine Schleife einbauen,um mehrere Spalten/zellen
u.a. D6:D45, damit abzuarbeiten.
Das Makro summiert dem Wert einer "Quell"zelle mit dem Wert einer "Ziel"zelle
und schreib den neuen Wert in die zielzelle.
Private Sub CommandButton1_Click()
Dim a, b
a = Range("D6").Value
b = Sheets("Übersicht Summen").Range("C6").Value
'Range("C6").NumberFormat = "#,###0.000 ;-#,##0.000 "
Sheets("Übersicht Summen").Range("C6") = (b + a)
End Sub
Meine Beispieldatei:
https://www.herber.de/bbs/user/28499.xls
Kann mir bei der Schleife oder den Schleifen jemand behilflich sein?
Besten Dank vorweg
Gruss
Heribert