Thema Datum  Von Nutzer Rating
Antwort
04.02.2021 11:58:46 Andi2020
NotSolved
Blau Verschiedene Tabellenblätter kopieren
 04.02.2021 12:15:54 ralf_b
NotSolved
04.02.2021 15:54:55 Gast61335
NotSolved
04.02.2021 16:20:07 Gast12025
NotSolved
04.02.2021 16:13:01 ralf_b
NotSolved
04.02.2021 20:31:49 Andi2020
NotSolved
04.02.2021 21:38:42 ralf_b
NotSolved
05.02.2021 15:38:53 Andi2020
NotSolved
05.02.2021 18:11:02 ralf_b
NotSolved
05.02.2021 21:14:10 Gast47038
NotSolved
06.02.2021 18:15:08 Andi2020
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
04.02.2021 12:15:54		 Views:
870		 Rating:
     
Antwort:
  Ja
Thema:
Verschiedene Tabellenblätter kopieren		 
versuchs mal damit. ohne garantie

Sub DatenHolen()
  Dim oWB As Workbook, oWS As Worksheet, Pfad1 As String, EXPORTDATEI, lastrow As Long
  
  EXPORTDATEI = Application.GetOpenFilename("Microsoft Excel-Dateien (*.xlsm),*.xlsm")
  If EXPORTDATEI <> "" Then
    Set oWB = Workbooks.Open(Filename:=EXPORTDATEI)
    Pfad1 = CurDir
    
    For Each oWS In oWB
    
     If oWS.Name Like "*(55i)*" Then
        oWS.Range("AA10:AI72").Copy
        With Workbooks("Serienpunkte auslesen.xlsm").Worksheets("Tabelle1")
          lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
          .Range("A" & lastrow + 1).PasteSpecial xlPasteValues
        End With
     End If
    Next
  End If
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
04.02.2021 11:58:46 Andi2020
NotSolved
Blau Verschiedene Tabellenblätter kopieren
 04.02.2021 12:15:54 ralf_b
NotSolved
04.02.2021 15:54:55 Gast61335
NotSolved
04.02.2021 16:20:07 Gast12025
NotSolved
04.02.2021 16:13:01 ralf_b
NotSolved
04.02.2021 20:31:49 Andi2020
NotSolved
04.02.2021 21:38:42 ralf_b
NotSolved
05.02.2021 15:38:53 Andi2020
NotSolved
05.02.2021 18:11:02 ralf_b
NotSolved
05.02.2021 21:14:10 Gast47038
NotSolved
06.02.2021 18:15:08 Andi2020
NotSolved