2. Nun wählen Sie unter "Formate" "Englisch (Vereinigte Staaten)" aus und bestätigen dies mit "Übernehmen".
Eine Liste der möglichen Variablen:
Title; First Name; Middle Name; Last Name; Suffix; Company; Department; Job Title; Business Street; Business Street 2; Business Street 3; Business City; Business State; Business Postal Code; Business Country/Region; Home Street; Home Street 2; Home Street 3; Home City; Home State; Home Postal Code; Home Country/Region; Other Street; Other Street 2; Other Street 3; Other City; Other State; Other Postal Code; Other Country/Region; Assistant's Phone; Business Fax; Business Phone; Business Phone 2; Callback; Car Phone; Company Main Phone; Home Fax; Home Phone; Home Phone 2; ISDN; Mobile Phone; Other Fax; Other Phone; Pager; Primary Phone; Radio Phone; TTY/TDD Phone; Telex; Account; Anniversary; Assistant's Name; Billing Information; Birthday; Business Address PO Box; Categories; Children; Directory Server; E-mail Address; E-mail Type; E-mail Display Name; E-mail 2 Address; E-mail 2 Type; E-mail 2 Display Name; E-mail 3 Address; E-mail 3 Type; E-mail 3 Display Name; Gender; Government ID Number; Hobby; Home Address PO Box; Initials; Internet Free Busy; Keywords; Language; Location; Manager's Name; Mileage; Notes; Office Location; Organizational ID Number; Other Address PO Box; Priority; Private; Profession; Referred By; Sensitivity; Spouse; User 1; User 2; User 3; User 4; Web Page; BlackBerry PIN
Sub CSVFile()
Dim SrcRg As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim FName As Variant
FName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
ListSep = Application.International(xlListSeparator)
If Selection.Cells.Count > 1 Then
Set SrcRg = Selection
Else
Set SrcRg = ActiveSheet.UsedRange
End If
Open FName For Output As #1
For Each CurrRow In SrcRg.Rows
CurrTextStr = ìî
For Each CurrCell In CurrRow.Cells
CurrTextStr = CurrTextStr & """" & CurrCell.Value & """" & ListSep
Next
While Right(CurrTextStr, 1) = ListSep
CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
Wend
Print #1, CurrTextStr
Next
Close #1
End Sub