Thema Datum  Von Nutzer Rating
Antwort
Rot VBA streikt ab mehr als 2 Dateien?
23.06.2020 16:40:49 Alexander
Solved

Ansicht des Beitrags:
Von:
Alexander
Datum:
23.06.2020 16:40:49
Views:
54
Rating: Antwort:
 Nein
Thema:
VBA streikt ab mehr als 2 Dateien?

Hallo ihr lieben,

ich möchte gerne per Makro aus bestimmten Tabellen bestimmte Zellen in eine zentrale Datei schreiben lassen. Das alles funktioniert mit dem was ich gebastelt habe auch schon sehr gut, nur leider funktioniert es ab mehr 2 Dateien im Code nicht mehr. :/ 

 

Hat jemand vlt eine Lösung?

 


Sub MWEinzelneDatenAusMehrerenDateienEinlesen()
   Dim oTargetBook As Object
   Dim oSourceBook As Object
   Dim sDatei As String
    
     Application.ScreenUpdating = False 
    
     Set oTargetBook = ActiveWorkbook
    
     sDatei = "C:\Users\test\Desktop\Tabellen\Tabelle1.xlsx"
     Set oSourceBook = Workbooks.Open(sDatei, False, True) 'nur lesend öffnen
    

     oTargetBook.Sheets("Tabelle1").Range("a1").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 2).Value
         
              oTargetBook.Sheets("Tabelle1").Range("b1").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 3).Value

              oTargetBook.Sheets("Tabelle1").Range("c1").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 4).Value
         
              oTargetBook.Sheets("Tabelle1").Range("d1").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 5).Value
         
      oSourceBook.Close False 'nicht speichern
      
           'Datei 2

     sDatei = "C:\Users\test\Desktop\Tabellen\Tabelle2.xlsx"
     Set oSourceBook = Workbooks.Open(sDatei, False, True) 'nur lesend öffnen
    
     oTargetBook.Sheets("Tabelle1").Range("a2").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 2).Value
         
              oTargetBook.Sheets("Tabelle1").Range("b2").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 3).Value

              oTargetBook.Sheets("Tabelle1").Range("c2").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 4).Value
         
              oTargetBook.Sheets("Tabelle1").Range("d2").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 5).Value
         
      oSourceBook.Close False 'nicht speichern
      
           'Datei 3

     sDatei = "C:\Users\test\Desktop\Tabellen\Tabelle3.xlsx"
     Set oSourceBook = Workbooks.Open(sDatei, False, True) 'nur lesend öffnen
    
     oTargetBook.Sheets("Tabelle1").Range("a3").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 2).Value
         
              oTargetBook.Sheets("Tabelle1").Range("b3").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 3).Value

              oTargetBook.Sheets("Tabelle1").Range("c3").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 4).Value
         
              oTargetBook.Sheets("Tabelle1").Range("d3").Value = _
         oSourceBook.Sheets("Tabelle1").Cells(13, 5).Value
         
      oSourceBook.Close False 'nicht speichern
    
     Application.ScreenUpdating = True 'Das Bildschirm-Aktualisieren wieder einschalten
    
     MsgBox "Fertig!", vbInformation + vbOKOnly, "HINWEIS!"

     Set oTargetBook = Nothing
     Set oSourceBook = Nothing
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA streikt ab mehr als 2 Dateien?
23.06.2020 16:40:49 Alexander
Solved