-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
ő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
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Túra és kirándulás topic
- Politika
- Vírusirtó topic
- Melyik tápegységet vegyem?
- Repeater de milyet?
- Samsung Galaxy A55 - új év, régi stratégia
- Mortal Kombat 1 - Így harcol Homelander
- Anglia - élmények, tapasztalatok
- LEGO klub
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- További aktív témák...
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs