Thema Datum  Von Nutzer Rating
Antwort
16.07.2021 17:54:08 Alexander
NotSolved
16.07.2021 19:16:07 Gast36769
NotSolved
17.07.2021 11:48:23 Alexander
NotSolved
17.07.2021 12:13:15 Gast88039
NotSolved
17.07.2021 13:41:00 Gast54996
NotSolved
17.07.2021 15:03:24 Alexander
NotSolved
Rot Benutzerdefinierte Funktion "Verbinden"
17.07.2021 14:12:15 Gast36769
*****
NotSolved
17.07.2021 14:43:18 Alexander
NotSolved
17.07.2021 12:32:28 Gast50100
*****
Solved
17.07.2021 13:36:35 Gast79267
NotSolved
17.07.2021 14:51:15 Alexander
NotSolved
17.07.2021 16:39:45 Gast6534
*****
NotSolved
18.07.2021 00:10:17 Gast36769
*****
NotSolved
18.07.2021 04:28:00 Gast6663
NotSolved
19.07.2021 13:34:54 Gast85832
NotSolved
18.07.2021 11:51:27 Alexander
NotSolved
18.07.2021 11:48:59 Alexander
NotSolved

Ansicht des Beitrags:
Von:
Gast36769
Datum:
17.07.2021 14:12:15
Views:
163
Rating: Antwort:
  Ja
Thema:
Benutzerdefinierte Funktion "Verbinden"

Der Knackpunkt an dieser Aufgabenstellung ist, dass eben nicht nur Zellbezüge an die Funktion übergeben werden können, sondern auch feste Zeichenketten und feste Zahlen (also sowas wie in den Testformeln "abc" oder 4,5 oder 1). Das Ganze in beliebiger Reihenfolge und Menge. Deshalb hatte ich sehr gezielt die Formel =Verbinden(A1:A3;1;"A";A1) zum Ausgeben der Datentypen ausgewählt.

Da kommen nämlich alle Datentypen drin vor, mit denen du es zu tun bekommen kannst, auf die du also reagieren musst. Zusätzlich kannst du sehen, dass die beiden Elemente A1:A3 und A1 den gleichen Datentyp Range haben, das erste aber offensichtlich mehrere Zellen sind, während A1 nur eine Zelle ist. Mehrere Zellen sollten dir aus der BuchstabenZaehlenFunktion bekannt vorkommen.

Da es schon eine Komplettlösung gibt, gebe ich dir mal den ersten Schritt vor, den ich gestern zur Umsetzung vorgeschlagen hatte. Das Ausgeben der Datentypen zu allen Elementen des übergebenen Arrays. Wie gesagt, die Ausgabe kannst du dir ansehen, wenn du im Quellcode Editor Strg+G drückst:

Public Function Verbinden(ParamArray allArgs() As Variant) As String

Dim oneArg As Variant

  For Each oneArg In allArgs
    Debug.Print TypeName(oneArg)
  Next oneArg
End Function

Ein Schlüssel zum Verständnis ist der Übergabeparameter. Kannst du dir herleiten, warum hier ParamArray allArgs() As Variant verwendet wird?

Wieviele dieser Übungsaufgaben hast du denn?


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.07.2021 17:54:08 Alexander
NotSolved
16.07.2021 19:16:07 Gast36769
NotSolved
17.07.2021 11:48:23 Alexander
NotSolved
17.07.2021 12:13:15 Gast88039
NotSolved
17.07.2021 13:41:00 Gast54996
NotSolved
17.07.2021 15:03:24 Alexander
NotSolved
Rot Benutzerdefinierte Funktion "Verbinden"
17.07.2021 14:12:15 Gast36769
*****
NotSolved
17.07.2021 14:43:18 Alexander
NotSolved
17.07.2021 12:32:28 Gast50100
*****
Solved
17.07.2021 13:36:35 Gast79267
NotSolved
17.07.2021 14:51:15 Alexander
NotSolved
17.07.2021 16:39:45 Gast6534
*****
NotSolved
18.07.2021 00:10:17 Gast36769
*****
NotSolved
18.07.2021 04:28:00 Gast6663
NotSolved
19.07.2021 13:34:54 Gast85832
NotSolved
18.07.2021 11:51:27 Alexander
NotSolved
18.07.2021 11:48:59 Alexander
NotSolved