Thema Datum  Von Nutzer Rating
Antwort
22.03.2018 10:08:15 fesch
Solved
22.03.2018 20:03:03 Gast86261
Solved
Rot VBA - Automatisches Abspeichern
23.03.2018 08:43:42 fesch
Solved
23.03.2018 14:47:53 fesch
Solved

Ansicht des Beitrags:
Von:
fesch		 Datum:
23.03.2018 08:43:42		 Views:
567		 Rating:
     
Antwort:
 Nein
Thema:
VBA - Automatisches Abspeichern

Hallo,

 

vielen Dank für die Hilfe!

Den Code habe ich mal eingefügt.

Die Datei wurde erfolgreich automatisch gespeichert.

 

Nur die ";" sind nicht durch "," ersetzt und die "" nicht eingefügt worden.

Kann es sein, dass man "FName" im Code ersetzen muss, weil "FName" nicht mehr gefunden wird?

Open FName For Output As #1

 

ListSep = ","
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 = ""
      FeldSep = IIf(CurrRow.Row < 2, "", """")
      For Each CurrCell In CurrRow.Cells
         CurrTextStr = CurrTextStr & FeldSep & CurrCell.Value & FeldSep & ListSep
Next
While Right(CurrTextStr, 1) = ListSep
CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
Wend
Print #1, CurrTextStr
Next
Close #1
End Sub


Vielen Dank für die erneute Hilfe!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.03.2018 10:08:15 fesch
Solved
22.03.2018 20:03:03 Gast86261
Solved
Rot VBA - Automatisches Abspeichern
23.03.2018 08:43:42 fesch
Solved
23.03.2018 14:47:53 fesch
Solved