Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1228to1232
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
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variant-Funktion - Rückgabewert Text oder Objekt

Variant-Funktion - Rückgabewert Text oder Objekt
Daniel
Hallo
ich möchte eine Funktion schreiben, die mir als Ergebnis entweder ein Objekt, oder einen Hinweistext liefert, falls das Objekt nicht erstellt/gefunden werden konnte. Dieser Text soll dann die Information enthalten, was jetzt die Ursache für den Fehler war.
Das ist soweit alles kein Problem, scheitert aber an der Tatsache, daß man Objekte immer mit Set zuweisen muss.
dh wenn ich
xxx = MeineFunktion()
schreibe, bekomme ich einen Fehler, wenn die Funktion das Objekt zurückgibt
wenn ich
Set xxx = MeineFunktion()
schreibe, bekomme ich den Fehler, wenn die Funktion den Hinweistext zurückgibt.
Kennt jemand hierfür eine elgante Lösung?
vielen Dank, Daniel
AW: Variant-Funktion - Rückgabewert Text oder Objekt
16.09.2011 13:07:05
Martin
Hallo Daniel,
dann entferne den Hinweistext aus deiner Function und nehme die Variante

Set xxx = MeineFunktion()
Falls das Objekt nicht gefunden wurde:

    If xxx Is Nothing Then
MsgBox "Kein Objekt gefunden"
Exit Sub
End If
Viele Grüße
Martin
AW: Variant-Funktion - Rückgabewert Text oder Objekt
16.09.2011 13:21:22
Daniel
HI
nein, das ist zu einfach.
ich will dem Anwender schon mitteilen, warum die Funktion gescheitert ist, bzw welcher der eingebenen Parameter für das Scheitern verantwortlich ist.
Das kann ich während dem Funktionlauf ganz gut ermitteln und möchte dies natürlich nutzen, ohne daß ich die Funktion 2x laufen lassen muss.
Gruß, Daniel
Anzeige
AW: Variant-Funktion - Rückgabewert Text oder Objekt
16.09.2011 13:30:42
Martin
Hallo Daniel,
mit "VarType(VarName)" kannst du den Untertyp einer Variablen abfragen.
Viele Grüße
Martin
AW: Variant-Funktion - Rückgabewert Text oder Objekt
16.09.2011 13:54:03
Daniel
HI
ja, aber ich müsste ja hierfür den VarType kennen, bevor ich die Variable überhaupt befülle, deswegen geht das nicht.
Gruß, Daniel
AW: Variant-Funktion - Rückgabewert Text oder Objekt
16.09.2011 14:24:48
Martin
Hallo Daniel,
nein, der VarType wird doch automatisch erkannt:

Sub test()
MsgBox VarType(7)
MsgBox VarType("Hinweistest")
End Sub
Gruß,
Martin
AW: Variant-Funktion - Rückgabewert Text oder Objekt
16.09.2011 15:22:05
Daniel
Hi
das würde dann höchsten so funktionieren:

dim Ergebnis as Variant
if Vartype(MeineFunktion(...)) = 9 then
Set Ergebnis = Meine(Funktion(...)
Else
Ergebnis = MeineFunktion(...)
Ende if

das hat aber den Nachteil, daß ich die Funktion 2x laufen lassen muss, das erste mal, um den Typ ihres Rückgabewerts zu ermitteln und das 2. Mal, um das Ergebnis zu berechnen.
Das möchte ich vermeiden, da die Funktion etwas länger zum berechnen braucht.
Gruß, Daniel
Anzeige
Keine Funktion, aber Sub für Text oder Objekt
17.09.2011 17:14:27
Erich
Hi Daniel,
wenn man nicht darauf besteht, dass eine Funktion verwendet werden soll, geht das eigentlich ganz einfach
mit einer Sub-Prozedur mit einem Parameter:

Sub myTest()
Dim varE ' as variant
mySub varE                             ' ein Aufruf
If VarType(varE) = 9 Then
MsgBox "Objekt: " & varE.Name
Else
MsgBox "Hinweis:" & vbLf & varE
End If
End Sub
Sub mySub(vErg)
If Second(Now) Mod 10 > 4 Then
Set vErg = Sheets(1)       ' manchmal ein Objekt
Else
vErg = "Falsche Zeit - kein Objekt" ' sonst Text
End If
End Sub
Die Prozedur für die Objektermittlung muss nur einmal aufgerufen werden.
Im Parameter steht nachher ein Objekt oder ein Text, was sich mit VarType prüfen lässt.
Hier sorgt VBA für die Parameterübergabe und übergibt den jeweils gewünschten Wert.
Bei der Funktion war das Problem, dass man beim Aufruf noch nicht weiß,
ob man das Fkt-Ergebnis ohne oder mit "Set" in eine Variable schreiben soll.
Besser finde natürlich auch ich Franz' Vorschlag mit zwei Parametern - einem Objekt (im Erfolgsfall)
und einem String (für den Hinweis).
Vor längerer Zeit waren sogenannte ReturnCodes (RCs) Standard bei der Programmierung...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Keine Funktion, aber Sub für Text oder Objekt
17.09.2011 23:09:41
Daniel
Hi
Stimmt natürlich, wenn man die ByRef-Funktionalität nutzt, um einen Eingabeparameter direkt als Rückgabewert zu verwenden, dann braucht man im prinzip auch keine Funktion mehr, da ist das natürlich nur konsequent.
Trotzdem bleibt wohl die Erkenntnis, das eine Variant-Funktion aufgrund der Set-Problematik nur eingeschränkt "variant" ist, nämlich entweder als normale Variable oder als Objekt. Beides gleichzeitig ist wohl nicht möglich.
Gruß, Daniel
oder etwa doch?
18.09.2011 00:05:40
Erich
Hi Daniel,
hier ein Beispiel für eine Fkt., die sowohl ein Objekt als auch einen String zurückgeben kann.
Die Fkt. ist damit "voll" variant - nicht nur eingeschränkt.
Ein Problem ist nur, im aufrufenden Programm den Funktionswert einer Variablen zuzuweisen.
Da sehe ich jetzt nur die Möglichkeit, die Fkt. zweimal aufzurufen:

Sub myTest()
Dim varE ' as variant
On Error Resume Next
varE = myFkt()                           ' Aufruf sonst
Set varE = myFkt()                       ' Aufruf Objekt
On Error GoTo 0
If VarType(varE) = 9 Then
MsgBox "Objekt: " & varE.Name
Else
MsgBox "Hinweis:" & vbLf & varE
End If
End Sub
Function myFkt()
If Second(Now) Mod 10 > 4 Then
Set myFkt = Sheets(1)       ' manchmal ein Objekt
Else
myFkt = "Falsche Zeit - kein Objekt" ' sonst Text
End If
End Function
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
mal ohne Funktion
18.09.2011 00:13:22
Erich
Hi Daniel,
nur um zu zeigen, dass die Variant-liefernde Fkt. nicht das Problem ist,
mal ein Beispiel ohne Fkt.:

Sub myTest()
Dim varQ, varE ' as variant
If Second(Now) Mod 10 > 4 Then
Set varQ = Sheets(1)       ' manchmal ein Objekt
Else
varQ = "Falsche Zeit - kein Objekt" ' sonst Text
End If
On Error Resume Next
varE = varQ                           ' Zuweisung sonst
Set varE = varQ                       ' Zuweisung Objekt
On Error GoTo 0
If VarType(varE) = 9 Then
MsgBox "Objekt: " & varE.Name
Else
MsgBox "Hinweis:" & vbLf & varE
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: mal ohne Funktion
18.09.2011 15:15:54
Daniel
Hi Erich
danke für den Hinweis, aber ich denke soweit war das schon klar, daß nicht die Funktion das Problem ist, sondern die Zuweisung an die Variable.
Gruß, Daniel
AW: Variant-Funktion - Rückgabewert Text oder Objekt
16.09.2011 13:30:42
fcs
Hallo Daniel,
wenn du den Fehler-Text nicht in der Function als Meldung ausgeben willst, dann musst du in der Aufrufenden Prozedur eine entsprechende Variabiable deklarieren. Für die Funktion deklarierst du einen zusätzlichen Parameter, in den der Fehlertext geschrieben wird.
Das ganze packst du in eine Fehlerbehandlung in der Funktion.
Gruß
Franz

Sub MakeObject()
Dim sFehlerText As String, oObject As Object, sTest As String
sTest = "Tabelle12"
Set oObject = fncHoleObject(sTest, sFehlerText)
If oObject Is Nothing Then
MsgBox sFehlerText, vbInformation, "Fehler - fncHoleObject - """ & sTest & """"
Else
MsgBox "Objekt wurde eingerichtet" & vbLf & "Objekt-Name: " & oObject.Name, _
vbInformation, "fncHoleObject"
End If
End Sub
Public Function fncHoleObject(ByVal sObjectName As String, ByRef sText As String) As Object
On Error GoTo Fehler
Set fncHoleObject = ActiveWorkbook.Worksheets(sObjectName)
Fehler:
With Err
Select Case .Number
Case 0 'alles ok
Case Else
sText = "Fehler-Nr.: " & .Number & " in Function ""fncHoleObject""" _
& vbLf & .Description
Set fncHoleObject = Nothing
End Select
End With
End Function

Anzeige
AW: Variant-Funktion - Rückgabewert Text oder Objekt
16.09.2011 13:52:54
Daniel
HI
Ok, verstehe, du verwendest eine zusätzlichen Variable, die über die ByRef-Funktionaliät der Funktion befüllts und wandelst damit einen Eingabeparameter zu einem zweiten Rückgabewert.
nicht schlecht die Idee, guter Workaround.
Gruß, Daniel

304 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
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
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1