Thema Datum  Von Nutzer Rating
Antwort
Rot tabellenblätter
05.05.2008 07:08:30 odi
NotSolved

Ansicht des Beitrags:
Von:
odi
Datum:
05.05.2008 07:08:30
Views:
2264
Rating: Antwort:
  Ja
Thema:
tabellenblätter
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot tabellenblätter
05.05.2008 07:08:30 odi
NotSolved