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

• #42183 Delila_1 veterán Richard #42179

  Új Válasz 2019-11-14 07:40:34 #42183

  Ú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 Richard #42179 üzenetére

  Sub Lap_Tabla()
    Dim sor As Integer, CV, lap As Integer, oszlop As Integer
    
    sor = 1
    For lap = 1 To Worksheets.Count
        With Sheets(1)
            oszlop = 1
            .Cells(sor, oszlop) = Sheets(lap).Name
            For Each CV In Sheets(lap).ListObjects
                oszlop = oszlop + 1
                .Cells(sor, oszlop) = CV.Name
            Next
        End With
        sor = sor + 1
    Next
End Sub

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