zugriff auf Funktionen von allen Tabellen
05.11.2003 11:52:58
Tobias
Kann man von allen Worksheets aus auf eine "zentrale" Funktion/Sub zugreifen?
Der Hintergrund:
ich will einen Wert aus einem sheet in ein anderes sheet kopieren, muss dort aber erst einen namen suchen.
mein bisheriger quellcode:
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
leider sucht er immer bei (zneu und sneu) in dem sheet aus der die Zelle kopiert wird.
thx 4 ur answers!