Thema Datum  Von Nutzer Rating
Antwort
18.03.2019 17:35:35 Bernhardt
NotSolved
18.03.2019 17:38:15 Gast75778
NotSolved
18.03.2019 17:50:24 Bernhardt
NotSolved
18.03.2019 17:54:27 Gast16647
NotSolved
18.03.2019 17:39:55 Gast7777
NotSolved
18.03.2019 18:10:57 Bernhardt
NotSolved
Rot vba makro in neuer datei ausführen
 18.03.2019 18:50:58 Gast45592
Solved
18.03.2019 19:06:13 Bernhardt
NotSolved

Ansicht des Beitrags:
Von:
Gast45592		 Datum:
18.03.2019 18:50:58		 Views:
846		 Rating:
     
Antwort:
 Nein
Thema:
vba makro in neuer datei ausführen		 
Sub test()

Dim Arbeit, i, zeile
'
Dim oWbTo As Excel.Workbook            'Ziel
Dim oWbFrom As Excel.Workbook          'Quelle

   'zu bearbeitende Dateien auswählen
   Arbeit = Application.GetOpenFilename _
   (MultiSelect:=True)

   If IsArray(Arbeit) Then
      'schön wärs
      Application.ScreenUpdating = False
      'leere Mappe nur wenn
      Workbooks.Add
      Set oWbTo = ActiveWorkbook
      zeile = 1
      'über Auswahl
      For i = 1 To UBound(Arbeit)
         Set oWbFrom = Workbooks.Open(Arbeit(i), local:=True)
         With oWbFrom.Sheets(1)
            .UsedRange.Copy Destination:=oWbTo.Sheets(1).Range("A" & zeile)
            zeile = oWbTo.Sheets(1).UsedRange.Rows.Count + 1
         End With
         oWbFrom.Close False
      Next i
      '
      Application.DisplayAlerts = False
      'owbto.saveAs blablabla
      Application.DisplayAlerts = True
      Application.ScreenUpdating = True
   End If
   
   Set oWbFrom = Nothing
   Set oWbTo = Nothing

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
18.03.2019 17:35:35 Bernhardt
NotSolved
18.03.2019 17:38:15 Gast75778
NotSolved
18.03.2019 17:50:24 Bernhardt
NotSolved
18.03.2019 17:54:27 Gast16647
NotSolved
18.03.2019 17:39:55 Gast7777
NotSolved
18.03.2019 18:10:57 Bernhardt
NotSolved
Rot vba makro in neuer datei ausführen
 18.03.2019 18:50:58 Gast45592
Solved
18.03.2019 19:06:13 Bernhardt
NotSolved