Hallo Andreas!
Zu meiner Schande muss ich gestehen, dass ich leider nicht
weiss, was ein Makro ist 
Man kann nicht alles wissen und das ist keine Schande!
Ein Makro ist einfach eine automatisierte Abfolge von Befehlen - ein Programm könnte man sagen.
Bin aber generell an jeder guten Lösung interessiert 
Ich denke mal, dass es sicher eine sehr einfache Sache ist, wenn Du nachfolgende Schritte genau einhältst.
1.) Ganz wichtig!!! Unbedingt mal eine Sicherung Deiner PST-Datei machen. Einfach mit Start - Suchen - Dateien nach allen Dateien mit der Endung pst suchen -> *.pst eingeben. Diese dann in ein eigenes Verzeichnis kopieren !!!
2.) Im Outlook unter Extras - Makro - Visual Basic Editor anklicken - damit solltest Du in die VBA-Umgebung kommen.In diesem Fenster die nachfolgenden Zeilen unter Punkt 3 einfügen. Bei beiden PC´s muß das durchgeführt werden.
3.) Makro
Sub AlleTermineExportieren()
Dim olApp As Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olCalendar As Outlook.MAPIFolder
Dim olAppointment As Outlook.AppointmentItem
Dim s As String
Dim d As Date
Dim t As Date
Dim ts As String
Open „a:\termine.txt“ For Output As #1
Dim n As Integer
Set olApp = CreateObject(„Outlook.Application“) 'oder New Outlook.Application
Set olNameSpace = olApp.GetNamespace(„MAPI“)
Set olCalendar = olNameSpace.GetDefaultFolder(olFolderCalendar)
n = 0
For Each olAppointment In olCalendar.Items
s = olAppointment.Subject
If s = „“ Then s = „-“
d = Fix(olAppointment.Start)
t = CDate(olAppointment.Start - d)
If t = 0 Then
ts = „“
Else
ts = " (" & CStr(t) & „)“
End If 't=0
Debug.Print Fix(d) & s & ts
Write #1, olAppointment, olAppointment.Start, olAppointment.End, olAppointment.Body
n = n + 1
Next 'olAppointment
Set olAppointment = Nothing
Set olCalendar = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing
Close #1
MsgBox „Insgesamt " & n & " Einträge exportiert“, vbInformation, „Fertig“
End Sub 'AlleTermineExportieren
Sub AlleTermineImportieren()
Call Termine_vorlöschen
Dim olApp As Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olCalendar As Outlook.MAPIFolder
Dim olAppointment As Outlook.AppointmentItem
Dim s As String
Open „a:\termine.txt“ For Input As #1
Dim n As Integer
Dim Termin, Start, Ende, Body
n = 0
Do While Not EOF(1) ’ Schleife bis Dateiende.
n = n + 1
Set myOlApp = CreateObject(„Outlook.Application“)
Set myItem = myOlApp.CreateItem(olAppointmentItem)
Input #1, Termin, Start, Ende, Body ’ Daten in Variablen einlesen.
Debug.Print Termin, Start, Ende, Body ’ Daten im Direktfenster ausgeben.
s = Termin
myItem.Subject = s
myItem.Start = Start
myItem.End = Ende
myItem.Body = Body
myItem.Save
Loop
Close #1
Set olAppointment = Nothing
Set olCalendar = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing
Close #1
MsgBox „Insgesamt " & n & " Einträge importiert“, vbInformation, „Fertig“
End Sub 'AlleTermineImportieren
Sub Termine_vorlöschen()
Dim olApp As Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olCalendar As Outlook.MAPIFolder
Dim olAppointment As Outlook.AppointmentItem
Dim s As String
Dim d As Date
Dim t As Date
Dim ts As String
Dim n As Integer
Set olApp = CreateObject(„Outlook.Application“) 'oder New Outlook.Application
Set olNameSpace = olApp.GetNamespace(„MAPI“)
Set olCalendar = olNameSpace.GetDefaultFolder(olFolderCalendar)
n = 0
For Each olAppointment In olCalendar.Items
n = n + 1
olAppointment.Delete
Next 'olAppointment
Set olAppointment = Nothing
Set olCalendar = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing
End Sub
4.) Makro testen (wie gesagt unter Punkt 1 - vorher unbedingt Daten sichern). Dafür kannst Du im Outlook unter Extras - Makro - Makros die entsprechenden aufrufen. Exportieren und Importieren - das Löschen wird automatisch beim Importieren durchgeführt (ACHTUNG: es werden alle Termine vorgelöscht!!!) Diskette einlegen !
5.) Sollte alles zur Zufriedenheit funktionieren, kannst Du noch eine Schaltfläche mit dem Makro verknüpfen. Rechte Maustaste auf die Symbolleiste und anpassen. Unter Befehle findest Du dann auf der linken Seite Makro und im rechten Fenster sind dann die Makros verfügbar. Einfach mit der linken Maustaste auf die Symbolleiste verschieben.
6.) Beim Beenden speichern
Ich habe die Makros unter Outlook 2000 getestet - für XP kann ich leider keine Garantie übernehmen, aber es sollte funktionieren.
Ich hoffe, es wahr verständlich und nun viel Spass beim Testen.
Cu
Wolfgang