Thema Datum  Von Nutzer Rating
Antwort
17.02.2020 07:20:02 Torsten L.
NotSolved
17.02.2020 08:29:43 Torsten
*****
Solved
Rot Daten aus verschiedenen variablen Excel-Reitern in ein neues Sheet kopieren
 17.02.2020 09:20:17 Torsten
Solved
17.02.2020 09:35:30 Torsten
NotSolved
17.02.2020 12:48:59 Torsten L.
NotSolved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
17.02.2020 09:20:17		 Views:
635		 Rating:
     
Antwort:
 Nein
Thema:
Daten aus verschiedenen variablen Excel-Reitern in ein neues Sheet kopieren

Bombastisch!

es funktioniert, einzig bekommt Excel den Bezug zum Range nicht gebacken!? Aber gut, den Range habe ich dann manuell eingefügt.

 

Danke Torsten W. dein Code nimmt mir so viel Arbeit ab, das ist genial!!! Danke <3 <3 <3

 

Mein Aktueller Code:

Option Explicit

Sub ExcelExp_Short_Dataconclusion()
 
'Löschen von ausgeblendeten Reitern'
'
Dim wksWorksheet As Worksheet
For Each wksWorksheet In ActiveWorkbook.Worksheets
If wksWorksheet.Visible <> xlSheetVisible Then wksWorksheet.Delete
Next wksWorksheet
'
' Einfügen eines Neuen Reiters'
'
Dim wsNew As Worksheet
Set wsNew = Worksheets.Add
With wsNew
   .Name = "Data"
   .Move after:=Sheets(Sheets.Count)
End With
Set wsNew = Nothing
'
' Einfügen der Reiternamen und der dazugehörigen Daten (aus einem bestimmten Range) in den neuen Reiter'
'
Dim ws As Worksheet
Dim X As Integer
X = 1

With ActiveWorkbook.Sheets("Data")
      
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Data" Then
            .Cells(1, X) = ws.Name
            ws.Range("E5:E77").Copy
            .Cells(2, X).PasteSpecial xlPasteValues
            ws.Range("O5:O77").Copy
            .Cells(2, X + 1).PasteSpecial xlPasteValues
            X = X + 2
        End If
    Next ws
End With

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
17.02.2020 07:20:02 Torsten L.
NotSolved
17.02.2020 08:29:43 Torsten
*****
Solved
Rot Daten aus verschiedenen variablen Excel-Reitern in ein neues Sheet kopieren
 17.02.2020 09:20:17 Torsten
Solved
17.02.2020 09:35:30 Torsten
NotSolved
17.02.2020 12:48:59 Torsten L.
NotSolved