Office 2010: Problem mit Ausgabe des Ergebnis aus einer benutzerdefinierten Funktion

[sacoma]

Hallo Leute!

Ich habe einige Funktionen programmiert, die im Prinzip funktionieren; im „Debug.Print“ und im Menü „Funktionsargumente“ wird das Ergebnis richtig angezeigt, aber die Ausgabe in den Excel-Zellen ist immer „#Wert“.
Ich habe die Funktionen in eine Beispiel-Datei kopiert und eine Tabelle erstellt mit Beispiel-Werten.
Alle möglichen, üblichen Fehlerquellen (wie z.B.: Leerzeichen etc.) habe ich ausgeschlossen.
Ich hoffe, mir kann jemand helfen.

LG,

sacoma

[maninweb]

Hallo,

was möchtest Du mit den Funktionen erreichen?

Falls Du die Überschriftsinhalte aus den Zuordnungstabellen entsprechend der Angabe in Spalte A erhalten
möchtest, brauchst Du kein VBA dafür. Formeln...

Code: Visual Basic

1. B6=INDEX(Darm_Kaliber_Zuordnung[#Kopfzeilen];1;SUMMENPRODUKT(SPALTE(Darm_Kaliber_Zuordnung)*(Darm_Kaliber_Zuordnung=$A6))-
2.    SPALTE(Darm_Kaliber_Zuordnung[[#Kopfzeilen];[Kal. 18]])+1)
3.  
4. C6=INDEX(Maschinen_Zuordnung[#Kopfzeilen];1;SUMMENPRODUKT(SPALTE(Maschinen_Zuordnung)*(Maschinen_Zuordnung=$A6))-
5.    SPALTE(Maschinen_Zuordnung[[#Kopfzeilen];[Tiefzieher]])+1)
6.  
7. D6=INDEX(Zuordnung_Spezi_Gruppen[#Kopfzeilen];1;SUMMENPRODUKT(SPALTE(Zuordnung_Spezi_Gruppen)*(Zuordnung_Spezi_Gruppen=$A6))-
8.    SPALTE(Zuordnung_Spezi_Gruppen[[#Kopfzeilen];[fettig]])+1)

Voraussetzung für die Formeln sind, dass die Artikel eindeutig in den Tabellen sind. Ist bei P1007 nicht der Fall.

Was den Code betrifft, sind da einige Fehler drin, wie Set rng_Spalte = Range("Spalte"), den benannten Bereich
gibt's nicht, ich vermute, dass es Range("def_Spalte") sein sollte. Um eine Spaltennummer zu ermitteln musst
Du nicht den Umweg über eine Formel gehen, das geht auch z.B. so: sp1 = rng_dkz.Cells(1, 1).Column

Gruß

[sacoma]

Hallo maninweb!

Danke für deine Antwort.

Ja, ich möchte die Überschriftsinhalte aus den Zuordnungstabellen für die jeweilige Aritkel-Nummer…
So was dummes auch! Ich dachte, ich hätte den benannten Bereich wieder richtig umbenannt.
Ich wollte testen, ob es vielleicht am Range „Spalte“ lag, dass ständig  „#Wert“ als Ergebnis ausgegeben wurde.

Ich habe nun meine Datei korrigiert und hochgeladen.

Was den Rest angeht: Ich will ja nur wissen, warum das Ergebnis immer „#Wert“ ist obwohl alle Variablen funktionieren. Der Fehler muss in der Übergabe von der Variable „str_ergebnis“ zu z.B.:„Abfrage_Darm_Kaliber“ sein.

Deine Formel-Lösung ist zwar sehr interessant, aber für mich zu kompliziert.
Mit Matrix-Formeln kenne ich mich nicht aus.
Außerdem mag ich keine zu sehr verschachtelten Formeln; da verklickt man sich einmal und schon ist sie im Eimer.
Eine benutzerdefinierte Funktion wäre hier besser für mich.
Noch eine Frage:

Voraussetzung für die Formeln sind, dass die Artikel eindeutig in den Tabellen sind. Ist bei P1007 nicht der Fall.

– Was meinst du damit?

LG,

sacoma

[maninweb]

Hallo,

eine Formellösung ist so gut wie in fast allen Fällen einer VBA-Lösung vorzuziehen. Matrixformeln sind das nicht,
nur Index & Summenprodukt-Formeln. 

Zum Verständnis: Index sucht Dir aus einer Matrix = Bereich einen Wert an der Position X = Zeile und Y = Spalte
heraus. Das wäre bei Dir die Zeile mit den Spaltenköpfen, also ein Bereich Zelle_1 bis Zelle_n mit einer Höhe = 1.
Ergibt: INDEX(Der_Bereich_für_Spaltenüberschriften; 1; Zu_suchende_Spalte_in_dem_Bereich).

So, jetzt musst Du dann die Spalte suchen. Dafür durchsuchst Du die Datentabelle (unterhalb der Spaltenköpfe)
nach dem Artikel z.B. P1000. Damit ein vernünftiges Ergebnis rauskommt, darf es den Artikel nur einmal in der
Tabelle geben (Das war meine Anm. zur Eindeutigkeit). Mit Summenprodukt kannst Du recht einfach die Position
finden: Die Spaltennummer * Bedingung liefert Dir in etwa vereinfacht {10, 11 , 12} * {0, 1, 0} = 11. Die Spalten-
nummer ist aber gezählt von A1, weshalb Du nochmal die Startspalte der Datentabelle abziehen musst.

Für den Code habe ich momentan zu wenig Zeit, später vielleicht.

Gruß

[sacoma]

Hallo!

Also, ich habe die ganze Woche an dem Problem gearbeitet und eine alternative Lösung bzw. Code geschrieben.
Die Lösung wollte ich anderen Usern nicht vorenthalten.

Mich würde trotzdem interesserien, warum mein erster Entwurf vom VBA nicht richtig ausgegeben werden konnte und diese Alternative schon...
Aber ich fürchte, manche Dinge in Excel-VBA bleiben für mich rätselhaft...

LG,

SaCoMa