hi, ich hab n problem wenn ich im anfangssheet in Zelle T4 ne Bezeichnung eingebe bspw. Fk64516 und auf neues Blatt anlegen klicke funktioniert alles wunderbar. Bis auf unten wo die einzelnen Sheets sind schreibt er mir immer false rein :-(
bitte helft mir
Sheets("Vorlage").Visible = True
Sheets("Vorlage").Select
Sheets("Vorlage").Name = "Vorlage"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("RS-Tabelle").Select
Range("T4").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Vorlage").Select
Application.CutCopyMode = False
Sheets("Vorlage").Copy After:=Sheets(21)
Sheets("Vorlage (2)").Select
Sheets("Vorlage (2)").Name = "Vorlage (2)"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("RS-Tabelle").Select
Range("T4").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Vorlage (2)").Select
Sheets("Vorlage (2)").Name = "GG323DGW"
Range("A5:A7").Select
ActiveSheet.Paste
Range("I14:M14").Select
Sheets("Vorlage").Select
Application.CutCopyMode = False
Sheets("Vorlage").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
mfg
daniel |