HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Istgerade Funktion in VBA

Forumthread: Istgerade Funktion in VBA
11 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Istgerade Funktion in VBA

12.07.2020 21:17:51

Burak

Guten Abend mal wieder,
dieses Mal suche ich die VBA-Funktion für die Excelfunktion Istgerade(Zahl). Vllt wisst ihr auch wie ich solche befehle für VBA selbst finden kann, wenn ich die Excelfunktion kenne.
Freundliche Grüße
Burak

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Istgerade Funktion in VBA

12.07.2020 21:24:58

Nepumuk
AW: Istgerade Funktion in VBA

12.07.2020 21:25:57

Hajo_Zi
AW: Istgerade Funktion in VBA

12.07.2020 21:28:08

Sulprobil
Nicht alle im Container enthalten, Bernd! owT

13.07.2020 02:12:52

Luc:?
AW: Hast recht, nicht alle, nur einige

13.07.2020 19:42:59

Sulprobil
Worksheetfunction in VBA

12.07.2020 21:28:51

EtoPHG
AW: Istgerade Funktion in VBA

12.07.2020 21:50:39

Daniel
AW: Istgerade Funktion in VBA

12.07.2020 21:57:13

Burak
AW: Istgerade Funktion in VBA

12.07.2020 22:02:08

Hajo_Zi
AW: Istgerade Funktion in VBA

13.07.2020 00:00:19

Burak
Zahl = Int(Zahl) owT

12.07.2020 23:18:26

Rudi

AW: Istgerade Funktion in VBA

12.07.2020 21:24:58

Nepumuk

Hallo Burak
so geht's:

Public Sub Test()
Debug.Print Application.IsEven(9)
End Sub

Gruß
Nepumuk

AW: Istgerade Funktion in VBA

12.07.2020 21:25:57

Hajo_Zi

Hallo Burak,
MsgBox 2 Mod 2 = 0
MsgBox 3 Mod 2 = 0

AW: Istgerade Funktion in VBA

12.07.2020 21:28:08

Sulprobil

Worksheetfunction.IsEven
Du kannst jede Tabellenblattfunktion auf Englisch übersetzen (lassen) und dann mit dem Präfix "Worksheetfunction." in VBA aufrufen.

Nicht alle im Container enthalten, Bernd! owT

13.07.2020 02:12:52

Luc:?

:-?

AW: Hast recht, nicht alle, nur einige

13.07.2020 19:42:59

Sulprobil

(alle die ich brauche) :-)

Worksheetfunction in VBA

12.07.2020 21:28:51

EtoPHG

Hallo Burak,
Wie finden? So: F2 Objektexplorer in VBE öffnen und nach Worksheetfunction suchen.
Dann wird dir die ganze Liste der Worksheetfunction.Methoden angezeigt, die den Standardexcelformeln entsprechen. Nur halt alles in Englisch, den VBA versteht keine anderen Sprachen.
Gruess Hansueli

AW: Istgerade Funktion in VBA

12.07.2020 21:50:39

Daniel

Hi
Wenn du die Deutsche Funktionsbezeichnung kennst, dann schreibe eine Formel mit dieser Funktion in eine Zelle und lass dir im Direktfenster mit diesem Befehl:

?Selection.Formula

die englische Schreibweise dieser Formel ausgeben (das ist der sulprobilsche Übersetzer)
Die hier verwendete Funktionsbezeichnung kannst du dann wie schon beschrieben in VBA mit dem Vorsatz "WorksheetFunction." verwenden.
Für die Funktionsparameter gilt dann wieder die normale VBA-Schreibweise.
Das klappt meistens, Ausnahmen gibts immer.
Beispielsweise wurden Funktionen, die es schon genau gleich in VBA gibt, nicht in die WorksheetFunction-Liste aufgenommen.
Wenn es eine Funktion mit gleicher Bezeichnung mit und ohne WorksheetFunction gibt, dann ist das immer ein Hinweis darauf, dass kleine Unterschiede zwischen beiden Funktionen gibt (z.b. Round oder Trim)
Gruß Daniel

AW: Istgerade Funktion in VBA

12.07.2020 21:57:13

Burak

Ich merke gerade, dass ich scheinbar einen Fehler gemacht habe.
Ich brauche die Funktion zum Überprüfen ob es eine ganze Zahl oder eine Dezimalzahl ist.
Also wenn es ne Dezimalzahl ist, soll er entweder 0,5 subtrahieren oder es abrunden auf ne ganze Zahl.
Sorry für mein Fehler

AW: Istgerade Funktion in VBA

12.07.2020 22:02:08

Hajo_Zi

If cint(Zahl)zahl then
Zahl=Zahl-0,5
End if
MsgBox Application.Round(3.53, 0)
Gruß Hajo