Guten Morgen,
hat jemand eine Idee, wie ich Makros, die auf verschiedenen Autoformen in einer Spalte sitzen, hintereinander alle mit einem Modul aktivieren kann?
Freue mich schon auf Antwort.
Lieben Gruß,
Scheinchen
Sub kn()
Dim sh As String
sh = Me.Shapes(Application.Caller).TopLeftCell.Offset(0, -2).Text
Sheets(sh).Select
Call kn_weiter
End Sub
In der Zelle (0, -2) neben der Autoform befindet sich die jeweilige Kundennummer und dann geht es weiter...
Das Modul wurde auf die Seite eingesetzt, wo sich die ganzen Autoformen befinden. Das funktioniert super, aber wie kann ich nun die Autoformen alle zusammen durchlaufen lassen.
Die Autoformen befinden sich untereinander in Spalte D (ca. 20 Stk) , vielleicht hilft das.
Bis denne,
Gruß, Scheinchen
Sub kn_weiter()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value = "Balance" Then
Cells(i, 1).Select
Exit For
End If
Next i
Range(ActiveCell.Offset(0, 3), Cells(Rows.Count, 4).End(xlUp).Offset(0, 0)).Select
Summe = WorksheetFunction.Sum(Selection)
Sheets("Start").Select
ActiveCell.Offset(0, 4).Select
ActiveCell.Value = Summe
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Format(Now, "dd.mm.yy")
End Sub
Hilft das weiter?
Lieben Gruß,
Scheinchen
Sub kn()
Dim sh As String
sh = Me.Shapes(Application.Caller).TopLeftCell.Offset(0, -2).Text
Sheets(sh).Select
Call kn_weiter
End Sub
Zwei Felder links neben den Autoformen befindet sich jeweils die Kundennummer und damit wird das Makro auf das entsprechende Kunden-Sheet geleitet.
Nun möchte ich mit einem Klick alle Autoformen aktivieren und somit alle Kundenkonten aktualisieren.
Ist das jetzt verständlicher?
Lieben Gruß,
Scheinchen