Fehler beim Makrocopieren
03.07.2003 10:55:10
Wolfgang
habe folgenden Code aus der Recherche um in ein neues Tabellenblatt einen Code aus dem vorhandenen Blatt ("Forms") zu kopieren.
In der Zeile: With .vbcomponents("Forms").codemodule erhalte ich einen Fehler
Der Code im Klassenmodul der Tabelle: ("Forms")
Private Sub Worksheet_Change(ByVal Target As Range)
Call NeuesMitglied(Target)
End Sub
Der Code in einem Modul:
Sub NewSheetWithCode()
Dim txt As String
Worksheets.Add
With ThisWorkbook.VBProject
With .vbcomponents("Forms").codemodule
txt = .Lines(1, .CountOfLines)
End With
With .vbcomponents(ActiveSheet.CodeName).codemodule
If .CountOfLines > 0 Then
.DeleteLines 1
End If
.AddFromString txt
End With
End With
End Sub
Könnt ihr mir bitte sagen was hieran falsch ist.
Danke im voraus.
Gruß
Wolfgang