In einer weiteren Spalte gibst Du die Formel ein für die Rundung. Steht der zu rundende Wert z.B. in A1 dann wäre die Formel:
=Runden(A1/100+0,5;0)*100
Man dividiert also erst durch 100 und addiert 0,5 damit Runden kaufmännisch richtig rundet, sonst werden einfach die Nachkommastellen abgeschnitten. Danach mulitipliziert man das gerundete Ergebnis wieder mit 100.
Du kannst von Excel direkt die Termine von Outlook auswerten und in einem Sheet auflisten via VBA. Ich denke, dass hast Du gemacht.
Danach kannst Du dieses Sheet über Pivot-Tabelle nach Kategorien sortieren und automatisch summieren lassen pro Woche oder Tag.
Für den ersten Schritt, musst Du in Excel VBA den Verweis auf Outlook setzen. Dafür auf den Reiter Entwiklertools gehen (evtl. im Menüband über Datei-Optionen-Menüband anpassen auswählen) und dann auf Visual Basic gehen. Es erscheint ein neues Fenster. Dort im Menü Extras-Verweise "Microsoft Outlook 14.0 Object Library" auswählen.
Dann in dem Fenster Doppelklicken und den Code einfügen. Falls Du das Datum einschränken möchtest, kannst Du dies in einer Eingabemaske tun.
Public Sub ExportTermine() Dim myCal As Outlook.Folder Dim myOlApp As New Outlook.Application Dim myItems As Outlook.items Dim mySheet As Worksheet Dim x As Integer
Set myCal = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar) Set myItems = myCal.items.Restrict("[Start] <= 'today'") Set mySheet = ThisWorkbook.Sheets("Tabelle1")
'Schleife über alle vergangenen Termine
For x = 1 To myItems.Count
mySheet.Cells(x, 1) = myItems.Item(x).Start
mySheet.Cells(x, 2) = myItems.Item(x).End
mySheet.Cells(x, 3) = myItems.Item(x).Categories
mySheet.Cells(x, 4) = myItems.Item(x).Subject
Next x
Am einfachsten mittels F5 ausführen. Dann solltest Du alle Termine im Sheet haben.
Jetzt kannst Du in den restlichen Spalten das tun, wass Du möchtest und in Pivot auswerten.
Es geht ganz konventionell ohne VBA:
Schreibe in die Zelle, in welcher das Ergebnis kopiert werden soll: =WENN(ZEILE()/5=RUNDEN((ZEILE()/5);0);A1;"") A1 ist die erste Zelle der 5. Zeile welche Du kopieren möchtest.
Ich hatte auch Probleme mit der Firma Teleshop Versandhandels AG. Mir hat geholfen, dass ich offiziell in Lichtestein einen Mahnbescheid beantragt hatte. Eine Frau Antje Lageder Sekretariat Tel.: +423 236 6904 Fax: +423 236 6907 E-Mail: antje.hasler@aht.llv.li
Amt für Handel und Transport KONSUMENTENBERATUNGSSTELLE Postfach 684 9490 Vaduz Liechtenstein T +423 236 69 99 F +423 236 69 07 komsumentenschutz@aht.llv.li www.konsumentenschutz.llv.li
hatte sich bei der Firma gemeldet und plötzlich hat die Rechtsabteilung von Teleshop sich bei mir gemeldet: Mag. Astrid Zandl Rechtsabteilung e-Mail: law@die-teleshopper.li
Viel Glück!