CodeDocu.com
Zunächst loggt man sich am Router der Fritzbox an mit http://fritz.box
Dann geht man auf das Telefonbuch
Und öffnet dieses rechts unten als Druckansicht:

Jetzt kopiert man alles mit Strg-A (alles markieren) und Strg-C (alles kopieren)
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen


Das komplette Telefonbuch fügt man ganz einfach per
Einfügen in das erste Blatt der Excel-Datei in Zelle A1 per Strg-V (Einfügen)
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen

Dann auf dem Blatt Ausgabe_Kontakte den Button
Kontakte Datei speichern drücken
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen

Dann wird eine Datei im gleichen

Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen

Dann bindet man das Smartphone per USB an
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen
und wählt USB verbinden
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen


Button USB Speicher verbinden drücken und mit OK bestätigen
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen
Verbunden ist das System, wenn der Android Roboter rot ist. Der Speicher gehört jetzt dem PC und wird dort als E-Laufwerk angezeigt
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen


So, jetzt noch die Datei einfach rüberkopieren in das Basisverzeichnis
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen

Jetzt den USB trennen, damit die SD-Karte wieder sichbar wird
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen
Und dann Kontakte->Menü(Taste links unten) und dann import/Export
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen

Jetzt von der SD Karte importieren
In das Telefonbuch
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen

Jetzt auswählen, dass man nur eine Datei importieren will, nämlich die Datei, die alle Kontakte und Telefonummern der Fritzbox als komplette Liste hat
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen

Dann wird eine ganze Liste importiert. (hier 224 Kontakte.. alle die man zuHause auch verwendet)
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen

Und voila… jetzt sind alle 224 Kontakte importiert
Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen


Den vorrübergehenden Visual Basic Code und das Makro findet ihr hier…




Sub BtnLoop_Rufnummern()
'------< BtnLoop_Rufnummern() >-------
'*Durchlaufe alle Rufnummern auf dem Blatt

'< init >
Dim sDate As String
sDate = Format(Date, "yyyyMMdd")
Dim sFilename As String
sFilename = "Kontakte_" & sDate & ".vcf"
'</ init >

'--< init Filesystem >--
Dim objFilesystem As New FileSystemObject
'--</ init Filesystem >--

'< File erstellen >
Dim objFile As TextStream
objFile = objFilesystem.CreateTextFile(sFilename, True)
'</ File erstellen >



'< init >
Dim objWorkbook As Workbook
objWorkbook = ActiveWorkbook

Dim objSheet As Worksheet
objSheet = ActiveWorkbook.Sheets("Ausgabe_Kontakte")

Dim intCol_Rufnummer As Integer
intCol_Rufnummer = 3
Dim intCol_Name As Integer
intCol_Name = 2
'</ init >


'< init loop-variablen >
Dim objCell As Range
Dim iRow As Integer
Dim sRufnummer As String
Dim sName As String
'</ init loop-variablen >

'----< @Loop: Rufnummern >----
For iRow = (4 + 1) To 1000
'< Zelle lesen >
sRufnummer = objSheet.Cells(iRow, intCol_Rufnummer)
sName = objSheet.Cells(iRow, intCol_Name)
'</ Zelle lesen >

'< Kontrolle Abbruch >
If sRufnummer Like "" Then
'MsgBox "Letzte Zelle=" & iRow
Exit For
End If
'</ Kontrolle Abbruch >

'< Text auswerten >
fl_Kontakt_Eintrag_schreiben(objFile, sName, sRufnummer)
'</ Text auswerten >

Next
'----</ @Loop: Rufnummern >----



'< Abschluss >
objFile.Close()
'</ Abschluss >


'< Abschluss >
objSheet = Nothing
objWorkbook = Nothing
'</ Abschluss >

MsgBox "Fertig mit Datei " & sFilename
'------</ BtnLoop_Rufnummern() >-------
End Sub



Private Sub fl_Kontakt_Eintrag_schreiben(ByRef objFile As TextStream, ByVal sName As String, sTelefonNummer As String)
'------< fl_Kontakt_Eintrag_schreiben() >-------
objFile.WriteLine "BEGIN: VCARD"
objFile.WriteLine "VERSION:3.0"
objFile.WriteLine "N:;" & sName & ";;;"
objFile.WriteLine "FN: " & sName & ""
objFile.WriteLine "TEL;TYPE=CELL;TYPE=PREF:" & sTelefonNummer & ""
objFile.WriteLine "End: VCARD"
objFile.WriteLine ""
'------</ fl_Kontakt_Eintrag_schreiben() >-------
End Sub





Das komplette Video liegt unter Youtube unter:
https://www.youtube.com/watch?v=lYNIQu5V1hI

Das komplette Telefonbuch der Fritzbox als Telefon Kontakte in das Android Smartphone übertragen

Software Entwicklung Stuttgart Nürtingen
Suche Projekte C#, WPF, Windows App,ASP.Net, vb.Net, WinForms, SQL Server, Access, Excel