Hallo Leute,
ich habe bislang noch nie mit VIsual Basic gearbeitet und brauche es nur für dieses eine mal.
Ich möchte in Excel ein Makro erstellen, welches mir den Durchschnitt mehrerer Spalten ausrechnet, meine Tabelle um eine Zeile erweitert und als extra Zeile „Summe“ ausgibt und berechnet.
Dabei sollen die Spalten und Zeilenzahl je nach Tabelle anders sein. Die zu berechnenden Zahlen fangen erst bei Zeile7 (Variable Tabellenstart) ab der 3.Spalte an, da ich noch einen Tabellenkopf habe.
So weit bin ich schon aber es will nicht richtig funktionieren:
Private Sub Mittelwert_Click() Dim Zeile As Long, Spalte As Long
’ Nächste freie Zeile
For Zeile = Tabellenstart To ActiveSheet.UsedRange.Rows.Count+1
Next Zeile
' Zeilenkopf beschriften
Range("A" & Zeile).Value = "Summe:"
' Falls bereits ausgeführt abbrechen
If Range("A" & Zeile - 1).Value = "Summe:" Then Exit Sub
' Spalten aufsummieren und Summe eintragen
For Spalte = 3 To ActiveSheet.UsedRange.Columns.Count
Cells(Zeile, Spalte).Value = WorksheetFunction.Average(Columns(Spalte))
Next Spalte
End Sub
Mein Programm rechnet zwar den Mittelwert aus, jedoch bekomm ich nach dem durchführen eine Fehlermeldung ("Laufzeitfehler ‚1004‘: Die Average-Eigenschaft des WorksheetFunction.Objektes kann nicht zugeordnet werden.)Ich glaube es liegt daran das auch leere Zellen vorhanden sind.
Manche Spalten sind in % formatiert und manche in „normale Zahlen“… wie kann ich die Summe je nach SPalte in Prozent oder Zahl anzeigen lassen?
Ich hoffe ihr könnt mir helfen
Liebe Grüße
ozi
