|
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 |
|
|
 Benutzerdefinierte Funktion "Verbinden" |
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:
Alexander |
Datum:
17.07.2021 14:51:15 |
Views:
214 |
Rating:
|
Antwort:
|
Thema:
Benutzerdefinierte Funktion "Verbinden" |
|
Vielen Dank für die Antwort!
Ich hätte dazu noch ein paar Fragen:
Option Explicit
Public Function Verbinden(ParamArray Args() As Variant) As String
Dim vntArg As Variant
Dim rngCell As Excel.Range 'Wären Excel.Range und Range in dem Fall das gleiche?
Dim strOut As String
For Each vntArg In Args
If IsObject(vntArg) Then 'Welche Bedingung frage ich hier genau ab? Ob es überhaupt ein Argument gibt?
If TypeOf vntArg Is Excel.Range Then
'-> Range
For Each rngCell In vntArg.Cells 'Heißt: für jede Zelle im Zellbereich? vntArg.Cells = Argumente des Zellbereichs?
strOut = strOut & rngCell.Value
Next
End If 'Bis hier geht es um eine Zelle oder einen Zellbereich?
ElseIf IsNumeric(vntArg) Then 'Ab hier ermögliche ich die "händische" Eingabe von Argumenten?
'-> Zahl
strOut = strOut & vntArg
Else
'-> String
strOut = strOut & vntArg
End If
Next
Verbinden = strOut
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 |
|
|
Benutzerdefinierte Funktion "Verbinden" |
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 |
|
|