Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblätter aus Liste erstellen

Tabellenblätter aus Liste erstellen
12.05.2009 08:10:21
StefanS
Guten Morgen,
kaum hat der Tag begonnen und schon hänge ich wieder fest!
Diesmal soll aus einer Liste (bezugnehmend auf die Spalte Section) div.Tabellenblätter mit der Bezeichnung Register_1 usw. erstellt werden. Die Anzahl der neuen Tabellenblätter entspricht der Anzahl der aufgeführten Sections (immer unterschiedlich). Ich habe schon probiert hier mit Variablen zu arbeiten - jedoch Fehlanzeige!
Anbei eine Bsp.-Datei zur Verdeutlichung.
https://www.herber.de/bbs/user/61758.xls
Schon jetzt vielen Dank für Euere Unterstützung!
Gruß, Stefan

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
For x = 4 To LoLetzte Step 2 ...
12.05.2009 08:40:19
Matthias
Hallo
Beispiel:

Sub Register_anlegen()
Dim LoLetzte As Long
Dim x As Long
On Error Resume Next
With Worksheets("Tabelle1")
LoLetzte = .Cells(Rows.Count, 2).End(xlUp).Row
For x = 4 To LoLetzte Step 2
.Cells(x, 2).Select
Worksheets.Add.Name = "Register_" & .Cells(x, 2).Value
Next
End With
End Sub


Gruß Matthias

AW: For x = 4 To LoLetzte Step 2 ...
12.05.2009 09:28:45
StefanS
Hi Matthias,
zunächst danke für Deine schnelle Antwort. Es kann jedoch vorkommen, dass manche Sections mehrfach vorkommen (siehe Bsp.-Datei), aber es soll nur ein Register pro Section erstellt werden. Aus irgendeinen Grund werden mehr Register eingefügt, als das Sections da sind. Hast Du evtl. eine Idee woran das liegen könnte?
https://www.herber.de/bbs/user/61761.xls
Gruß, Stefan
Anzeige
For x = 1 To LoLetzte ...
12.05.2009 09:50:07
Matthias
Hallo

Sub Register_anlegen2()
Dim LoLetzte As Long
Dim x As Long
On Error Resume Next
Application.ScreenUpdating = False
With Worksheets("Menue")
LoLetzte = .Cells(.Cells(Rows.Count, 2).End(xlUp).Row, 2).Value
For x = 1 To LoLetzte
Worksheets.Add.Name = "Register_" & x
Worksheets("Register_" & x).Move After:=Sheets(Sheets.Count)
Next
.Activate
End With
Application.ScreenUpdating = True
End Sub


Gruß Matthias

AW: Tabellenblätter aus Liste erstellen
12.05.2009 09:41:30
Tino
Hallo,
geht es hiermit?
Function CheckTab(strName As String) As Boolean
Dim myTabs As Worksheet
    
    For Each myTabs In ThisWorkbook.Worksheets
        If myTabs.Name = strName Then
         CheckTab = True
         Exit Function
        End If
    Next myTabs

End Function

Sub Tabellen_Erstellen()
Dim Bereich As Range
Dim neueTab As Worksheet

With Tabelle1
    Set Bereich = .Range("B3", .Cells(.Rows.Count, 2).End(xlUp))
End With

For Each Bereich In Bereich
    If Bereich <> "" Then
     If Not CheckTab("Register_" & Bereich.Text) Then
      Set neueTab = Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
      neueTab.Name = "Register_" & Bereich.Text
     End If
    End If
Next Bereich

Tabelle1.Activate

End Sub


Gruß Tino

Anzeige
AW: Tabellenblätter aus Liste erstellen
12.05.2009 09:54:56
StefanS
Weltklasse Jungs - ES FUNKTIONIERT!!!
Danke und 'nen schönen Tag.
Stefan

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige