Funktion für mehrere Subs verwenden
27.01.2004 22:13:06
Christian Becskei
Nach dem ich nicht wirklich VBA programmieren kann und jetzt an einem Basic scheitere bitte ich um kurze Unterstützung.
Ich habe eine Funktion geschrieben, die ich in anderen Funktionen immer wieder brauche. Um nun diese Funktion nicht in alle anderen Funktionen immer wieder zu integrieren und die Variablen entsprechend lokal zu definieren bzw. ihnen immer wieder andere Namen zu geben, möchte ich die Funktion aus den anderen Funktionen aufrufen und den Wert zurückgeben,
Meine immer wieder benutzte Funktion sieht wie folgt aus
Sub Search_rangeDef()
Dim numberRows As Variant
numberRows = 0
Dim rowIndex As Variant
rowIndes = 1
For rowIndex = 1 To 1000
If Sheets("Auswertungsdaten").Cells(rowIndex, 1).Value = "" Then
Else
numberRows = numberRows + 1
End If
Next rowIndex
Dim rangeDef As Variant
rangeDef = "A1:D" & numberRows
End Sub
Nun möchte ich zum Beispiel in einer anderen Funktion diesen "rangeDef" Wert weiter verwenden.
Zum Beispiel:
Sub Autofilter_Date()
Sheets("Auswertungsdaten").Select
'generate advanced filter
Sheets("Kontodaten").Range(rangeDef).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("F15:I16"), CopyToRange:=Range("A1:D1"), Unique:=False
Create_Pivottable
End Sub
Leider habe ich keine Ahnung wie ich in die untere Funktion in die obere integrieren muss, damit ich den Wert "rangeDef" verwenden kann.
Vielleicht kann mir jemand einen Tipp geben.
Ich muss in dieser Arbeitsmappe X Pivottabellen erzeugen und dafür muss ich bei jeder diesen Suchbereich variable bestimmen, daher benötige ich so of diesen "rangeDef" Wert aus der oberen Sub.
Ich bedanke mich schon jetzt für eure Hilfe.
mfg
Christian