Wo ist der Fehler???

Hallöchen,

habe ein kleines Problem. Mein Programm will nicht so wie ich das will.

Habe in einer Arbeitsmappe unter andrem das Tabellenblatt "leer". Dies ist die leere Vorlage.

Und das Tabellenblatt "Hilfstabelle". Hier stehen die Namen aller Klienten. Hinter den aktuellen Klienten steht in Spalte 6 (Das ist F) ein ja. (Hinter den verstorbenen ein "nein")

Jetzt möchte ich ein Makro schreiben, dass für jeden Klienten ein Tabellenblatt erstellt. Der Name des Tabellenblattes soll der Name des Klienten sein. Dazu müßte die Vorlage "leer" immer wieder kopiert werden und dann umbenannt in den Namen des Klienten. Aber nur wenn in Spalte F ein "ja" steht. Das neue Tabellenblatt soll dann ans Ende gestellt werden, weil vorne ne ganze Menge Tabellenblätter sind die für Auswertungen und ähnliches gebraucht werden.

So sieht das bei mir aus:


Sub TabellenblätterErstellen()
Dim x As Integer
Dim Name As String
Dim bytZeile As Byte
For bytZeile = 2 To 100
Worksheets("Hilfstabelle").Select
Cells(bytZeile, 6).Select
If ActiveCell.Value = "ja" Then
x = Worksheets.Count
Sheets("leer").Select
Sheets("leer").Copy After:=Sheets(x)
Sheets("leer (2)").Select
Sheets("leer (2)").Name = Sheets("Hilfstabelle").Cells(bytZeile, 3).Value
End If
Next bytZeile
End Sub

In meinem Programm erstellt er immer nur eine Kopie von "leer", benennt aber nicht um.

Habe ich irgendwo einen Denkfehler?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub TabellenblätterErstellen() Dim Name As String Dim laR As Long Dim bytZeile As Byte laR = Cells(Rows.Count, 6).End(xlUp).Row For bytZeile = 2 To laR If Worksheets("Hilfstabelle").Cells(bytZeile, 6).Value = "ja" Then Sheets("leer").Copy After:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = Sheets("Hilfstabelle").Cells(bytZeile, 3).Value End If Next bytZeile End Sub

Sub TabellenblätterErstellen() Dim x As Integer Dim Name As String Dim bytZeile As Byte For bytZeile = 2 To 100 Worksheets("Hilfstabelle").Select Cells(bytZeile, 6).Select If ActiveCell.Value = "ja" Then x = Worksheets.Count Sheets("leer").Select Sheets("leer").Copy After:=Sheets(x) Sheets(Worksheets.Count).Select Sheets(Worksheets.Count).Name = Sheets("Hilfstabelle").Cells(bytZeile, 3).Value End If Next bytZeile End Sub

Sub TabellenblätterErstellen() Dim x As Integer Dim Name As String Dim bytZeile As Byte For bytZeile = 2 To 100 If Worksheets("Hilfstabelle").Cells(bytZeile, 6).Value = "ja" Then Sheets("leer").Copy After:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = Sheets("Hilfstabelle").Cells(bytZeile, 3).Value End If Next End Sub

Beliebteste Forumthreads (12 Monate)

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread