---
title: "Excel+VBA – seřazení listů podle abecedy"
id: "133"
type: "post"
slug: "ucitecnosti-3-excelvba-serazeni-listu-podle-abecedy"
published_at: "2015-06-10T03:43:32+00:00"
modified_at: "2023-08-13T15:30:56+00:00"
url: "https://www.kapler.cz/ucitecnosti-3-excelvba-serazeni-listu-podle-abecedy/"
markdown_url: "https://www.kapler.cz/ucitecnosti-3-excelvba-serazeni-listu-podle-abecedy.md"
excerpt: "Následující makro myslím nepotřebuje dalšího komentáře, vše je řečeno titulkem Public Function SortWorksheetsByName() Dim lCount As Long, lCounted As Long, lCount2 As Long Dim lShtLast As Long lShtLast = Sheets.Count For lCount = 1 To lShtLast For lCount2 = lCount..."
taxonomy_category:
  - "Programování"
taxonomy_post_tag:
  - "Excel"
  - "Makro"
  - "VBA"
---

# Excel+VBA – seřazení listů podle abecedy

Následující makro myslím nepotřebuje dalšího komentáře, vše je řečeno titulkem Public Function SortWorksheetsByName() Dim lCount As Long, lCounted As Long, lCount2 As Long Dim lShtLast As Long lShtLast = Sheets.Count For lCount = 1 To lShtLast For lCount2 = lCount To lShtLast If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then Sheets(lCount2).Move Before:=Sheets(lCount) End If Next lCount2 Next lCount…

Uveřejněno

10. 6. 2015

Rubrika

[Programování](https://www.kapler.cz/category/programovani/)

Autor

Tomáš Kapler

Značky:

[Excel](https://www.kapler.cz/tag/excel/)
, [Makro](https://www.kapler.cz/tag/makro/)
, [VBA](https://www.kapler.cz/tag/vba/)

Následující makro myslím nepotřebuje dalšího komentáře, vše je řečeno titulkem

```
Public Function SortWorksheetsByName()

 Dim lCount As Long, lCounted As Long, lCount2 As Long
 Dim lShtLast As Long

 lShtLast = Sheets.Count

 For lCount = 1 To lShtLast
 For lCount2 = lCount To lShtLast
 If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
 Sheets(lCount2).Move Before:=Sheets(lCount)
 End If
 Next lCount2
 Next lCount

End Function
```