Noch ausführlicher!!!!
andif
Hallo Moe,
super, jemand der mir helfen kann!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Also, das mit der Hilfstabelle und den Tabellenblättern ist klar, denke ich.
Hier das Programm:
Sub TabellenblätterErstellen()
Dim x As Integer
Dim strName As String
Dim bytZeile As Byte
Dim strAmtsgericht As String
Dim strAktenzeichen As String
Dim strVorname As String
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
For bytZeile = 2 To 100
Worksheets("Hilfstabelle").Select
Cells(bytZeile, 6).Select
strName = Cells(bytZeile, 3)
strVorname = Cells(bytZeile, 4)
strAktenzeichen = Cells(bytZeile, 2)
strAmtsgericht = Cells(bytZeile, 5)
If ActiveCell.Value = "ja" Then
x = Worksheets.Count
Sheets("leer").Select
Sheets("leer").Copy After:=Sheets(x)
Sheets(Worksheets.Count).Select
ActiveSheet.Unprotect
Sheets(Worksheets.Count).Name = Sheets("Hilfstabelle").Cells(bytZeile, 3).Value
Sheets(Worksheets.Count).Cells(2, 2) = strName
Sheets(Worksheets.Count).Cells(3, 2) = strVorname
Sheets(Worksheets.Count).Cells(4, 2) = strAktenzeichen
Sheets(Worksheets.Count).Cells(5, 2) = strAmtsgericht
ActiveSheet.Protect
End If
Next bytZeile
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
On Error Resume Next
End Sub
Das läuft super.
Jetzt etwas genauer mein Problem:
Also wie schon gesagt, es sollen alle Tabellenblätter in einer Pivottabelle ausgewertet werden. Zu erstellen brauche ich keine mehr, da die schon existiert. Ich müsste nur alle Tabellenblätter hinzufügen. Das mache ich im Moment noch zu Fuß, sprich mit dem Pivotassistenten.
Schöner wäre es natürlich, wenn das mit der obigen Schleife von selbst gehen würde.
Weiß aber nicht, wie der Code aussehen muss, da ich nichts über "hinzufügen" oder so finde.
Wenn ich das ganze aufzeichne, das hinzufügen, passiert nichts anderes, als dass in der Aufzählung der Tabellenblätter das neue noch mit da bei steht. - Auf die Art komme ich auch nicht weiter, da ich ja nicht weiß, wie die Tabellenblätter immer heißen. - Darum ja auch die Lösung mit der Schleife, dass das von alleine geht. Uff - noch Fragen?
Ja, ich weiß, es ließt sich ziemlich wuselig. Am besten du fragst mal, was dir nicht klar ist.
andif