Daten aus einem Tabellenblatt mit Variablem Namen kopieren
14.02.2020 13:18:31
Tristan
Ich würde gerne Daten aus einem Tabellenblatt in ein anderes kopieren, allerdings hat dieses Tabellenblatt einen stetig wechselnden Namen. (Es geht um die Auswertung von Versuchsdaten.)
Was ich bisher habe:
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 in den neuen Reiter'
Dim ws As Worksheet
Dim X As Integer
X = 1
For Each ws In Worksheets
Cells(X, 1) = ws.Name
X = X + 1
Next ws
End Sub
Jetzt würde ich gerne, dass die Ranges ("E6:E77") aus jedem vorhanden Tabellenblatt nach "Data" kopiert werden.
Ziel ist es für mich ein Add-In zu erstellen, dass mir die wichtigsten Daten aus verschiedenen Messungen (jede Messung erzeugt dabei einen anderen Tabellenblatt-Namen) zusammenträgt und ich diese dann weiterverarbeiten kann.