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

• #42179 Richard őstag

  Új Válasz 2019-11-13 16:34:23 #42179

  Ú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

  

  Richard

  őstag

  Sziasztok.

  Sajnos ismét elakadtam.

  Szeretném kiíratni A oszlopba az adott excel fileban levő munkalapok nevét, a mellette levőbe pedig a munkalapon levő táblázatok neveit.

  Eleve nem csinálja amit szeretnék, mert csak a munkalapok neveit teszi be A oszlopba, de felvetődik a kérdés mi van akkor, ha több tábla is van egy munkalapon?

  Kérem aki tudja hol lövök mellé segítsen:

  Sub proba_1()

      Dim ws As Worksheet
    Dim tbl As ListObject
    Dim i As Single, x As Single
    
    i = 1
    x = 1
    
    For Each ws In ThisWorkbook.Worksheets
        Range("A1").Cells(x, 1) = ws.Name
        x = x + 1
     
       For Each tbl In ws.ListObjects
          Range("A1").Cells(i, x + 1).Value = tbl.Name
           i = i + 1
            
        Next tbl
    Next ws
End Sub

  Köszönöm

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