Hallo,
bräuchte bitte ganz dringend Hilfe von einem VBA Experten in Bezug auf folgendes Problem, an dem ich hänge: Für neue Kundenkontakte möchte ich mittels Makro jeweils einen Ordner auf meinem lokalen Laufwert erstellen (um dort dann alles abzuspeichern, was mit dem Kunden zu tun hat). Mit folgendem Code funktioniert es aus Excel heraus einwandfrei, wenn ich den Namen des Kunden anwähle und dann diesen aktuellen Zellenwert für den Ordner verwende:
Sub Ordneranlegen()
Dim Ord As String
Dim Person As String
Person = ActiveCell.Value
Ord = "D:\Dateien von majw\Kunden\" & Person
If Dir(Ord, vbDirectory) <> "" Then
MsgBox "Ordner ist schon vorhanden"
Else
MkDir Ord
MsgBox "Ordner " & Ord & " wurde angelegt"
End If
End Sub
Mein Ziel ist es, anstatt dem Zellenwert in Excel analog den Inhalt des Feldes LastName des Outlook Kontaktformulars zu verwenden, also einen Kontakt in Outlook öffnen und dann das entsprechende Makro aufrufen --> Ordner wird erzeugt. Wie kann ich hierfür der Variablen Person den Namen des Kunden aus Outlook heraus zuweisen?
Wäre für Hinweise, die zur Lösung dieses Problems beitragen, äußerst dankbar!
VG
Josef
|