Anbei ein kleines Makro, das in einer Zelle die Summenlinien zieht. Auch wenn es nur ein kleines Makro ist, erspart es in der Praxis viel Zeit und Klicks. Nicht jeder hat die Übung, weil er es nicht ständig macht.
Genaueres im Kopf des Makros
Das Makro ist ein Auszug aus einem Makro für eine Artikelumsatzstatistik, das ich auch noch zur Verfügung stellen werde.
Code:
' Planmaker-Makro für Summenlinien
'
' Stand: 22.08.2008
'
' Makro setzt in die Zelle, in der der Cursor steht
' oberer Rand einzelnen Linie
' unterer Rand doppelte Linie
' Schriftart auf fett
Set pm = CreateObject("PlanMaker.Application") ' Verbindung aufbauen
pm.Application.Visible = True
' Prüfung ob ein Arbeitsblatt geöffnet
If pm.Application.Workbooks.Count = 0 Then
MsgBox "Kein Dokument geöffnet!"
Stop
End If
pm.ActiveSheet.Selection(1, 1).Borders(pmBorderTop).Type = pmLineStyleSingle
pm.ActiveSheet.Selection(1, 1).Borders(pmBorderBottom).Type = pmLineStyleDouble
pm.ActiveSheet.Selection(1, 1).Font.Bold=True
Set pm = Nothing ' Verbindung aufheben
Anmelden
Registrieren
FAQ
Suche
