wie kann ich Tabellenblätter generieren, wenn ich in die Namen der Tabellenblätter schon in zellen stehen habe? z.b. a1 = "ABCD" dann soll das erste Tabellenblatt genau so heißen.
Vielen DAnk im Voraus.
Dennis
Sub TabEinfg()
Sheets.Add
ActiveSheet.Name = CStr(Sheets(1).Cells(1, 1).Value)
End Sub
Sub TabEinfg()
Sheets.Add 'tabelle einfügen
ActiveSheet.Name = CStr(Sheets(1).Cells(1, 1).Value) 'name der aktiven=eingefügten tabelle ist der wert von zelle a1 in tabelle1 als text (cstr() macht aus dem wert einen string=text)
End Sub