Sub Loeschen()
Dim vbc As Object
Dim strFile As String
' bei Fehler zum Errorhandler
On Error GoTo Errorhandler
' Mit dem VBA Objekten in der aktiven Datei.
With ActiveWorkbook.VBProject
' Ein Schleife die ALLE VBComponents durchläuft, sollen nur bestimmte gelöscht werden
' dann muss dieser Code angepaßt werden.
For Each vbc In .VBComponents
Select Case vbc.Type
' Wenn Type = 100, also DieseArbeitsmappe oder ein Tabellenblatt, dann darin
' alle Codezeilen löschen. Denn die Datei und die Tabellenblätter sollen ja
' erhalten bleiben, also nur den Code löschen.
Case 100
With .VBComponents(vbc.Name).CodeModule
.DeleteLines 1, .CountOfLines
End With
' Wenn Type = 1 dann ist es ein Standardmodul, dies wird komplett gelöscht!
Case 1
' Löschen des Standardmodules, mann kann auch Module dirket mit Namen
' ansprechen. Zb. Löscht die nächste Zeile Modul 1
' .VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Remove .VBComponents(vbc.Name)
' Wenn Type = 2 dann ist es ein Klassennmodul, dies wird komplett gelöscht!
Case 2
.VBComponents.Remove .VBComponents(vbc.Name)
' Wenn Type = 3 dann ist es ein Userform, dies wird komplett gelöscht!
Case 3
.VBComponents.Remove .VBComponents(vbc.Name)
End Select
Next vbc
End With
' Wenn alles gelöscht wurde, dann raus hier!
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Das Löschen des VBA Codes ist fehlgeschlagen!" & vbCr & _
"Bitte überprüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom Makro Loeschen"
Else
MsgBox "Err.Number = " & Err.Number & ". " & Err.Description, vbCritical
End If
End Sub
Sub vbaZeileloeschen()
With ActiveWorkbook.VBProject
MsgBox "Hiermit wird die die 9. Zeile im Modul2 gelöscht !!! "
With .VBComponents("Modul2").CodeModule
' Lösche Zeile 9 , eine Zeile "lang".
' .DeleteLines 5, 3 löscht z.B. die 5. 6. und 7. Zeile in Modul1
.DeleteLines 9, 1
End With
End With
End Sub
Sub vbaZeileersetzen()
With ActiveWorkbook.VBProject
MsgBox "Hiermit wird die die 7. Zeile im Modul2 ersetzt !!! "
With .VBComponents("Modul2").CodeModule
' Lösche Zeile 9 , eine Zeile "lang".
' .DeleteLines 5, 3 löscht z.B. die 5. 6. und 7. Zeile in Modul1
.ReplaceLine 7, "strHelp = "" Test Text Neu"""
End With
End With
End Sub
Sub TestAusgabe()
' Variablendeklaration
Dim strHelp As String
strHelp = " Test Text Original" ' Diese Zeile wird ersetzt.
MsgBox strHelp
' Zeile die gelöscht werden soll ' Diese Zeile wird gelöscht.
End Sub
Sub vbaZeileersetzen()
Dim strText As String
With ActiveWorkbook.VBProject
MsgBox "Hiermit wird die die 7. Zeile im Modul2 ersetzt !!! "
With .VBComponents("Modul2").CodeModule
' .ReplaceLine 7, "strHelp = "" Test Text Neu"""
strText = "Hallo Mathias"
.ReplaceLine 7, "strHelp = " & """" & strText & """"
End With
End With
End Sub