---

Hallo!

Hab eine Tabelle mit ca. 100 Registern bei denen Ich die letzte Zeile ermitteln will und dann in ein eigenes Tabelleblatt ausgeben will.

Public Sub last_cell()
  lastcell = ActiveSheet.Cells(100000, 1).End(xlUp).Row
End Sub

Wie bekomme Ich die Werte aller Register und die jeweiligen Registernamen in ein eigenes Tabelleblatt?

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich nehme mala an mit Register meinst Du Blätter.

Mal als Ansatz:

'das folgende Makro fügt ein weiteres Tabellenblatt "Inhalt" hinzu und listet alle enthaltenen Blätter dieser Datei auf

Code:

---

Sub inhalt()
Sheets(1).Select
Sheets.Add
Sheets(1).Name = "Inhalt"
z = 1
For Each w In Worksheets
If w.Index <> 1 Then Range("a" & z - 1).Value = w.Name
z = z + 1
Next w
End Sub

---

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

mit dem folgenden Code werden die Namen aller Tabellenblätter und deren letzte belegte Zelle der Spalte A im Tabellenblatt "Auflistung" erfasst:

Code:

---

Sub Auflisten()
    Dim wshTabelle As Worksheet
    Dim lngZeile As Long
    lngZeile = 1
    With Worksheets("Auflistung")
        For Each wshTabelle In Worksheets
            If wshTabelle.Name <> "Auflistung" Then
              .Cells(lngZeile, 1) = wshTabelle.Name
              .Cells(lngZeile, 2) = IIf(IsEmpty(wshTabelle.Cells(wshTabelle.Rows.Count, 1)), _
                  wshTabelle.Cells(wshTabelle.Rows.Count, 1).End(xlUp).Row, wshTabelle.Rows.Count)
              lngZeile = lngZeile + 1
            End If
        Next wshTabelle
    End With
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Karin und Axel!

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP