Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Argument optional machen

Argument optional machen
13.11.2006 20:42:04
Christian
Hallo,
ich habe folgende Function, die mir die Subtotals einer tabelle berechnet:

Function subtotals(first As Integer, second As Integer)
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(first, second), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Function

Jetzt moechte ich aber die Funktion etwas flexibler gestalten. Kann man die Anzahl der uebergebenen Werte bspw. auf 5 erhoehen, aber nur immer soviele uebergeben wie ich gerade brauche.
Also im o.g. Fall 'first', 'second' (call subtotals(8, 11)) und in einem anderen Fall vielleicht 'first', 'second', 'third', 'fourth'(call subtotals(8, 11,14,16))
Geht sowas? Wenn ich null uebergebe bricht er ab.
Vielen Dank
Christian

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

Betreff
Datum
Anwender
Anzeige
AW: Argument optional machen
13.11.2006 20:54:38
Daniel
Hallo
ja das geht so:
Function subtotals(first As Integer, second As Integer, optional third as integer = 1, optional fourth as interger = 4)
d.h. OPIONAL davor schreiben, und den Wert zuweisen, den die Variable als Wert haben soll, wenn kein Wert übergeben wird.
Die mit Optional gekennzeichneten Werte brauchen also nicht übergeben zu werden.
In der Reihenfolge müssen die optionalen Parameter immer nach den Pflich-Parametern stehen.
Gruß, Daniel
AW: Argument optional machen
13.11.2006 21:18:23
Christian
Hallo Daniel,
also erstmal vielen dank.
Nur wie bringe ich jetzt das optionale Argument in das Array (TotalList). Wenn ich jetzt in den Funktionskopf eine optionales Argument schreibe moechte ich sie ja auch im Array benutzen, aber da erhalte ich folgende Fehlermeldung:
Subtotal method of range class failed
Gruss
Christian
Anzeige
AW: Argument optional machen
13.11.2006 21:50:16
Daniel
Hallo
sorry, mit der VBA-Funktion SUBTOTAL kenne ich mich leider nicht aus.
Hierzu vielleicht mal die Hilfe zu Rate ziehen.
Falls dir das nicht weiterhilft, bitte einen neuen Thread aufmachen und die Fragestellung nochmal überarbeiten.
Deine Eingangsfrage passt nicht so richtig zu deinem Problem.
btw. setzt du die Funktion als Formel in Excel ein oder wird sie nur innerhalb VBA von Makrors aufgerufen?
gruß, Daniel
AW: Argument optional machen
13.11.2006 22:22:21
Christian
ich verwende die Funktion in einem Makro
AW: Argument optional machen
13.11.2006 22:27:18
Matthias
Hallo Christian,
versuch mal das (ungetestet):

Function subtotals(first As Integer, second As Integer, Optional third, Optional fourth)
Dim arr()
If Not IsMissing(fourth) Then
arr = Array(first, second, third, fourth)
ElseIf Not IsMissing(third) Then
arr = Array(first, second, third)
Else
arr = Array(first, second)
End If
Debug.Print UBound(arr)
'    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=arr, _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Function

Gruß Matthias
Anzeige
AW: Argument optional machen
13.11.2006 23:37:37
Daniel
Hallo
wenn es so geht, wäre es noch einfacher, die Daten mit ParamArray zu übergeben, dann können beliebig viele Werte übergeben werden:

Function subtotals(ParamArray arr() as variant)
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=arr, _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Function

der Aufruf erfolgt dann
Call subtotals(first, second)
Call subtotals(first, second, third) usw
Gruß, Daniel
AW: Argument optional machen
14.11.2006 15:38:06
Christian
Hallo zusammen,
also erstmal vielen dank.
@Matthias: Dein Vorschlag funktioniert!
@Daniel: leider haut das nicht ganz hin, mit dem Paramarray. Ich erhalte beim Aufruf immer die Fehlermeldung "Invalid Paramarray use". Wenn ich das richtig verstehe sagt mir die Hilfe dann, dass ein anderer Typ erwartet wird!
Also momentan sieht es so aus:
...
Dim c1 As Variant
Dim c2 As Variant
Dim c3 As Variant
c1 = 7
c2 = 8
c3 = 11
Call subtotals(c1, c2, c3)
...

Function subtotals(ParamArray arr() As Variant)
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=arr, _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Function

Viele Gruesse
Christian
Anzeige
AW: Argument optional machen
14.11.2006 21:07:05
Daniel
Hallo
dimensionier mal C1-C3 als LONG.
Dann müsste es gehen.
Gruß, Daniel
AW: Argument optional machen
15.11.2006 16:03:12
Christian
Hallo Daniel,
ich erhalte leider immer noch die gleiche Fehlermeldung. Gibt es noch eine andere Moeglichkeit?
Viele Gruesse
Christian
ParamArray Subtotal
15.11.2006 20:22:30
Reinhard
Hi Christian,
Frage noch offen, da Lösung eher workaround als Lösung:-)
Sub tt()
Dim c1 As Variant, c2 As Variant, c3 As Variant
c1 = 7
c2 = 8
c3 = 11
Call subtotal2(c1, c2, c3)
End Sub
Function subtotal2(ParamArray Zahl() As Variant)
Dim n
ReDim Z(UBound(Zahl()))
For n = 0 To UBound(Zahl)
Z(n) = Zahl(n)
Next n
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Z(), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Function

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Argument optional machen
15.11.2006 23:54:32
Daniel
Hallo,
tut mir leid, weder mit Subtotal noch mit ParamArray habe ich bisher gearbeitet.
Auf diesen Weg bin ich beim Lesen der Hilfe gestoßen, aber die Feinheiten kenn ich leider nicht. Kannst du bitte mal die Datei hochladen, so zum rumspielen?
Gruß, Daniel

9 Forumthreads zu ähnlichen Themen

VBA Problematik Argument nicht optional
MaxT

Hallo,
Ich bin neu hier und nicht sehr vba versiert...
Ich habe die ehrenvolle Aufgabe eine bestehende xls umzuarbeiten. Diese hat ein ehemaliger Praktikant erstellt und nun sind einige Änderungen eingeflossen, die ich gro
Grobe Fakten: die Liste enthält verschiedene Werkzeug-Daten....
18.02.2019 08:50:03
Thread-ID: 1676215
3 Beiträge
Anzeige
Argument ist nicht optional
Mark

Hallo,
ich bin hier schon am verzweifeln! Bitte helft mir...
jedes mal wenn ich diese Funktion aufrufe sagt er mir in der Zeile:
"If samstag = j And sonntag j And WeekDay(datum) = 7 Then dauer = dauer + 1
"
"Argument ist nicht optional"
Was mach ich falsch? ich rufe die...
25.08.2004 16:49:39
Thread-ID: 475222
2 Beiträge
Laufzeitfehler '449', Argument ist nicht optional
Joerg

Hallo,
ich versuche aus einem Dropdown Menü verschiedenen Module laufen zu lassen, jenachdem welche Option im Dropdown Menü ich anklicke, läuft ein anderes Modul ab.
Private Sub Worksheet_Change(ByVal Target As Range) Range("A2:A16").Font.ColorIndex = 2 If Target.Address <> "$A...
20.09.2004 15:55:47
Thread-ID: 487853
3 Beiträge
Anzeige
Compile Error: Argument not optional / Public Sub
proxima05

Hallo,
in der anliegenden Datei will ich eine separate Sub über die Call-Anweisung aufrufen; das Ganze wird gestartet über den Klick auf die Befehlsschaltfläche. Leider erhalte ich eine Fehlermeldung, die wie folgt lautet:
Fehlermeldung:
Compile Error
Argument not optional
Z...
04.10.2007 19:11:00
Thread-ID: 913064
6 Beiträge
pdf erstellen / Argument not optional
Comella

Guten Morgen
ich versuche aus Excel pdfs zu erstellen und greife dabei auf eine Prozedur (aus diesem Forum) zurück welche anscheinend bei anderen Anwendern funktioniert. Ich jedoch erhalte die Fehlermeldung "Argument not optional." Kann mir jemand sagen woran das liegt.
Besten Dank &am...
05.05.2008 10:14:00
Thread-ID: 974612
3 Beiträge
Argument ist nicht optional
Rasenack

Hallo liebe Gemeinde,
ich sitze vor einem Problem und bekomme es nicht behoben. Ich habe eine Funktion, die mir den Ostersonntag berechnet. In der Funktion wird Ostersonntag als Date deklariert. Nun möchte ich mittels DateAdd Funktion 49 Tage addieren. Also übergebe ich der DateAdd Funktion...
14.02.2020 15:25:52
Thread-ID: 1740510
9 Beiträge
Argument ist nicht optional
Alex

Hallo, ich möchte drei Funktionen aus der linearen Algebra programmieren. Die Vektorlänge ("Betrag") funktioniert einwandtfrei, beim ausführen von Skalarprodukt (sProdukt) und Vektorwinkel (vWinkel) wird allerdings die Fehlermeldung "Argument nicht optional" angezeigt. Meine VBA Kenntnisse bezi...
25.08.2020 10:42:12
Thread-ID: 1778694
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
1
2
3
5
2
8
2