Sub ruft Function auf; Ergebnis in Array speichern
Enrico
mit Hilfe der Suche war es mir nicht moeglich mein Problem zu loesen, ich denke aber fuer einen von euch sollte es kein Problem sein :-)
Ich habe eine Sub Prozedur geschrieben, die bei einer bestimmten Bedingung eine Funktion called. Das funktioniert auch alles einwandfrei.
Nun habe ich gelesen, dass es angeblich nicht moeglich ist, dass Ergebnis der Function wieder mit zurueck in die Sub zu uebernehmen.
Aus diesem Grund dachte ich mir, okay, dann speicher ich eben alle Werte in einem Array. Als Anfaenger faellt es mir schwer mit diesen Arrays umzugehen... :-(
Erste kleinere Versuche funktionierten ganz gut, aber in mein Programm einbinden konnte ich es nicht.
Fehlermeldung ist immer in der Function, dass die Sub oder Function nicht definiert ist...
Anbei mein Code mit BITTE um schnellstmoegliche Loesungsvorschlaege ;-)
Danke schon mal vorab!
Gruss aus Shanghai
"
Dim IntArr(1 To 500, 1 To 28) As Integer
Public Sub test22()
Dim Sht As Worksheet
Dim SSheetname As String
i = 1
'Application.ScreenUpdating = False
For Each Sht In ActiveWorkbook.Worksheets
Sht.Activate
SSheetname = ActiveSheet.Name
Length = Len(SSheetname)
PositionMinus = InStr(SSheetname, "-")
If Length = 7 And PositionMinus = 5 Then
sheetname = SSheetname
Call Module1.TotalQtyWeek(sheetname, i)
i = i + 1
End If
Next Sht
End Sub
Public Function TotalQtyWeek(sheetname, i)
Sheets(sheetname).Activate
ActiveSheet.Columns("t:v").Select
Selection.Find(What:="Total Manpower", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
LastRow = ActiveCell.Row - 1
IntArr(i, 1) = 15 'HIER PASSIERT DER FEHLER?
End Function
"