Privat Sub Code in Tabelle ändern
Herbert
wie man VBA-Code in einem Standardmodul ändert weiß ich. Das geht z.B. mit diesem Code:
Sub ModulZeileTauschen()
Dim iCounter%
With ThisWorkbook.VBProject.VBComponents("modSteuerung").CodeModule 'Name "modSteuerung" _
anpassen
For iCounter = 1 To .CountOfLines
If .Lines(iCounter, 1) = " MsgBox ""Austauschen!""" Then 'dieser Text wird _
ausgetauscht
.ReplaceLine iCounter, " MsgBox ""Ausgetauscht!""" 'mit diesem Text. Blanks _
beachten!
Exit Sub
End If
Next iCounter
End With
End Sub
Doch wie kann ich einen Code ändern, der sich in einer Tabelle befindet ("P rivat S ub ...")?
Vielen Dank im Voraus!
Gruß Herbert