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:
714		 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?

?
1
Open FName For Output As #1

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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