Liebe com,
ich habe folgendes Problem:
Quelltext:
Sub parabeln()
Range("B9:B45000").ClearContents
Dim vonWert As Double
Dim bisWert As Double
Dim cWert As Double
Dim zaehler As Integer
Dim veränderterterVonWert As Integer
vonWert = Cells(4, 4)
bisWert = Cells(4, 6)
cWert = Cells(5, 3)
veränderterterVonWert = vonWert
zaehler = zaehler + 1
If cWert < 1 Then
Cells(5, 3) = 0
End If
If vonWert >= bisWert Then
MsgBox ("Fehlerhafte Eingabe von X- Werten")
End If
Dim j As Integer
j = 9
For i = vonWert To bisWert
Cells(j, 2) = veränderterterVonWert
veränderterterVonWert = veränderterterVonWert + 1
j = j + 1
'MsgBox (zaehler)
zaehler = zaehler + 1
Next i
MsgBox (zaehler)
Cells(zaehler + 7, 2).Select
!!!!!!!
Range("B9:???????").Select
!!!!!!!
End Sub
Tabelle sieht so aus:
http://s1.directupload.net/file/d/3078/zrzf4stf_png.htm
Wie kriege ich nur den Bereich, wo Werte eingetragen sind in ein Diagramm?
LG
|