Folgendes Problem. Ich habe ein Tabellenbaltt (TT) auf dem Basisdaten (Text + Daten)erfasst werden. In der Zelle (D13) wird definiert, wieviele weitere Arbeitsblätter ich für diese Datei benötige. Diese sollen dann formatgleich vom 2. Tabellenblatt (TH) kopiert werden.
Im anschluss werden de neu generierten Tabellenblätter fortlaufend mit H1, H2, H3 usw. nummeriert/benannt.
Die Themen einzeln bekomme ich hin:
Kopieren:
Sheets("TH").Select
Sheets("TH").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "test"
Und hier die Bennenung:
Sub TabellenEinfügen()
Dim intC As Integer
Dim str As String
str = "H"
Application.ScreenUpdating = False
For intC = 1 To Sheets("TT").Range("d12").Value
Sheets.Add After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = str & " " & intC
Next
Application.ScreenUpdating = True
End Sub
Kann mir bitte jemand helfen, die 2 Themen zusammen zu bekommen.
Ich verstehs nichts mehr
Vielen Dank im Voraus
Alex