|
Hallo,
ich habe 2 Jahre Erfahrung in Javaprogrammierung und ca. ein Jahr in C. Sonst bin ich noch nie mit Programmierung in Berührung gekommen. (Beides jeweils an der Uni). Nun als Werksstudent soll ich in VBA programmieren, da ich das noch nie gemacht habe muss ich mir alles von Grund auf selbst beibringen. (Bin einziger Informatiker in einer Logistikabteilung)
Ich wollte einen Bereich in Excel mit Zufallszahlen füllen(das klappt) und dann unter dem jeweils letzten Eintrag in jeder Spalte die Summe der darüberstehenden Werte ausgeben.
Hier die Methode zum Füllen des Bereiches
Sub Fuellen()
Dim rngArea As Range
Dim rngCell As Range
Dim intTMP As Integer
Dim rngFind As Range
Set rngArea = Range("A1:J40")
rngArea.ClearContents
For Each rngCell In rngArea
intTMP = Int((4000 * Rnd) + 1)
rngCell.Value = intTMP
Next rngCell
End Sub
Zum Aufsummieren habe ich folgendes in Google gefunden...jedoch nur für eine feste Spalte
Sub SumValue()
Dim intRow As Integer
intRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(intRow + 1, 1).Value = WorksheetFunction.Sum(Range("A1:A" & intRow))
x = WorksheetFunction.Sum(Range("A1:A" & intRow))
'MsgBox "Summe: " & x
End Sub
Wie kann man das aber jetzt in VBA so implementieren, dass unter jeder Spalte die Summe steht und nicht nur unter der ersten
Vielen Dank
|