---

Reihenfolgeverkehrt.JPG

Hallo SWX-Gemeinde. Ich habe bei einer Zeichnung Blätter gelöscht und weitere hinzugefügt. Dadurch fehlten z.B. bei 12 Einzelblättern 3 Blätter und somit auch 3 Zahlen. Daher habe ich die Blätter entsprechend umbenannt, damit der Kunde anhand der Nummerierung nicht denkt, daß Blätter fehlen.
Leider sind die Blätter nun aber nicht den Zahlen entsprechend geordnet. Gibt es eine Möglichkeit, die Blätter in der richtigen Reihenfolge zu sortieren lassen?
Ich habe mal ein Bild angehängt, auf dem man sieht, daß die Reihenfolge der Blätter so nicht stimmt.
Vielen Dank schon mal für euer Bemühen

Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

vermute, einfach mit der Maus ziehen wie im Excel...

G.   thomas

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Manche Dinge können ja so einfach sein, wenn man es nur weiß
Vielen Dank!!
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mike

oder mit einem kleinen Makro wenns viele Blätter sind
ich hab das aber nur so auf die Schnelle gemacht,
also keine Fehlerabfragen eingebaut
------------------------------------------------------
Sub main()
  Dim swapp As SldWorks.SldWorks
  Dim doc As DrawingDoc
  Dim list As Variant
 
  Set swapp = Application.SldWorks
 
  Set doc = swapp.ActiveDoc
  list = doc.GetSheetNames
 
  list = sort_up(list)
 
  doc.ReorderSheets list
End Sub

Function sort_up(dliste) As Variant
  Dim i            As Integer
  Dim masz, masz1  As String
  Dim temp          As String
   
 
  If UBound(dliste) = 0 Then
    sort_up = dliste
    Exit Function
  End If
 
  For i = 0 To UBound(dliste) - 1
    masz = dliste(i)
    If i < UBound(dliste) Then
      masz1 = dliste(i + 1)
      If masz > masz1 Then
        temp = dliste(i + 1)
        dliste(i + 1) = dliste(i)
        dliste(i) = temp
        i = -1
      End If
    End If
  Next i
  sort_up = dliste
End Function
------------------------------------------------------

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP