• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: zjistit existenci listu

Zaslal/a PavDD 22.1.2024 10:07

Zdravím.Potřeboval bych odladit kod, který mi založí nový list.Když už list s tímto názvem existuje ,vyskočí chyba a debug.

Dá se to ošetřit ?
..že to jen oznámí, že už takový list existuje a jestli chci pokračovat dále, nebo skončit.

používám: Sheets.Add.Name = NázevListu 'založí nový list

Díky

Zaslat odpověď >

---

Strana:  1 2   další »

PavDD(22.1.2024 10:10)#056009

...Popř.i proceduru, nebo vzorec ??.. na jednoduché zjištění, jestli už takovýto název listu v sešitu existuje.
Nějak přečíst seznam listu a v něm se zeptat jestli existuje??citovat

Začátečník(22.1.2024 12:23)#056013

Dim sh As Worksheet
Dim jmenoListu As String

For Each sh In ActiveWorkbook.Sheets
If sh.Name = jmenoListu Then
MsgBox "List již existuje."
End If
Next sh

citovat

Stalker(22.1.2024 12:40)#056014

Private Function ListExistuje(ByVal strJmeno As String) As Boolean
On Error Resume Next
ListExistuje = Not Worksheets(strJmeno) Is Nothing
End Function
citovat

PavDD(22.1.2024 13:48)#056017

...nemůžu to rozjet, prosím můžete to implementovat do přikladu?

Dim sh As Worksheet

Dim jmenoListu As String

For Each sh In ActiveWorkbook.Sheets

If sh.Name = jmenoListu Then

MsgBox "List již existuje."

End If

Next shcitovat

Stalker(22.1.2024 14:11)#056018

Sub PridejList()
Dim JmenoListu As String
JmenoListu = "Tralala"
If ListExistuje(JmenoListu) = False Then
Worksheets.Add.Name = JmenoListu
Else
MsgBox "List s názvem: """ & JmenoListu & """ již existuje. Zvolte jiné jméno", _
vbExclamation, "Duplicita listů"
End If
End Sub
citovat

Začátečník(22.1.2024 14:11)#056019

Standardní je vložit přílohu.

Rychlejší a elegantnější je řešení od Stalker
Private Function ListExistuje(ByVal strJmeno As String) As Boolean
On Error Resume Next
ListExistuje = Not Worksheets(strJmeno) Is Nothing
On Error GoTo 0
End Function

Sub JeList()
If ListExistuje("Test") Then
MsgBox "List existuje."
Else
MsgBox "List neexistuje."
End If
End Sub
citovat

PavDD(22.1.2024 14:53)#056021

MsgBox "List s názvem: """ & JmenoListu & """ již existuje. Zvolte jiné jméno", _

no to právě nechci-zvolit jiné jméno.
Chci to vyhodnotit tak, že když už list existuje, tak nebudu ho tvořit znovu /ani s jiným názvem/ ale budu pracovat dále již v něm. Prostě přeskočím tu tvorbu nového listu.citovat

Stalker(22.1.2024 15:05)#056022

Já Ti to přece nenutím! Dělej si s tím co chceš.citovat

PavDD(22.1.2024 21:45)#056028

..zas se mi ta příloha nepřicvakla.
Ještě jednou.

Příloha: 56028_dotazlist.zip (15kB, staženo 1x)

citovat

PavDD(22.1.2024 21:46)#056029

Neumím to vyhodnotit v tom kodu.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse