Schnittstelle Exel & VB Makro.

[Chack (Gast)]

Hi, ich bin Makro Laie und versuche mich gerade an einer simplen 
Schleife, die auf vorhandene Felder in meinem Exel Programm zugreifen 
und das Ergebniss in einem Exel Feld eintraegt. Dazu wuerde ich gerne 
ein Diagramm aus dem berechneten Makro erstellen.
Hoffe mir kann jemand weiterhelfen.

Sub Loop_x_stefna()
t = "L7"

While i > ("B8" + 10)
While i <= "B9"
t = t + 10 * Cos("L3" * Pi() / 180)
x = x + 10
End
End
"L8" = t


End Sub

Hier bekomme ich Probleme mit dem "LB"=t

[Hannes J. (Firma: _⌨_) (pnuebergang)]

Nimm eine richtige Software, nicht den Dreck den Microsoft dafür hält.

[Arc N. (arc)]

Chack wrote:
> Hi, ich bin Makro Laie und versuche mich gerade an einer simplen
> Schleife, die auf vorhandene Felder in meinem Exel Programm zugreifen
> und das Ergebniss in einem Exel Feld eintraegt. Dazu wuerde ich gerne
> ein Diagramm aus dem berechneten Makro erstellen.
> Hoffe mir kann jemand weiterhelfen.
>
> Sub Loop_x_stefna()
> t = "L7"
>
> While i > ("B8" + 10)
> While i <= "B9"
> t = t + 10 * Cos("L3" * Pi() / 180)
> x = x + 10
> End
> End
> "L8" = t
>
>
> End Sub
>
> Hier bekomme ich Probleme mit dem "LB"=t

Public Sub Loopxstefna()
    ' Zugriff auf einzelne Zellen geht entweder über Cells 
    t = Cells(7, 12)
    ' oder über Range, dann darf man auch die übliche
    ' Schreibweise benutzen
    t = Range("L7")

    While i > (Range("B8") + 10)
        While i <= Range("B9")
            t = t + 10 * Cos(Range("L3") * Pi() / 180)
            x = x + 10
        Wend
    Wend
    Range("L7") = t
End Sub

p.s.
> Nimm eine richtige Software, nicht den Dreck den Microsoft dafür hält.

Argumente? Oder gab's heute nichts auf heise.de

[Chack (Gast)]

Danke dir vielmals, das hilft mir sehr weiter. Jetzt beschaeftigt mich 
noch ein neues Problem in Zusammenhang mit der Schleife. Ich wuerde 
gerne jedes Zwischenergebniss der Schleife in einer Spalte speichern. 
Sprich, Das Ergebniss nach dem ersten durchlauf der Schleife in E1, das 
zweite in E2....

Kannst du mir oder jemand anders da auch einen Tip geben?

Danke schonmal