Ich habe folgendes Problem:
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. |