VCard erstellen mit Kontaktdaten aus Excel | Excel VBA

[@minimax8703]

Wie immer… Tolles Video Kai Fetten DANK!!

[@KaiWeissmann]

Sehr gerne :)

[@peterterlau5082]

Wie immer eine tolle Anleitung! DANKE!

[@KaiWeissmann]

Hey Peter! Sehr gerne! Lg, Kai

[@herberthager4238]

Danke, wie immer gut erklärt.👍

[@KaiWeissmann]

Hey Herbert! Sehr gerne. Lg, Kai

[@Alwin_W.]

Super Video. Klasse !!!

[@KaiWeissmann]

Danke für das Lob!

[@norberthartmann5075]

schön und auch die doku ist recht gut :-) ... kleine verbesserung: die notwendigen bibliotheken auch mit aufzählen .... :-) happy hacking

[@KaiWeissmann]

Hallo Norbert, freut mich, dass dir das Video gefällt. Nehme ich auf und mache ich in den neuen Videos tatsächlich auch schon :) LG Kai

[@gerdmuster4541]

Danke sehr!

[@KaiWeissmann]

Gerne Gerd :)

[@axelwolpert5708]

Hallo, Gut erklärt. Eine Frage hab ich noch. Wie bekomme ich das hin, dass die .vcf mit der Codierung UTF-8 abgespeichert wird. Das ist wichtig, wenn ich die Datei über einen Download von einer Webseite auf einem iPhone öffnen will.

[@farmiisthebest]

Gibt es eine möglichkeit (code) mehrere zellen zu exportieren oder immer nur die aktive

[@stephansimmendinger9996]

Hallo Kai Super Video, wie immer super einfach erklärt. Bravo! Mit den Umlauten in den Namen oder Strassen, funktioniert das nicht. Die vcf Datei zeigt in einem Texteditor zwar die Umlaute richtig an, beim importieren in Outlook, werden diese Umlaute dann nicht mehr korrekt dargestellt. Hast Du dazu eine Idee? Danke Dir.

[@Alwin_W.]

Bei mir klappte es mit: (Name mit Umlauten) 'Name einfügen .WriteLine "FN;CHARSET=Windows-1252:" & tbl.ListColumns("Vorname").DataBodyRange(AktuelleZeile).Value & " " & tbl.ListColumns("Nachname").DataBodyRange(AktuelleZeile).Value Gruß Alwin

[@gunterthonnes6093]

Günni Wie immer Super Video, aber eine frage habe ich noch, wie bekomme ich die Position in der Firma eingelesen? Habe bisher noch nichts in der Beschreibung gefunden. Dank im Voraus

[@gunterthonnes6093]

Hab es gerade selbst gefunden, ist TITLE

[@KaiWeissmann]

Hallo Günter, freut mich, dass dir das Video gefällt und super, dass du das Problem direkt lösen konntest!

[@ThisIsScorefun]

Danke, wieder eine tolle Darbietung des FileSystemObjects (Textstream kannte ich noch nicht) Sollte man die Objekte am Ende nicht wieder freigeben? Set Textstream = Nothing Set FSO = Nothing Oder ist das nicht unbedingt erforderlich?

[@KaiWeissmann]

Hallo Roger, freut mich, dass dir das Video weitergeholfen hat. Das Freigeben der Objekte ist meiner Einschätzung nicht mehr notwendig, da VBA den Speicherplatz nach Ende der Prozedur automatisch freigibt. Es schadet aber auch nicht :) LG Kai

[@Selkorma]

Kann man die Kontaktdaten auch direkt aus Excel in Outlook exportieren?

[@farmiisthebest]

Hallo gib es auch eine Möglichkeit mehrere markierte zeilen zu exportieren?

[@mauer1981able]

Wie jedes Video einfach Genial, Vielen Dank, bekomme jedoch am bei F5 (deine Video Timleline bei 11:30 die Fehlermeldung Laufzeitfehler 91. Objektvariable oder With-Blockvariable nicht festgelegt. was mache ich falsch ? grüsse aus der Schweiz

[@ThisIsScorefun]

Dann hast Du nicht alles korrekt in Deinen Code übernommen; vergleiche - dann wirst Du Deinen Fehler finden

[@karlkuspert7968]

Wie immer super video aber bei einen Punkt bekomme ich einen Laufzeitfehler 'Tabelle einlesen Set tbl = tb_Datenbank.ListObjects("tbl_Kunden") Warum geht das nicht kannst du mir da bitte weiterhelfen

[@KaiWeissmann]

Vielleicht hat deine intelligente Tabelle oder dein Tabellenblatt einen anderen Namen?

[@karlkuspert7968]

Hallo Kai du hast alles super erklärt aber bei mir funktioniert der Code nicht habe alles so gemacht wie du es gemacht hast wo ist nur der Fehler Wäre schön wenn du mal drüberschauen kannst Option Explicit Sub VCFErstellen() 'Bibliothek aktivieren 'Variablen dimensionieren Dim fso As New FileSystemObject Dim Pfad As String Dim Textdatei As TextStream Dim tbl As ListObjects Dim AktuelleZeile As Long 'Tabelle einlesen Set tbl = tb_Datenbank.ListObjects("tbl_Kunden") 'Aktuelle Zeile auslesen AktuelleZeile = ActiveCell.Row - tbl.HeaderRowRange.Row 'Pfad defienieren Pfad = "C:\Users\karlk\OneDrive\Desktop\" & tbl.ListColums("Vorname").DataBodyRange(AktuelleZeile).Value & " " & _ tbl.ListColumns("Nachmame").DataBodyRange(AktuelleZeile).Value & ".vcf" '"C:\Users\karlk\OneDrive\Desktop\Kundenverwaltung.xlsm" 'Textdatei erstellen Set Textdatei = fso.CreateTextFile(Pfad) 'Datei befüllen With Textdatei 'VCF Datei initialisieren .WriteLine "Begin:VCARD" .WriteLine "Version:4.0" 'Name .WriteLine "FN:" & tbl.ListColumns("Vorname").DataBodyRange(AktuelleZeile).Value & " " & _ tbl.ListColumns("Nachname").DataBodyRange(AktuelleZeile).Value 'Geburtstag .WriteLine "BDAY:" & Format(tbl.ListColumns("Geburtstag").DataBodyRange(AktuelleZeile).Value, "yyyy/mm/dd") 'Firma .WriteLine "ORG:" & tbl.ListColumns("Firma").DataBodyRange(AktuelleZeile).Value 'E-Mail Arbeit .WriteLine "ORG:" & tbl.ListColumns("E-Mail Arbeit").DataBodyRange(AktuelleZeile).Value 'E-Mail Privat .WriteLine "ORG:" & tbl.ListColumns("E-Mail Privat").DataBodyRange(AktuelleZeile).Value 'Webseite .WriteLine "URL:" & tbl.ListColumns("Webseite").DataBodyRange(AktuelleZeile).Value 'Telefon Arbeit .WriteLine "TEL;WORK:" & tbl.ListColumns("Telefon Arbeit").DataBodyRange(AktuelleZeile).Value 'Telefon Privat .WriteLine "TEL:" & tbl.ListColumns("Telefon Privat").DataBodyRange(AktuelleZeile).Value 'Mobil Arbeit .WriteLine "MOBIL;WORK:" & tbl.ListColumns("Mobil Arbeit").DataBodyRange(AktuelleZeile).Value 'Mobil Privat .WriteLine "MOBIL:" & tbl.ListColumns("Mobil Privat").DataBodyRange(AktuelleZeile).Value 'Adresse Arbeit .WriteLine "ADR;WORK:;;" & tbl.ListColumns("Straße Arbeit").DataBodyRange(AktuelleZeile).Value & ";" & _ tbl.ListColumns("Adresse Arbeit").DataBodyRange(AktuelleZeile).Value 'Adresse Privat .WriteLine "ADR:;;" & tbl.ListColumns("Straße Privat").DataBodyRange(AktuelleZeile).Value & ";" & _ tbl.ListColumns("Adresse Privat").DataBodyRange(AktuelleZeile).Value 'VCF Datei beschließen .WriteLine "END:VCARD" End With 'Bestätigungsnachricht MsgBox "Die VCF Datei wurde erfolgreich erstellt." End Sub

[@MarcoKrieger]

Hallo Kai, Deine Videos sind wirklich toll. Habe das über die Datenbank mit Eingabeformular gut für ein Projekt auf der Arbeit gebrauchen können. Da ich noch totaler Einsteiger in Sachen Excel bin hätte ich gerne Deine Beispieldatei heruntergeladen. Der Link in der Beschreibung führt zu einer Webseite, auf der man drei Felder ausfüllen soll, um sich anzumelden. Vielleicht bin ich zu dumm, aber die Felder sind nicht beschriftet, daher ist es etwas schwierig etwas sinnvolles einzutragen. Möglicherweise habe ich da etwas übersehen, ein Hinweis wäre echt nett. Danke im Voraus und für die Hilfestellung beim Arbeiten mit Excel.

[@KaiWeissmann]

Hey Marco! Danke für die Info. Die Schriftfarbe ist hier leider mit grau etwas unpraktisch gewählt und wirklich sehr schlecht lesbar. Feld1 = Vorname Feld2 = Nachname Feld3= E-Mailadresse Ich versuche die Schriftfarbe anzupassen. Lg, Kai

[@MarcoKrieger]

@@KaiWeissmann 👍 Danke!

[@auletes]

Wie schaut's aus mit Umlauten und "ß"?

[@Nameru26]

Warum nutzt man in erster Linie ein Tabellenkalulationsprogramm für eine Liste an Kundenkontakten? Ich habe mir auch das video über die erstellung der Kundenverwaltung angeschaut. Warum nicht access dafür verwenden? Es ist ja eine Datenbank und Access ist genau dafür gemacht. Dann spart man sich doch auch einiges an VBA was im zweifel fehlerträchtig ist und ein Datenbankmanagementsystem noch mehr bietet, oder nicht? Was mich auch etwas interessiert: Für wie zukunftstauglich hälst du VBA? Microsoft geht ja mit MS office doch auch so langsam richtung cloud und web-interface. Geht das da eigentlich auch? Das ist nicht dir gegenüber böse gemeint, sieht ja schon ordentlich aus und du scheinst ja auch wirklich ahnung davon zu haben. Aber warum VBA und nicht (zum Beispiel) python für sowas? Lernaufwand ist mindestens gleich (evtl sogar besser) und bei problemen sind die informationen im Internet deutlich zahlreicher. Mir wurde nur dieses Video vorgeschlagen und dann kamen die fragen bei mir auf.