|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.07.2021 17:54:08 |
Alexander |
|
|
|
16.07.2021 19:16:07 |
Gast36769 |
|
|
|
17.07.2021 11:48:23 |
Alexander |
|
|
|
17.07.2021 12:13:15 |
Gast88039 |
|
|
|
17.07.2021 13:41:00 |
Gast54996 |
|
|
|
17.07.2021 15:03:24 |
Alexander |
|
|
|
17.07.2021 14:12:15 |
Gast36769 |
|
|
|
17.07.2021 14:43:18 |
Alexander |
|
|
|
17.07.2021 12:32:28 |
Gast50100 |
|
|
|
17.07.2021 13:36:35 |
Gast79267 |
|
|
|
17.07.2021 14:51:15 |
Alexander |
|
|
|
17.07.2021 16:39:45 |
Gast6534 |
|
|
 Benutzerdefinierte Funktion "Verbinden" |
18.07.2021 00:10:17 |
Gast36769 |
|
|
|
18.07.2021 04:28:00 |
Gast6663 |
|
|
|
19.07.2021 13:34:54 |
Gast85832 |
|
|
|
18.07.2021 11:51:27 |
Alexander |
|
|
|
18.07.2021 11:48:59 |
Alexander |
|
|
Von:
Gast36769 |
Datum:
18.07.2021 00:10:17 |
Views:
175 |
Rating:
|
Antwort:
|
Thema:
Benutzerdefinierte Funktion "Verbinden" |
|
Ja,
und manchmal hilft es auch, sich auf die wesentlichen Dinge zu konzentrieren. Wer braucht bitte eine Prüfung auf Object? Wer braucht eine Unterscheidung nach String und IsNumber? Wie gesagt, es gibt nur drei unterschiedliche Datentypen, auf die man reagieren muss. Ich habe das so gelöst (Sorry, bin eigentlich nicht so, aber gerade bin ich echt genervt.):
Public Function Verbinden(ParamArray allArgs() As Variant) As String
Dim oneArg As Variant
Dim oneCell As Range
Dim result As String
For Each oneArg In allArgs
Select Case TypeName(oneArg)
Case "String", "Double"
result = result & CStr(oneArg)
Case "Range"
For Each oneCell In oneArg
result = result & CStr(oneCell)
Next oneCell
End Select
Next oneArg
Verbinden = result
End Function
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
16.07.2021 19:16:07 |
Gast36769 |
|
|
|
17.07.2021 11:48:23 |
Alexander |
|
|
|
17.07.2021 12:13:15 |
Gast88039 |
|
|
|
17.07.2021 13:41:00 |
Gast54996 |
|
|
|
17.07.2021 15:03:24 |
Alexander |
|
|
|
17.07.2021 14:12:15 |
Gast36769 |
|
|
|
17.07.2021 14:43:18 |
Alexander |
|
|
|
17.07.2021 12:32:28 |
Gast50100 |
|
|
|
17.07.2021 13:36:35 |
Gast79267 |
|
|
|
17.07.2021 14:51:15 |
Alexander |
|
|
|
17.07.2021 16:39:45 |
Gast6534 |
|
|
Benutzerdefinierte Funktion "Verbinden" |
18.07.2021 00:10:17 |
Gast36769 |
|
|
|
18.07.2021 04:28:00 |
Gast6663 |
|
|
|
19.07.2021 13:34:54 |
Gast85832 |
|
|
|
18.07.2021 11:51:27 |
Alexander |
|
|
|
18.07.2021 11:48:59 |
Alexander |
|
|