Mittelwert bei Userform wenn ein Feld leer ist
15.11.2017 13:27:00
Fexcel
ich bin zum ersten mal hier und hoffe es kann mir jemand helfen. Bin in VBA noch eher Einsteiger, da ich mir die Codes noch viel von Foren zusammen kopiere.
Ich habe eine Userform (frm_Qualitaetsdaten) in der ich Werte in den Feldern txtx1-txtx5 eingebe. jetzt möchte ich, dass mir der Mittelwert berechnet wird und wenn in einer Zelle nichts drinsteht soll der Wert ignoriert werden. Also eigentlich wie bei der Formel =Mittelwert()
Habe folgenden Code
Private Sub cmdübernehmen_Click()
'fügt die eingetragenen Werte ins Tabellenblatt und schließt das Formular
Dim intErsteLeereZeile As Long
Dim Spitzenwert1 As Double
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Spitzenwert1 = Application.Average(txtx1, txtx2, txtx3, txtx4, txtx5)
' so übernehme ich die Werte
ActiveSheet.Cells(intErsteLeereZeile, 10).Value = Me.txtx1.Value
ActiveSheet.Cells(intErsteLeereZeile, 11).Value = Me.txtx2.Value
ActiveSheet.Cells(intErsteLeereZeile, 12).Value = Me.txtx3.Value
ActiveSheet.Cells(intErsteLeereZeile, 13).Value = Me.txtx4.Value
ActiveSheet.Cells(intErsteLeereZeile, 14).Value = Me.txtx5.Value
End Sub
Wie kann ich hier den Mittelwert bilden ohne dass es mir eine Fehlermeldung ausgibt, wenn ein Feld nicht beschrieben ist? Außerdem nimmt er mit keine Kommazahlen, woran kann das liegen?
Code nicht vollständig, den Rest kann ich dann umschreiben.
Vielen Dank für Eure Hilfe!
Schönen Gruß
Fexcel