Thema Datum  Von Nutzer Rating
Antwort
19.01.2015 11:02:02 YG
NotSolved
Blau MsgBox Code Problem - Bitte Hilfe!
19.01.2015 17:07:24 Gast56869
NotSolved
20.01.2015 09:32:00 YG
NotSolved
20.01.2015 09:55:23 Gast77586
NotSolved
20.01.2015 10:06:55 YG_ Nachtrag WICHTIG
NotSolved

Ansicht des Beitrags:
Von:
Gast56869		 Datum:
19.01.2015 17:07:24		 Views:
754		 Rating:
     
Antwort:
  Ja
Thema:
MsgBox Code Problem - Bitte Hilfe! 
Sub TryIt()
Dim wB As Workbook, wS As Worksheet
Dim strPath As String, strFile As String

   With Application.FileDialog(msoFileDialogFolderPicker)
      .AllowMultiSelect = False
      .InitialFileName = "G:\PG-D22\_Mitarbeiter\Kettner\"
      .Title = "Ordner auswählen"
      If .Show Then
         strPath = .SelectedItems(1)
      Else
         Call MsgBox("Sie haben kein Verzeichnis ausgewählt," & _
            Chr(10) & "das Programm wird beendet!", _
            vbCritical, "Abbruch")
         Exit Sub ' oder Application.Quit 'Excel wird geschlossen
      End If
   End With
 
   strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\")
   strFile = Dir(strPath & "*.xls?")
   
   Do While strFile <> ""
      Set wB = Workbooks.Open(strPath & strFile)
      For Each wS In wB.Sheets
         On Error Resume Next
         wS.SaveAs strPath & wS.Name, xlCSV, _
         CreateBackup:=False, local:=True
         On Error GoTo 0
      Next wS
      wB.Close False
      strFile = Dir
   Loop
End Sub

 

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
19.01.2015 11:02:02 YG
NotSolved
Blau MsgBox Code Problem - Bitte Hilfe!
19.01.2015 17:07:24 Gast56869
NotSolved
20.01.2015 09:32:00 YG
NotSolved
20.01.2015 09:55:23 Gast77586
NotSolved
20.01.2015 10:06:55 YG_ Nachtrag WICHTIG
NotSolved