Range an Sub/Funktion übergeben
27.02.2019 18:20:24
Maiserinio
ich würde gerne einfach nur eine Range Variable übergeben an eine Sub einer selbstkreierten Klasse, um anhand dieser das Objekt mit Daten zu füllen
Diesen *Haufen hab ich bis jetzt produziert, aber er behauptet "Objekt erforderlich" an der Stelle als die
Sub anhand des Objektes objJob aufgerufen wird:
Sub JobDealing()
Dim rngClimber As Range
Dim intLastWs As Integer
intLastWs = Workbooks(gStrMYWb).Worksheets.Count
Set rngClimber = Workbooks(gStrMYWb).Worksheets(intLastWs).Cells(2, 2)
While Not rngClimber = vbNullString
Dim objJob As New clsJob
objJob.AssignToNextTask (rngClimber)
Set objJob = Nothing
Set rngClimber = rngClimber.Offset(1, 0)
Wend
End Sub
gStrMYWb ist einfach nur der Name des Workbooks, könnte zu testzwecken also auch durch ThisWorkbook ersetzt werden(ich habe es nur drin gelassen, falss diese Annahme falsch ist)
in AssignToNextTask passiert bis jetzt noch NICHTS:
Sub AssignToNextTask(rngTester As Range)
End Sub
Mit (byref rngTester as range) habe ich es auch schon versucht..
Da dies mein erster Beitrag ist(Leser bin ich schon eine Weile),
möchte ich an dieser Stelle auch einmal Hallo und vielen Dank sagen!
Viele Grüße Maiserino