Hilfe bei Makro......
23.02.2006 11:12:04
Joachim
ich brauche nocheinmal Hilfe bei einem Makro.
Ich habe ein Makro in Modul1 bei einer Mappe.
Dieses Makro wird nur auf einer Tabelle innerhalb der Mappe genutzt.
Private Sub UngesperrteLoeschen1()
Dim rng As Range, c As Range
For Each rng In Range("A1:O101")
If Not rng.Locked Then
If rng.MergeCells Then
rng.MergeArea.ClearContents
Else
rng.ClearContents
End If
End If
Next
Nun möchte ich dieses Makro -umstricken- so, dass es in einer anderen Mappe
eine fast Gleiche Funktion hat. Doch in dieser Mappe sind mehrere Tabellen auf die diese Funktion angewendet werden soll.
In dieser Mappe ist bereits ein Makro, welches derart definiert ist, dass es die Parameter des jeweiligen Blattes übertragen bekommt.
Dieses Makro ist im Modul1 und bekommt je nach dem auf welchem Tabellenblatt ich mich gerade befinde die entsprechenden Quellparameter übertragen.
Im Modul steht das Makro:
Sub Daten_übertragen(Quelltabelle As String, Quellbereiche As String, Zielbereiche As String)
End Sub
----------------------------------
In den jeweiligen Tabellenblättern steht dann:
Private Sub CommandButton1_Click()
Call Daten_übertragen("Team1", "K8:O14;K16:O18", "E19;E26")
End Sub
-----------------------------------------------------
Nun möchte ich das Makro -UngesperrteLoeschen-
so umsetzen, dass Variable definiert werden die je nachdem auf welchem Tabellenblatt ich mich gerade befinde -also das aktive Blatt ist- den Parameter dieses aktiven Blattes erhält. der Bereich der gelöscht werden soll ist bei jedem Blatt identisch.
Also:
aktives Blatt -Team1-
zu löschender Bereich A8:G500
--
aktives Blatt -Team2-
zu löschender Bereich A8:G500
--
usw.
Auf jedem Blatt wird nun ein Button plaziert der auf das Makro -UngesperrteLoeschen- verweist.
als Parameter bekommt er eben nur noch den Namen des Aktiven Blattes mitgegeben.
_______________________________________________
Ich hoffe es ist nicht zu konfus und man versteht was ich will.
Gruss Joachim