schön und auch die doku ist recht gut :-) ... kleine verbesserung: die notwendigen bibliotheken auch mit aufzählen .... :-) happy hacking
@KaiWeissmann2 жыл бұрын
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
@gerdmuster45412 жыл бұрын
Danke sehr!
@KaiWeissmann2 жыл бұрын
Gerne Gerd :)
@axelwolpert57088 ай бұрын
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
@gunterthonnes60932 жыл бұрын
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
@gunterthonnes60932 жыл бұрын
Hab es gerade selbst gefunden, ist TITLE
@KaiWeissmann2 жыл бұрын
Hallo Günter, freut mich, dass dir das Video gefällt und super, dass du das Problem direkt lösen konntest!
@ThisIsScorefun2 жыл бұрын
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?
@KaiWeissmann2 жыл бұрын
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
@Selkorma2 жыл бұрын
Kann man die Kontaktdaten auch direkt aus Excel in Outlook exportieren?
@farmiisthebest Жыл бұрын
Hallo gib es auch eine Möglichkeit mehrere markierte zeilen zu exportieren?
@mauer1981able2 жыл бұрын
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
@ThisIsScorefun2 жыл бұрын
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
@MarcoKrieger2 жыл бұрын
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.
@KaiWeissmann2 жыл бұрын
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
@MarcoKrieger2 жыл бұрын
@@KaiWeissmann 👍 Danke!
@auletes2 жыл бұрын
Wie schaut's aus mit Umlauten und "ß"?
@Nameru262 жыл бұрын
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.