Wert in Zelle ausgeben
03.08.2004 17:50:27
Thomas
Ich möchte gerne den Wert in die Spalte C der markierten Zeile ausgeben.
Sub Mittelwert()
Dim Bereich as Range
On Error Resume Next
Set Bereich = Application.InputBox (Prompt:="Markieren Sie den Zellbereich:", Type:=8)
'Ausgabe: C (Zeile).Value = WorksheetFunction.Average(Bereich)
End Sub
Vielen Dank für die Hilfe
Gruss
Thomas