Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion: Parameterübergabe

Funktion: Parameterübergabe
23.05.2007 09: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
Anzeige
AW: Funktion: Parameterübergabe
23.05.2007 09: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 09: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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige