Immer in die übernächste Zelle schreiben
11.09.2016 16:33:29
Phia
ich möchte mittels VBA eine Mittelwertberechnung durchführen. Ich habe eine Userform erstellt, in die die Werte eingetragen werden. Der Mittelwert soll in einer bestimmte Zelle ausgegeben werden.
Wenn ein weiterer Wert berechnet werden soll, wird die Userform wieder geöffnet und die Werte eingetragen. Wird der Button betätigt, soll der Mittelwert in die übernächste Zelle eingetragen werden.
Bis jetzt habe ich:
Private Sub CommandButton1_Click()
Cells(10,120).End(xlToLeft).Offset(0,2) = WorksheetFunktion.Average(CDbl(TextBox1.Value), CDbl( _
TextBox4.Value), CDbl (TextBox3.Value))
Unload Userform1
End Sub
Ich möchte das der Wert immer in die übernächste Zelle geschrieben wird. Egal ob die Zelle dazwischen belegt ist oder nicht.
In meiner Tabelle soll immer ein Wert eingetragen werden und daneben ein Feld für Anmerkungungen und dann wieder ein Wert. Es muss aber nicht immer eine Anmerkung eingetragen werden. Somit kann es sein das die Zelle frei ist.
Ich weiß mit meinen bescheidenen VBA Kenntnissen nicht mehr weiter. Vielleicht hat jemand eine Idee.
Lg
Phia
Anzeige