Office: (Office 2004) Tabellenblätter kopieren

Hallo,
ich habe folgendes Problem: Ich habe ein paar einfache Anweisungen in einem Tabellenblatt in VBA eingegeben und wenn ich das Tabellenblatt kopiere passt nichts mehr (ich habe das problem bei mehreren Blättern die ich individuelle vervielfältigen möchte), da der Bezug zum richtigen Tabellenblatt fehlt, vielleicht weiß jemand wie ich den Code vereinfachen bzw ändern könnte um das Problem zu lösen ohne immer in VBA gehen zu müssen.

das ganze sieht in etwa so aus:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim wks As Worksheet
    Set wks = ThisWorkbook.Worksheets("Mappe1")
    With wks
        Select Case .Range("AZ21").Value
        
            Case Is = 0
                Range("L9,L14,J15:L15,E30").ClearContents
            Case Is = 1
               Range("L14,J15:L15,E30").ClearContents
            Case Is = 2
                Range("L9,J15:L15,E30").ClearContents
            Case Is = 3
                Range("L9,L14,J15:L15,E30").ClearContents
            Case Is = 4
               Range("J15:L15,E30").ClearContents
                                  
        End Select
       Select Case .Range("I20").Value
        
            Case Is = 1
                Range("K23,M23,K24,M24,K25,M25,K26,M26").ClearContents
            Case Is = 2
               Range("K24,M24,K25,M25,K26,M26").ClearContents
            Case Is = 3
                Range("K25,M25,K26,M26").ClearContents
            Case Is = 4
                Range("K26,M26").ClearContents
            Case Is = 5
       End Select
       
           
    End With
    Set wks = Nothing
End Sub

ich weiß, dass ich irgendetwas mit der Mappe 1 machen muss, aber wenn ich es wegnehmen oder ändere funktioniert es nicht mehr. Ich denke das da einfache Änderungen helfen sollten, aber ich wurde bis jetzt leider noch nicht fündig und habe allgemein von excel Programmierung nicht wirklich Ahnung.

Danke schon mal im Voraus

lg Konstantin

 

Hallo,

probiere es mal mit With ActiveSheet, wenn es sich immer um die aktive Tabelle handeln soll, wo die Zellen usw. gelöscht werden sollen. Falls das soweit klappt, kannst Du die Deklaration von wks, und die Zuweisungen Set wks = ... löschen.

Gruß

 

Super, das hat schon geholfen!

Dankeschön :)

 

Jetzt habe ich leider noch ein kleineres Problem, ich möchte jetzt für die Blätter den Druckbereich festlegen. Das sollte ja mit

Code:

ActiveSheet.PageSetup.printarea = "A1:O55"

funktionieren.

am besten direkt bevor gedruckt wird, damit man den Druckbereich nicht kaputt spielen kann. dazu hatte ich mir folgendes überlegt

Code:

Private Sub Workbook_BeforePrint()
With ActiveSheet
PageSetup.printarea = "A1:O55"
End With
End Sub

aber so richtig funktionieren tut das nicht :/ hätte dazu jemand einen Lösungsansatz ?

lg