Hallo,
da ich mal wieder aufm Schlauch stehe, bitte ich um Euere Hilfe: wie kann ich aus einem Makro eine einzelne Zeile per VBA entfernen, im aktiven Workbook?
Vielen Dank im Voraus!
Gruß Herbert
Hallo Herbert,
versuchs mal so:
Dim intI As Integer
MsgBox ActiveWorkbook.VBProject.VBComponents(ThisWorkbook.CodeName).CodeModule
With ActiveWorkbook.VBProject.VBComponents(ThisWorkbook.CodeName).CodeModule
For intI = 1 To .CountOfLines
If InStr(1, .Lines(intI, 1), "MsgBox") Then
.DeleteLines 1, 1
End If
Next intI
End With
End Sub
Gruß Worti
AW: Zeile aus Makro entfernen
08.10.2009 15:58:21
Herbert
hi worti,
danke für deinen tipp, aber leider funzt der nicht bei mir? was fehlt da evtl. nocht?
gruß herbert
AW: Zeile aus Makro entfernen
08.10.2009 16:22:00
Herbert
sorry worti,
jetzt hab ich's geschnallt! ist schon sch... wenn man alt und vergesslich wird! und du hast hiermit die prüfung bestanden und darfst wieder mal ein treffen ausrichten! ;o)=)
DANKE!!!
gruß herbert