Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung bei Application.sqrt

Fehlermeldung bei Application.sqrt
15.06.2009 17:44:53
Dagmar
Hallo VBA-Fans,
bei folgendem Programm bekomme ich immer die Fehlermeldung "Objekt unterstützt diese Eigenschaft nicht":

Sub Drucken()
Dim var As Double
var = Application.Sqrt(9)
End Sub


Wer kann mir sagen was ich falsch mache?
Danke im Voraus für die Hilfe!
Dagmar

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung bei Application.sqrt
15.06.2009 17:57:45
Sven
Hi,
Sqrt gibts in VBA nicht

Sub Drucken()
Dim var As Double
var = 9^(1/2)
End Sub


mfg Sven

AW: Fehlermeldung bei Application.sqrt
15.06.2009 17:57:47
Uduuh
Hallo,
var=SQR(9)
Gruß aus’m Pott
Udo

sqrt=sqr
15.06.2009 18:18:32
Matthias
Hallo
Sub Wurzel()
Dim var As Double, Zahl As String

Zahl = InputBox("Bitte Zahl eingeben deren Quadratwurzel Sie ermittln wollen", "Wurzelwerk ;o)", 625)


If IsNumeric(Zahl) Then
var = Sqr(Zahl)
MsgBox "Wurzel aus " & Zahl & " = " & var
Else
MsgBox "Berechnung nicht möglich (evtl. haben Sie keine Zahl eingegeben) "
End If
End Sub
Userbild
Gruß Matthias

Anzeige
OT @Matthias: Aus einem...
15.06.2009 22:10:26
NoNet
...Zahn kann man auch die "Wurzel ziehen"
Hallo Matthias,
bei Deiner Lösung hatte ich eben einen "freud'schen (?) Verleser" :
Zahl = InputBox("Bitte Zahn eingeben deren Quadratwurzel Sie ermittln wollen", "Wurzelwerk ;o)", 625)
Das wäre dann wohl eine geeignete Software für Zah(l/n)ärzte
Gruß, NoNet
;o) ....... oT
16.06.2009 14:57:46
Matthias

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige