Thema Datum  Von Nutzer Rating
Antwort
22.08.2016 12:48:13 Matthias
NotSolved
Blau Einfach, langsam und geschmacklos
 22.08.2016 14:38:48 Gast70117
NotSolved
22.08.2016 14:40:27 Florian
NotSolved
22.08.2016 14:40:28 Florian
NotSolved
22.08.2016 15:34:41 Gast1263
NotSolved
22.08.2016 16:25:52 Florian
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
22.08.2016 14:38:48		 Views:
725		 Rating:
     
Antwort:
  Ja
Thema:
Einfach, langsam und geschmacklos		 
Sub Sowas()
Const c_FULL As String = "E:\Temp\Export\*.xlsx"
Dim strfile As String, strFull As String

   Application.ScreenUpdating = False
   
   ThisWorkbook.Sheets(1).Range("D4:V107").Clear
   strfile = Dir(c_FULL)
   While (strfile <> "")
      strFull = Replace(c_FULL, "*.xlsx", strfile)
      sbGetValues strFull
      strfile = Dir
   Wend
   
   Application.ScreenUpdating = True
   
End Sub

Private Sub sbGetValues(strPath As String)
Dim c As Range

   Workbooks.Open strPath
   For Each c In ActiveWorkbook.Sheets(1).Range("D4:V107").Cells
      With ThisWorkbook.Sheets(1).Range(c.Address)
         .Value = .Value + c.Value
      End With
   Next c
   ActiveWorkbook.Close False

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
22.08.2016 12:48:13 Matthias
NotSolved
Blau Einfach, langsam und geschmacklos
 22.08.2016 14:38:48 Gast70117
NotSolved
22.08.2016 14:40:27 Florian
NotSolved
22.08.2016 14:40:28 Florian
NotSolved
22.08.2016 15:34:41 Gast1263
NotSolved
22.08.2016 16:25:52 Florian
NotSolved