|
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 |
|
|
 Benutzerdefinierte Funktion "Verbinden" |
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 |
|
|
|
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:
Gast50100 |
Datum:
17.07.2021 12:32:28 |
Views:
222 |
Rating:
|
Antwort:
|
Thema:
Benutzerdefinierte Funktion "Verbinden" |
|
Diese Aufgaben sind immer nach dem selben Muster aufgebaut, sie fragen immer das gleiche Wissen ab und der Lösungsweg ist immer der gleiche.
Sollte es da nicht langsam klar sein?
Option Explicit
Public Function Verbinden(ParamArray Args() As Variant) As String
Dim vntArg As Variant
Dim rngCell As Excel.Range
Dim strOut As String
For Each vntArg In Args
If IsObject(vntArg) Then
If TypeOf vntArg Is Excel.Range Then
'-> Range
For Each rngCell In vntArg.Cells
strOut = strOut & rngCell.Value
Next
End If
ElseIf IsNumeric(vntArg) Then
'-> Zahl
strOut = strOut & vntArg
Else
'-> String
strOut = strOut & vntArg
End If
Next
Verbinden = strOut
End Function
PS: Foren sind kein Ort zum Lösen von Aufgaben!
|
- 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 |
|
|
Benutzerdefinierte Funktion "Verbinden" |
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 |
|
|
|
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 |
|
|