Új hozzászólás Aktív témák

• #47554 Delila_1 veterán t420s #47553

  Új Válasz 2021-10-12 17:59:58 #47554

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz t420s #47553 üzenetére

  Lehet, hogy van egyszerűbb módja is, én ezt írtam:
  Sub lapok()
    Dim kezd As Integer, lap As Integer
    
    For lap = 1 To Sheets.Count
        If Sheets(lap).Name = "alma" Then kezd = lap
        If Sheets(lap).Name = "körte" Then Exit For
    Next
    MsgBox "Az alma és a körte nevű lapok között " & lap - kezd - 1 & " másik lap van.", vbInformation, "Tájékoztatás"
End Sub

Új hozzászólás Aktív témák