ist es möglich tabellenblätter automatisch in vba (alphabetisch) zu ordnen? es soll auch funktionieren wenn ich tabellenblätter hinzufüge.
für hilfe wäre ich dankbar.
gruß
martin
ist es möglich tabellenblätter automatisch in vba (alphabetisch) zu ordnen? es soll auch funktionieren wenn ich tabellenblätter hinzufüge.
für hilfe wäre ich dankbar.
gruß
martin
klar ist es. schreib ein makro.
mit worksheets(index).name kannst du auf den blattnamen zugreifen,
mit worksheets(blattname).move kannst du ein blatt verschieben.
mfg
Private Sub Workbook_Open()
Worksheets(Index).name
End Sub
martin
das makro: sortiert beim öffnen die tabellenblätter
(legt temporär eine hilfsseite an, löscht diese aber wieder)
mfg
Private Sub Workbook_Open()
Worksheets.Add Worksheets(1)
Set tbnew = Worksheets(1)
For i = 1 To Worksheets.Count - 1
Range("A" & i) = Worksheets(i + 1).Name
Next i
Range("A1:A" & Worksheets.Count - 1).Sort Range("A1")
For i = 1 To Worksheets.Count - 1
tbnew.Activate
Worksheets(Range("A" & i).Text).Move , Worksheets(i)
Next i
Worksheets(1).Delete
End Sub
danke für die anweisung, es klappt prima.
ein schönes wochenende.
gruß
martin