[S] Outlook Adressdatenbank umwandeln (Ziel: eine Telefonnummer je Kontakt)

Lord Arsch · 27. Mai 2008

Servus,

gibt es ein Tool, was Kontakte aus der Outlook-Adressdatenbank neu formatiert?
Bisher sind jedem Kontakt mehrere Telefonnummern zugeordnet - FN, mobil, dienstlich usw.

Nun bräuchte ich ein Tool, was diese Datenbank ausliest und für jeden Namen, lediglich eine Telefonnummer hinterlegt.
Wenn mehrere Nummer vorhanden sind, soll der Name der Person um 'dienstlich', 'mobil' usw. erweitert werden und somit als eigenständiger Kontakt verfügbar sein.

Beispiel an einem OutlookKontakt:
1. Hans Meyer
dienstlich: 08997465628
mobil: 017453729893
privat: 08973627943

Nach Formtierung:
1. Hans Meier dienstlich: 08997465628
2. Hans Meier mobil: 017453729893
3. Hans Meier privat: 08973627943

Könnte mir vorstellen, dass das über ein Excelsheet machbar wäre, aber leider habe ich keine Ahnung davon.
Outlookadressen können ja problemlos ins Excelformatübertragen werden.

Es muss doch so etwas geben, und schwer kanns auch nicht sein...
Any hints?

hjrauscher · 27. Mai 2008

Darf man fragen warum Du das machen willst, sprich: wo die Rufnummernliste dann wieder importiert werden soll?

hjrauscher

P.S.: ... vielleicht in eine ISDN-Telefonanlage wie die Siemens Gigaset 307xisdn? :cool:

Lord Arsch · 28. Mai 2008

Korrekt - die neue Liste soll dann auf mein Gigaset SL1.
Problem ist halt, dass man dort je Kontakt nur eine Nummer angeben kann.

NoxX · 28. Mai 2008

hm... da ich kein outlook nutze hat mir ein freund seine kontakte als excel datei exportiert und zugeschickt.

also vorausgesetzt deine excelliste mit deinen kontakten hat auch 91 spalten und
überschriften (von A bis CN), beginnend mit Anrede, Vorname, WeitereVornamen ...
bis WeiteresPostfach und in folgenden spalten stehen die relevanten informationen:
- zeile1 die überschriften
- spalte D "Nachname"
- spalte AF "Telefongeschäftlich"
- spalte AL "Telefonprivat"
- spalte AO "Mobiltelefon"
dann könnte folgendes makro funktionieren - zumindest funktioniert es bei mir

1. eine kopie deiner exceldatei erstellen
2. kopie öffnen und ALT+F11 drücken
3. im VBA Projekt (linkes fenster) doppelklick auf "Tabelle1"
4. rechts im fenster folgenden code einfügen, in den code klicken und F5 zum starten drücken

Code

Sub KontakteAufbereiten()
Dim Anzahl As Integer, i As Long, x As Long
Dim TelGes As Boolean, TelPri As Boolean, Handy As Boolean


i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 1 'anzahl zeilen ohne überschrift
Range("a2").Select


For x = 1 To i 'schleife start


    Anzahl = 0
    TelGes = False
    TelPri = False
    Handy = False

    If Selection.Offset(0, 31).Value <> "" Then TelGes = True 'telefon geschäftlich spalte AF
    If Selection.Offset(0, 37).Value <> "" Then TelPri = True 'telefon privat spalte AL
    If Selection.Offset(0, 40).Value <> "" Then Handy = True 'mobil spalte AO

    'anzahl ermitteln
    If TelGes = True Then Anzahl = Anzahl + 1
    If TelPri = True Then Anzahl = Anzahl + 1
    If Handy = True Then Anzahl = Anzahl + 1

If Anzahl < 2 Then 'max 1 eintrag vorhanden, in Spalte D (nachname) die eintragsart hinzufügen
    If TelGes = True Then Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Geschäftlich"
    If TelPri = True Then Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Privat"
    If Handy = True Then Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Mobile"
    Selection.Offset(1, 0).Select 'zur nächsten zeile springen
    GoTo Nächster_Eintrag: 'zum ende springen
End If


Dim AktuelleZeile As String 'aktuelle zeile auslesen
AktuelleZeile = Mid(ActiveCell.Address, InStr(3, ActiveCell.Address, "$") + 1)

    For y = 1 To Anzahl - 1 'anzahl wie oft die zeile kopiert werden muss
        Rows(AktuelleZeile & ":" & AktuelleZeile).Select 'aktuelle zeile markieren
        Selection.Copy 'kopieren
        Selection.Insert Shift:=xlDown 'einfügen
    Next y


    'daten ändern
    For y = 1 To Anzahl
        ActiveCell.Select
        If TelGes = True Then
            Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Geschäftlich"
            Selection.Offset(0, 37).Value = ""
            Selection.Offset(0, 40).Value = ""
            TelGes = False
            GoTo Nächse_Änderung:
        End If
        If TelPri = True Then
            Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Privat"
            Selection.Offset(0, 31).Value = ""
            Selection.Offset(0, 40).Value = ""
            TelPri = False
            GoTo Nächse_Änderung:
        End If
        If Handy = True Then
            Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Mobile"
            Selection.Offset(0, 31).Value = ""
            Selection.Offset(0, 37).Value = ""
            TelGes = False
            GoTo Nächse_Änderung:
        End If
Nächse_Änderung:
    Selection.Offset(1, 0).Select 'zur nächsten kopierten zeile springen
    Next y


Nächster_Eintrag:


Next x


MsgBox "Aufbereitung vollständig", vbInformation, "OK"
End Sub

Alles anzeigen

aber wie gesagt, ob es funktioniert und wie du die liste zurückspielst.....
da habe ich echt kein plan von.
natürlich alles auf deine eigene gefahr hin

kurz noch dazu was das makro macht:

es schaut nach, ob die spalten "TelefonGeschäft", "-Privat" und/oder "Mobil" gefüllt sind
und kopiert die zeile entsprechend der benötigten änderungen.
danach wird der "Nachname" erweitert und die nicht mehr benötigten einträge gelöscht.

Lord Arsch · 29. Mai 2008

:eek:

Na schaun mer mal!!
Besten Danke schon mal!! :top:

[S] Outlook Adressdatenbank umwandeln (Ziel: eine Telefonnummer je Kontakt)

Jetzt mitmachen!

Teilen