Hallo Gemeinde,

folgendes Problem:

Ich habe min 15 Sheets (1x Info, 2x Auswertung, 1x Rohdaten, 1x Matrix, Rest Messungen (genannt M1,M2,M3,...). Momentan sind es ca 10 Messungen und mit Hilfe eines Makros, kann man eine neue Messungsvorlage erstellen lassen. In der Info ist der Überblick der Messungen in einer Tabelle dargestellt.

1. Frage: Wie kann ich meine Messungen alphabetisch/nach Zahlen anordnen lassen?

Momentan hab ich den Code:

 Sub SortWorksheets()

  Dim N As Integer
  Dim M As Integer
  Dim FirstWSToSort As Integer
  Dim LastWSToSort As Integer
  Dim SortDescending As Boolean

  SortDescending = False

 If ActiveWindow.SelectedSheets.Count = 1 Then
     FirstWSToSort = 9
     LastWSToSort = Worksheets.Count
 Else
     With ActiveWindow.SelectedSheets
         For N = 2 To .Count
             If .Item(N - 1).Index <> .Item(N).Index - 1 Then
                 MsgBox "You cannot sort non-adjacent sheets"
                 Exit Sub
             End If
         Next N
         FirstWSToSort = .Item(1).Index
         LastWSToSort = .Item(.Count).Index
      End With
 End If

 For M = FirstWSToSort To LastWSToSort
     For N = M To LastWSToSort
         If SortDescending = True Then
             If UCase(Worksheets(N).Name) > UCase(Worksheets(M).Name) Then
                 Worksheets(N).Move Before:=Worksheets(M)
             End If
         Else
             If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name) Then
                Worksheets(N).Move Before:=Worksheets(M)
             End If
         End If
      Next N
 Next M

 End Sub

Ich wollte eigtl die Sortierung nach dem 8.Sheet anfangen lassen.

FirstWSToSort = 9
     LastWSToSort = Worksheets.Count

das funktioniert auchsoweit. Nur hapert es bei den Messungen etwas. Er sortiert so: M1,M10,M11,M12,M2,M3,M4,M5,M6.... Jemand eine Ahnung wie man das lösen kann?

2.Frage: In meinem Sheet Matrix sind die wichtigsten Werte zusammengestellt um damit später ein Diagramm in der Auswertung erstellen zu lassen. D.h. Matrix bezieht die Daten aus den einzelnen Messungen und das Diagramm in der Gesamtauswertung wiederum aus der Matrix.

Wenn ich jetzt "vorarbeiten" möchte und sozusagen die Bezüge zu den einzelnen Messungen voreinstellen möchte (welche als Sheet noch nicht vorhanden sind) kommt gleich ein Fehler. Ich müsste es also automatisieren lassen, d.h. sobald ich eine neue Messungvorlage erstellt habe, soll die Matrix sich automatisch auch darauf beziehen^^.

Also erstmal etwas starker Tobak für euch Jungs, vllt habt ihr ja eine Ahnung =)

Besten Dank schon mal ;)