Hallöchen,
bräuchte etwas Hilfe: Ich will in meinem vba-code integrieren, dass er 2 Zahlen aus zwei Excel-Zellen nimmt (aus Zelle (2,1) & (2,4) und darunter folgende bis eine leerzelle kommt), dann eine berechnung durchführt [nämlich: Sqr((2,1)hoch2-(2,4)hoch2)] und dann das Ergebnis in Zelle (2,2) und darunter folgende einträgt. Wie geht das?^^

DANKE SCHON MAL!

Nächstesmal bitte einen vernünftigen Titel wählen.

nächstes mal gibts einen richtigen titel.....aber weiß denn keiner hilfe?

habs jetzt so...aber er sagt typenfehler...laufzeitfehler...


Sub Test()
Dim LetzteZeile As Long
Dim Zeile As Long
With ActiveSheet
LetzteZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).row
For Zeile = 1 To LetzteZeile
'Operand für Quadratwurzel muß positiv sein
If .Cells(Zeile, 1) ^ 2 - .Cells(Zeile, 4) ^ 2 >= 0 Then
.Cells(Zeile, 2) = Sqr(.Cells(Zeile, 1) ^ 2 - .Cells(Zeile, 4) ^ 2)
End If
Next Zeile
End With
End Sub

Bei mir läufts. Aber ich kenne Deine Werte nicht...

Die For-Schleife sollte bei 2 beginnen.
Aber wozu with ActiveSheet?