zugriff auf Funktionen von allen Tabellen

Private Sub daten_kopieren()
Dim i As Integer, name As String
Dim z As Integer, s As Integer, e As Integer
Dim zneu As Integer, sneu As Integer
z = zeile("Kundenart")
s = spalte("Kundenart")
e = ende
z = z + 1
MsgBox prompt:=z & ", " & s
For i = z To e
MsgBox prompt:="i: " & i
If Cells(i, s).Value = "" Then
name = Cells(i - 1, s + 1).Value
Cells(i, s + 1).Select
'Range(Cells(i, s + 1), Cells(i, s + 5), Cells(i, s + 7)).Select
Selection.Copy
Sheets("sheet1").Select
zneu = zeile(name)
sneu = spalte(name)
ActiveSheet.Cells(zneu, sneu).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Direktgeschäft nach OO").Select
End If
Next
End Sub