Übergabe eines Bereichs in eine Sub
25.11.2006 12:00:17
Rainer
ich habe mir gerade folgenden Code gebastelt:
Private a
Private Sub CommandButton1_Click()
a = Sheets("Tabelle1").Range("B2").Address
Call Test
End Sub
Private Sub CommandButton2_Click()
a = Sheets("Tabelle1").Range("B7").Address
Call Test
End Sub
Sub Test() 'auch im Codeblatt der Tabelle!
Sheets("Tabelle2").Cells(1, 1) = Range(a).Offset(0, -1)
Sheets("Tabelle2").Cells(2, 1) = Range(a).Offset(1, 0)
Sheets("Tabelle2").Cells(3, 1) = Range(a).Offset(0, 1)
End Sub
Das funktioniert auch. Bis jetzt dachte ich, in das Codeblatt der Tabelle kann ich nur Private Sub´s schreiben, allgemeine Sub´s immer in ein Modul. Anscheinend funtktioniert es auch so. Kann es hier irgendein Problem geben oder ist die Übergabe so wirklich richtig dargestellt?
Gruss Rainer
Anzeige