Wochenprobleme

Function abc()
Cells(1,1)="Hallo"
End Function

Function nicht ausgeführt, bzw wird sie ausgeführt aber
es wird nicht "Hallo" geschrieben(!?)
2. Müssen Functions immer in einem Modul stehen?
3. Wie kann man von einer 

Sub ein ganzes Feld einer anderen 

Sub übergeben?

Sub Eins()
for i=1 to 10
A(i)=Cells(i,1)
next
call zwei A(i) '?
End Sub



Sub Zwei(A(i))
for i=1 to 10
Cells(1+i,1)=A(i)
End Sub


-------------------------------------------------------------

Ich habe auch noch ein select Problem:

For i = 1 To 19000

  fehler = False

  Tabname = Feld(i, 0) 'Feld(i,0) enthält immer einen Sheetnamen(häufig derselbe)

  

  If Left(Tabname, 1) = "6" Then

    Sheets(Tabname).Select		'Hier kommt Überlauf fehler!! Warum?

  ElseIf Left(Tabname, 1) = "5" Then

    Sheets(Tabname & " Data").Select

  Else

    fehler = True

  End If

  

  If fehler = False Then

    For ii = 0 To 8

      Cells(i + 15, ii + 1) = Feld(i, ii)

    Next

  End If

  

Next

Danke im voraus!