Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung bei Application.sqrt

Forumthread: 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

Anzeige

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
Anzeige
;o) ....... oT
16.06.2009 14:57:46
Matthias
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige