Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Funktion in VBA ( Excel 2016 )

Forumthread: If Funktion in VBA ( Excel 2016 )

If Funktion in VBA ( Excel 2016 )
24.03.2016 17:47:36
Ali
Hallo zusammen,
ich habe ein Problem mit meiner If-Funktion, die da wie folgt lautet:
Option Explicit Public Function gxc(wz As Double, aw As Double) As Double If wz = 1 And aw = 200 Then gxc = 45 + 60 / aw End If End If End Function
(In Worten: wenn wz gleich 1 und aw kleiner 200 dann soll gxc 0,75 betragen, wenn allerdings aw größer oder gleich 200 dann soll gxc nach der Formel 45+60/aw errechnet werden)
Wenn ich die Funktion verwenden möchte und wz und aw Zellen zuweise in der Form "=gxc(B11;O27)" kommt als Fehlermeldung "#NAME?". Leider ist mir nicht genau klar, was das zu bedeuten hat.

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Funktion in VBA ( Excel 2016 )
24.03.2016 17:58:43
Crazy
Hi
so funktioniert es bei mir 
Public Function gxc(wz As Double, aw As Double) As Double
If wz = 1 And aw = 200 Then gxc = 45 + 60 / aw
End Function
Tabelle1

 AB
1145,24
2250 

Formeln der Tabelle
ZelleFormel
B1=gxc(A1;A2)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
MfG Tom

Anzeige
AW: If Funktion in VBA ( Excel 2016 )
24.03.2016 18:52:33
Ali
Klasse, danke für die Hilfe.

AW: If Funktion in VBA ( Excel 2016 )
24.03.2016 17:59:29
ransi
HAllo,
Die 2 End If sind überflüssig.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function gxc(wz As Double, aw As Double) As Double
    
    If wz = 1 And aw < 200 Then gxc = 0.75
    
    If aw >= 200 Then gxc = 45 + 60 / aw
    
    
End Function


Ausserdem muss der Code in ein Modul.
ransi

Anzeige
AW: If Funktion in VBA ( Excel 2016 )
24.03.2016 18:53:25
Ali
Super, hab eure Vorschläge verwenden können. Danke Danke Danke...

AW: If Funktion in VBA ( Excel 2016 )
24.03.2016 18:03:50
Daniel
Hi
hast du den Code richtig eingefügt, dh in ein allgemines Modul der gleichen Datei (Modul1)?
ansonsten sind deine IF-Bedinugungen falsch geschrieben.
wenn du nach dem THEN in der gleichen Zeile weiter schreibst, musst du den gesamten IF-Block in dieser einen Zeilen abhandeln und es gibt dann kein END IF.
also entweder: 

Public Function gxc(wz As Double, aw As Double) As Double
If wz = 1 And aw = 200 Then gxc = 45 + 60 / aw
End Function

oder
Public Function gxc(wz As Double, aw As Double) As Double
If wz = 1 And aw
wobei bei deinem Code nicht klar ist was passieren soll, wenn wz nicht gleich 1 und aw kleiner 200 ist.
Gruß Daniel

Anzeige
AW: If Funktion in VBA ( Excel 2016 )
24.03.2016 18:21:31
Ali
Besten Dank für die schnellen Antworten.
Also ich wollte anschließend weitere If-Funktionen einbauen, die wie folgt aussehen sollen:
Public Function gxc(wz As Double, aw As Double) As Double
If (wz = 1 or 2) And aw = 200 Then gxc = 45 + 60 / aw
If wz = 3 And aw = 200 Then gxc = 40 + 54 / aw
If wz = 4 And aw = 200 Then gxc = 36 + 48 / aw
End Function
Das bedeutet, dass wz 1oder2, 3 oder 4 sein kann und in jedem dieser Fälle kann aw entweder kleiner oder größergleich 200 sein und dann entsprechend errechnet werden.

Anzeige
select case ?
24.03.2016 18:33:39
ransi
Hallo,
Bei den ganze if end if kann man isch schon mal verhaspeln..
Schau dir mal dies an:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function gxc(wz As Double, aw As Double) As Double
    Select Case wz
        Case 1 To 2
            If aw < 200 Then
                gxc = 0.75
                Else:
                gxc = 45 + 60 / aw
            End If
        Case 3
            If aw < 200 Then
                gxc = 0.67
                Else:
                gxc = 40 + 54 / aw
            End If
        Case 4
            If aw < 200 Then
                gxc = 0.6
                Else:
                gxc = 36 + 48 / aw
            End If
    End Select
End Function


ransi

Anzeige
AW: select case ?
24.03.2016 19:56:22
Ali
Ahh, jetzt hab ich es verstanden. Ich habe vorher noch nie mit der Select-Funktion gearbeitet... Super, nun wurde auch das Geheimnis für gelüftet.
Vielen Dank für eure Mühe.

AW: If Funktion in VBA ( Excel 2016 )
24.03.2016 18:38:41
Daniel
Hi
dann musst du das schon logisch sauber strukurieren:
Select Case wz
Case 1, 2
If aw
oder wenn du es mit den Strukturen nicht so hast:
If (wz = 1 or wz = 2) And aw = 200 Then gxc = 45 + 60 / aw
If wz = 3 And aw = 200 then gxc = 40 + 54 / aw
if wz = 4 And aw = 200 Then gxc = 36 + 48 / aw

für deinen speziellen fall gäbe es noch folgende alternativlösung:
a = array(0, 45, 45, 40, 36)
b = array(0, 60, 60, 54, 48)
c = array(0, 0.75, 0.75, 0.67, 0.60)
if aw
Gruß Daniel

Anzeige
AW: If Funktion in VBA ( Excel 2016 )
24.03.2016 18:51:48
Ali
Super, ich habe mich für Variante 2 entschieden. Tausend Dank!
Für die Zukunft habe ich noch eine Frage bezüglich der Varianten 1 & 3: Wie gebe ich in der entsprechenden Excelzelle an, dass er diese VBA-Funktionen anwenden soll? Ich meine, die Methode "=gxc(B11;O27)" kann ich ja dann nicht verwenden, weil Variante 1 & 3 keine Funktion in dem Sinne ist, oder?

Anzeige
AW: If Funktion in VBA ( Excel 2016 )
25.03.2016 00:11:33
Daniel
Hi
Ich habe für alle drei Varianten nur den Teil mit den IF-Bedingungen gezeigt.
Du kannst jede der drei Varianten so erweitern, dass du sie als benutzerdefinierte Funktion einsetzen kannst.
Gruß Daniel
;

Forumthreads zu verwandten Themen

If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Anzeige
VBA: Schleife für variable Dia-Daten
Christian

Hallo,
bräuchte ein bischen VBA Unterstützung
Wie bekomme ich es hin, das mein Diagramm immer 20 Datensätze aus einer Liste schrittweise anzeigt.
Beginnt bei Datensatz 1-20, dann 2-21, 3-22 etc
Die Datenreihen im Dia soll sozusagen laufend dargestellt werden
Danke!!!!
08.09.2008 11:15:17
Thread-ID: 1008085
3 Beiträge
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Command Button schützen vor VBA
Hüseyin

Hallo zusammen,
habe eine kurze Frage und hoffe ihr könnt mir weiterhelfen,
ich habe ein Exceldokument mit Commandbuttons drin. Wenn ich allerdings über VBA eine "Sortierung" oder "Komprimierung" über das Tabellenblatt laufen lasse, werden meine Buttons kleiner bzw. sehen gequetscht aus...
28.10.2008 11:21:33
Thread-ID: 1019856
3 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
if then interiorcolor
serge

Hallo Leute
ich möchte dass wenn die angeklicke Zelle Rot ist mein Makro ablauft (es können verschiedene Zellen sein.
Ich habe es mit:
Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Interior.ColorIndex = 3 Then "mein makro" End If End Sub
unter anderem...
21.01.2009 22:45:00
Thread-ID: 1042391
15 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
VBA Projekt in andere Arbeitsmappe einbauen
abu

Hallo Zusammen,
Fileupload: https://www.herber.de/bbs/user/59303.xls
In dieser Arbeitsmappe ist ein VBA-Projekt das ansich gut funktioniert. Nun moechte ich dieses Projekt in eine andere Arbeitsmappe integrieren und statt fuer jede Zeile einen Button (habe in der hochgeladenen Mappe al...
10.02.2009 13:34:05
Thread-ID: 1049049
5 Beiträge
VBA mit Schleife-Zählerproblem
ico

Hallo,
leider habe ich den vorherigen Beitrag schon geschlossen aber dennoch ein Problem.
Der nachfolgende Code funktioniert wunderbar, aber leider wird de Zähler n bei jedem durchgang um 2 erhöht....eigentlich sollte dieser doch immer um eins erhöht werden n=n+1 ?
Sub Test2() For...
12.02.2009 17:18:00
Thread-ID: 1050178
4 Beiträge
Anzeige
Andere Schreibweise für Formel in VBA
MAS

Einen wunderschönen guten Abend,
ich muss in einem Tabellenblatt einige Formeln per VBA erzeugen.
Mit Hilfe des Makrorecorders müsste ich diesen String erzeugen - die Formel ist allerdings nur recht schwer lesbar
Würde gerne schöne Zellbezeichnungen angeben - was muß ich denn dazu...
04.03.2009 16:56:56
Thread-ID: 1056514
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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