Thema Datum  Von Nutzer Rating
Antwort
Rot Arbeitsblätter nach Zahlen Sortieren
01.10.2013 09:18:11 Benny
NotSolved
01.10.2013 12:06:13 Gast5599
NotSolved
02.10.2013 09:56:52 Gast82911
NotSolved
02.10.2013 17:15:09 Gast27207
NotSolved
07.10.2013 13:04:15 Benny
Solved

Ansicht des Beitrags:
Von:
Benny
Datum:
01.10.2013 09:18:11
Views:
632
Rating: Antwort:
  Ja
Thema:
Arbeitsblätter nach Zahlen Sortieren

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 ;)

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Arbeitsblätter nach Zahlen Sortieren
01.10.2013 09:18:11 Benny
NotSolved
01.10.2013 12:06:13 Gast5599
NotSolved
02.10.2013 09:56:52 Gast82911
NotSolved
02.10.2013 17:15:09 Gast27207
NotSolved
07.10.2013 13:04:15 Benny
Solved