hi hab mittlerweile n großese prob.
ich bekomme nicht hin das wenn ich auf den anfangstabellenblatt ein neues blatt anlegen lasse. Zelle t4 dann kopiert er mir wunderbar ein neues blatt bis auf eine Kleinigkeit er nennt dies neue Blatt unten bei den Bezeichnungen nicht so wie ichs im anfangshhet gewünscht habe sondern "Forlage". Ich will aber in den sheet rs-tabelle in zelle t4 bspw. 1234 eingeben und er nennt mir das neu generierte sheet dann auch 1234 wie bekomme ich das hin???
über hilfe wäre ich sehr dankbar.
Sub Tabellenblatterstellen()
'
' Tabellenblatterstellen Makro
' Makro am 25.04.2008 von Q040753 aufgezeichnet
'
'
Sheets("Forlage").Visible = True
Sheets("Forlage").Select
Sheets("Forlage").Name = "Forlage"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("RS-Tabelle").Select
Range("T4").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Forlage").Select
Application.CutCopyMode = False
Sheets("Forlage").Copy After:=Sheets(21)
Sheets("Forlage (2)").Select
Sheets("Forlage (2)").Name = "Forlage (2)"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("RS-Tabelle").Select
Range("T4").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Forlage (2)").Select
ActiveWindow = Range("T4")
Sheets("Forlage (2)").Name = ActiveCell.FormulaR1C1 = "='RS-Tabelle'!R[-35]C[8]"
Range("L40").Select '"GG323DGW"
Range("A5:A7").Select
ActiveSheet.Paste
Range("I14:M14").Select
Sheets("Forlage").Select
Application.CutCopyMode = False
Sheets("Forlage").Move After:=Sheets(22)
ActiveWindow.SelectedSheets.Visible = False
Application.Run "Radsatz_Nöth_Blaschek.xls!SF_zurück"
Range("T4").Select
Selection.ClearContents
End Sub
Sub Makro2()
'
' Makro2 Makro
' Makro am 25.04.2008 von Q040753 aufgezeichnet
'
'
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("RS-Tabelle").Select
Range("T4").Select
End Sub
Sub Makro3()
'
' Makro3 Makro
' Makro am 25.04.2008 von Q040753 aufgezeichnet
'
'
End Sub
|