Nur befüllte Zellen in ein Textdokument kodiert als UTF-8 ohne BOM exportieren

[Blane]

oooh man langsam nerver ich bestimmt
jetzt sagt er : Fehler beim Kompiliere: Sub oder Function nicht definiert und markiert das CP1252_UTF8_2
sorry.....

[Der Steuerfuzzi]

Hast Du diesen ersten Teil des Code auch in Dein Projekt kopiert (z.B. unterhalb Deiner Prozedur)?

Code:

Function CP1252_UTF8_2(strInput As String) As String
Dim t As String
Dim i As Long
For i = 1 To Len(strInput)
    s = Mid(strInput, i, 1)
    Select Case Asc(s)
       Case 0 To 127
          t = t & s
       Case 160 To 191
          t = t & Chr(&HC2) & s
       Case 192 To 255
          t = t & Chr(&HC3) & Chr(Asc(s) - 64)
       Case 128
          t = t & Chr(&HE2) & Chr(&H82) & Chr(&HAC)
       Case 130
          t = t & Chr(&HE2) & Chr(&H80) & Chr(&H9A)
       Case 131
          t = t & Chr(&HC6) & Chr(&H92)
       Case 132
          t = t & Chr(&HE2) & Chr(&H80) & Chr(&H9E)
       Case 133
          t = t & Chr(&HE2) & Chr(&H80) & Chr(&HA6)
       Case 134 To 135
          t = t & Chr(&HE2) & Chr(&H80) & Chr(Asc(s) + 26)
       Case 136
          t = t & Chr(&HCB) & Chr(&H86)
       Case 137
          t = t & Chr(&HE2) & Chr(&H80) & Chr(&HB0)
       Case 138
          t = t & Chr(&HC5) & Chr(&HA0)
       Case 139
          t = t & Chr(&HE2) & Chr(&H80) & Chr(&HB9)
       Case 140
          t = t & Chr(&HC5) & Chr(&H92)
       Case 142
          t = t & Chr(&HC5) & Chr(&HBD)
       Case 145 To 146
          t = t & Chr(&HE2) & Chr(&H80) & Chr(Asc(s) + 7)
       Case 147 To 148
          t = t & Chr(&HE2) & Chr(&H80) & Chr(Asc(s) + 9)
       Case 149
          t = t & Chr(&HE2) & Chr(&H80) & Chr(&HA2)
       Case 150 To 151
          t = t & Chr(&HE2) & Chr(&H80) & Chr(Asc(s) - 3)
       Case 152
          t = t & Chr(&HCB) & Chr(&H9C)
       Case 153
          t = t & Chr(&HE2) & Chr(&H84) & Chr(&HA2)
       Case 154
          t = t & Chr(&HC5) & Chr(&HA1)
       Case 155
          t = t & Chr(&HE2) & Chr(&H80) & Chr(&HBA)
       Case 156
          t = t & Chr(&HC5) & Chr(&H93)
       Case 158
          t = t & Chr(&HC5) & Chr(&HBE)
       Case 159
          t = t & Chr(&HC5) & Chr(&HB8)
    End Select
Next
CP1252_UTF8_2 = t
End Function

[Blane]

ne hatte ich nicht, sorry dann habe ich das falsch verstanden.
soll ich den code einfach unter den anderen einfügen?

[snb]

@snb
bei deinem Code kommt auch ein Fehler beim Kompilieren: Variable nicht definiert und zeigt dann auf das "it" bei For Each it In [A1:B30].SpecialCells(2)

Lösche Option Explicit.

[Der Steuerfuzzi]

soll ich den code einfach unter den anderen einfügen?

Klar, habe ich doch geschrieben  :16:  :22: ;)

[snb]

Code:

Sub M_snb()
  For Each it In [A1:A30].SpecialCells(2)
    c00 = c00 & it & vbtab & it.offset(,1) & vbCrLf
  Next

  With CreateObject("ADODB.Stream")
    .Type = 2
    .Charset = "utf-8"
    .Open
    .writetext c00

    .SaveToFile "G:\OF\Ergbnis_SOLL.txt", 2
    .Close
  End With
End Sub