Funktion: Parameterübergabe

Forumthread: Funktion: Parameterübergabe
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Funktion: Parameterübergabe

23.05.2007 11:15:00

Helmut

Hallo,
ich arbeite an einer Funktion die wie folgt ausschaut: Function Test(Bereichx)
Wenn ich diese Funktion in Excel aufrufe und an Bereichx die Werte "A1:A5" übergebe klappt alles wunderbar.
Wenn ich aber das ganze erweitere wie: "A1:A5";"C1:C5" funktioniert die Funktion nicht mehr.
In meiner Anwendung benötige ich aber diese geteilte Angabe.
Wer kann mir helfen?
Gruß
Helmut

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Funktion: Parameterübergabe

23.05.2007 11:33:00

Jan3
AW: Funktion: Parameterübergabe

23.05.2007 11:38:05

Luschi

AW: Funktion: Parameterübergabe

23.05.2007 11:33:00

Jan3

Hi Helmut,
Statt das Semikolon kannst Du mal das Komma nutzen, um mehrere Bereich auszuwerten.
Jan

AW: Funktion: Parameterübergabe

23.05.2007 11:38:05

Luschi

Hallo Helmut,
das macht man so:


Function testBereich(xBereich As String)
Dim myArr()  As String, i As Integer
'myArr ist ein undimensioniertes Array
'die Split-Funktion zerteilt den übergebenen String in mehrere Array-Elemente
'Trennzeichen ist dabei das Semikolon
myArr = Split(xBereich, ";", -1, vbTextCompare)
For i = 0 To UBound(myArr())
ActiveSheet.Range(myArr(i)).Interior.ColorIndex = 5
Next i
End Function

Gruß von Luschi
aus klein-Paris