Einfügen und benennen von Arbeitsblättern

Forumthread: Einfügen und benennen von Arbeitsblättern

29.02.2008 11:39:00

Arbeitsblättern

Hallo Leute
Ich habe in einem Tabellenblatt (Tabelle1) Daten in den Zellen D4 bis D11. Nun möchte ich, dass automatisch genau soviele Tabellenblätter eröffnet und der Reihe nach benennt werden.
Kann mir jemand weiterhelfen?
Besten Dank und Gruss
Hugo

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Einfügen und benennen von Arbeitsblättern

29.02.2008 11:56:28

Arbeitsblättern
AW: Einfügen und benennen von Arbeitsblättern

29.02.2008 12:07:00

Arbeitsblättern
workboo -> Workbooks

29.02.2008 12:12:00

Rudi
AW: workboo -> Workbooks

29.02.2008 12:19:47

Hugo
AW: workboo -> Workbooks

29.02.2008 13:49:00

Rudi
AW: workboo -> Workbooks

29.02.2008 14:32:00

Hugo

AW: Einfügen und benennen von Arbeitsblättern

29.02.2008 11:56:28

Arbeitsblättern

Hi Hogo,
versuch es mal hiermit


Public Sub TabellenAnlegenUndBenennen()
Dim s_Tab As String
Dim s_Mapp As String
Dim i As Integer
Dim i_Neu As Integer
Dim e As Integer
Sheets("Tabelle1").Activate
i = ActiveSheet.UsedRange.Rows.Count
s_Tab = ActiveSheet.Name
s_Mapp = ThisWorkbook.Name
Workbooks.Add
s_mappNeu = ActiveWorkbook.Name
i_Neu = ActiveWorkbook.Sheets.Count
For e = 4 To ActiveWorkbook.Sheets.Count
Sheets(e).Name = workboo(s_Mapp).Sheets(s_Tab).Cells(e, 4).Value
Next e
End Sub

AW: Einfügen und benennen von Arbeitsblättern

29.02.2008 12:07:00

Arbeitsblättern

Hallo
Besten Dank für Deine Antwort. Leider kommt eine Fehlermeldung.
"Fehler beim Kompilieren: '


Sub oder 

Function nicht definiert'"
Zudem wird im letzten Abschnitt das Wort workboo eingefärbt.
Gruss Hugo
Workbooks.Add
s_mappNeu = ActiveWorkbook.Name
i_Neu = ActiveWorkbook.Sheets.Count
For e = 4 To ActiveWorkbook.Sheets.Count
Sheets(e).Name = workboo(s_Mapp).Sheets(s_Tab).Cells(e, 4).Value
Next e
End Sub

workboo -> Workbooks

29.02.2008 12:12:00

Rudi

AW: workboo -> Workbooks

29.02.2008 12:19:47

Hugo

Hallo Rudi Maintaire
Dank für die Deinen Hinweis. Das Makro läuft nun, funktioniert aber nicht wunschgemäss.
Es öffnet einfach eine Datei und legt dort 3 Tabellenblätter, ohne diese zu benennen an.
Gruss Hugo

AW: workboo -> Workbooks

29.02.2008 13:49:00

Rudi

Hallo,
ohne irgendwelche Fehlerbehandlung:


Sub tt()
Dim rngC As Range
With Sheets("Tabelle1")
For Each rngC In .Range(.Cells(4, 4), .Cells(Rows.Count, 4).End(xlUp))
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = rngC.Value
Next rngC
End With
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: workboo -> Workbooks

29.02.2008 14:32:00

Hugo

Hallo Rudi
Korrekt!!!! Genau was ich gesucht habe!
Vielen herzlichen Dank!
Gruss Hugo

Einfügen und benennen von Arbeitsblättern

Forumthread: Einfügen und benennen von Arbeitsblättern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread