Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Code Tabelle entfernen



Excel-Version: 9.0 (Office 2000)

Betrifft: Code Tabelle entfernen
von: Josi
Geschrieben am: 27.05.2002 - 18:50:11

Habe in der Tabelle 1
folgenden Code stehen.

Dim bln As Boolean
Private Sub Worksheet_SelectionChange _
     (ByVal Target As Excel.Range)
     Dim rng As Range
     Set rng = Range("a14")
     If Target.Address = rng.Address Then bln = True
     If bln = True And Target.Address <> rng.Address Then
         Call Zahlengenerator
         
         bln = False
     End If
 End Sub

nun kopiere ich mit
Sheets("tabelle1").Copy
das Blatt und möchte jetzt aber nicht mehr den Code in Tabelle 1 stehen haben.
geht das und wenn ja wie bekomm ich das hin?
Bin für jede Hilfe dankbar
Gruß Josi


  

Re: Code Tabelle entfernen
von: GraFri
Geschrieben am: 27.05.2002 - 20:58:35

Hallo

Vielleicht hilft dir das weiter.


' Code in das erste Tabellenblatt (nach "DieseArbeitsmappe"), da der Löschvorgang
' in der Richtung "letzten Tabelle" zur "ersten Tabelle verläuft". Zuerst "Module",
' dann "Userformen" und zuletzt "Ereignisprozeturen (Code in einem Tabellenblatt) löschen"


'Diese Prozedur zum Löschen aufrufen
Sub Alles_löschen()
    Call Lösche_Module
    Call Lösche_Userformen
    Call Lösche_Ereignisprozeduren
End Sub

Sub Lösche_Module()
'Löscht Module:
    For n = ThisWorkbook.VBProject.vbComponents.Count To Step -1
        If ThisWorkbook.VBProject.vbComponents(n).Type = 1 Then
            ThisWorkbook.VBProject.vbComponents(n).Collection.Remove ThisWorkbook.VBProject.vbComponents(n)
        End If
    Next
End Sub

Sub Lösche_Userformen()
'Löscht Userforms:
    For n = ThisWorkbook.VBProject.vbComponents.Count To Step -1
        If ThisWorkbook.VBProject.vbComponents(n).Type = 3 Then
            ThisWorkbook.VBProject.vbComponents(n).Collection.Remove ThisWorkbook.VBProject.vbComponents(n)
        End If
    Next
End Sub

Sub Lösche_Ereignisprozeduren()
'Löscht Ereignisprozeduren:
    For n = ThisWorkbook.VBProject.vbComponents.Count To Step -1
        For i = 1 To ThisWorkbook.VBProject.vbComponents(n).CodeModule.CountOfLines
            If ThisWorkbook.VBProject.vbComponents(n).Type <> 1 And ThisWorkbook.VBProject.vbComponents(n).Type <> 3 Then _
                ThisWorkbook.VBProject.vbComponents(n).CodeModule.DeleteLines 1
        Next
    Next
End Sub

mfg, GraFri

  

Re: Code Tabelle entfernen
von: GraFri
Geschrieben am: 27.05.2002 - 21:00:20

Hallo

Oder vielleicht das?


' Löschen des Code im Tabellenblatt
Sub Loesche_Tabellencode()
Dim WB As Workbook
    Worksheets("Tabelle1").Copy
    Set WB = ActiveWorkbook
    With WB.VBProject.VBComponents("Tabelle1").CodeModule
        .DeleteLines 1, .CountOfLines
    End With
End Sub

mfg, GraFri


  

Vielen dank es klappt
von: Josi
Geschrieben am: 27.05.2002 - 21:13:22

.

 

Beiträge aus den Excel-Beispielen zum Thema "Code Tabelle entfernen"