Executer une macro a partir d'une autre feuille
Bonjour,
J'ai le code suivant qui fonctionne tres bien dans la feuille de calcul (Datenbasis IST-Stunden) ou j'en ai besoin. Seulement, comme j'ai plusieurs macro a appliquer, j'aimerais creer une interface a part (sur une autre feuille) d'ou je pourrais lancer toutes mes macros.
Pour certaines j'ai reussi a modifier le code, mais pas pour celle la, car il y a des zones que je ne comprend pas completement.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub SommeTest()
Dim Datenbasis As Worksheet
Dim cmpt As Long, c As Range, tcmpt As Long
Set Datenbasis = Worksheets("Datenbasis IST-Stunden")
For Each c In Datenbasis.Range("F2:F" & Datenbasis.Cells(Rows.Count, 6).End(xlUp).Row + 1)
If Trim(UCase(c.Value)) Like "*ERGEBNIS*" Then
c.Offset(0, 2) = cmpt
tcmpt = tcmpt + cmpt
cmpt = 0
ElseIf Trim(UCase(c.Value)) Like "*GESAMT*" Then
c.Offset(0, 2) = tcmpt
Else
cmpt = cmpt + c.Offset(0, 2)
End If
Next
End Sub |
Je m'excuse pour l'abscence d'accents mais etant a l'etranger je n'en ai pas sur mon clavier.
