Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ParamArray
Autor: Martin01
Datum: 27.06.03 15:14
'Module1.Bas Public Sub Main() ParaS 1, "22", 333, "4444", 55555, "666666", 7777777 End Sub Private Sub ParaS(ParamArray Para() As Variant) 'Bekommt: 'Para Optional deklariertes Datenfeld ' ' Werte- | ' bereich| |Aufruf- ' Von|Bis|Anzahl|beispiel ' ---+---+------+-------------- ' 0| -1| 0|ParaS ' 0| 0| 1|ParaS 1 ' 0| 1| 2|ParaS 1, 2 ' 0| 2| 3|ParaS 1, 2, 3 Dim lParaVon As Long, _ lParaBis As Long Dim lLauf As Long Dim sText As String Dim sTextAlle As String lParaVon = LBound(Para) 'kleinsten verfügbaren Index lParaBis = UBound(Para) 'größter verfügbarer Index ' If lParaBis < 0 Then 'Exit Sub 'Keine da, dann ich auch nicht! ' End If 'Alle Para's in einer Schleife Schritt für Schritt ermitteln sText = "" sTextAlle = VBA.vbCrLf & "Alle : " For lLauf = lParaVon To lParaBis sText = sText & "Para: " & VBA.CStr(lLauf) & " = " & VBA.CStr(Para(lLauf)) & VBA.vbCrLf sTextAlle = sTextAlle & VBA.CStr(Para(lLauf)) & " " Next 'Alle Para's zeigen VBA.MsgBox "Para, das Optionale deklariertes Datenfeld für Subs und Functions" & VBA.vbCrLf & _ VBA.vbCrLf & _ "Beispiel: Sub ParaS 1, 2, 3" & vbCrLf & _ "'..." & vbCrLf & _ "Private Sub ParaS(ParamArray Para() As Variant)" & vbCrLf & _ " Dim lParaVon As Long, lParaBis As Long" & VBA.vbCrLf & _ VBA.vbCrLf & _ " lParaVon = LBound(Para) 'kleinsten verfügbaren Index " & VBA.vbCrLf & _ " lParaBis = UBound(Para) 'größten verfügbaren Index" & VBA.vbCrLf & _ " '..." & vbCrLf & _ VBA.vbCrLf & _ sText & sTextAlle, , "Para Anzahl: " & VBA.CStr(lParaBis + 1) End Sub

ParamArray	1.183	Christian	27.06.03 13:59
Re: ParamArray	41	Martin01	27.06.03 15:14
Re: ParamArray	598	Christian	27.06.03 15:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen