AW: zeig mal eine Beispieldatei, wo es nicht geht oT.
28.03.2009 12:18:58
Steffi
Hallo Tino,
hier ist der Anfang meiner Da
Private Sub Kraftberechnungbtt_Click()
Dim Volt, Wert, Kraft, Kali, Empf, Weg1, Weg2, Zeit As Single
Dim Dia As ChartObject
Dim s As String
Dim i As Integer
Dim Ber, Area, Zelle, Bereich As Range
Const v = 666.66667
'MsgBox und Abbruch falls keine Messdaten vorhanden
If Range("A38") = "" Then _
i = MsgBox("Bitte die Messdaten vor der Berechnung einlesen!", _
vbOKOnly, "Berechnung ist nicht möglich") & vbLf
Exit Sub
'deine eingesetzte Formel
Set Bereich = Range("A37", Cells(Rows.Count, 1).End(xlUp))
Bereich.Offset(0, 2).FormulaR1C1 = "=IF(ISNUMBER(RC1),RC1*" & v & ","""")"
Bereich.Value = Bereich.Value