Herbers Excel-Forum - das Archiv

problem mit - ActiveWorkbook.VBProject allg.

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: problem mit - ActiveWorkbook.VBProject allg.
von: chris b

Geschrieben am: 27.02.2005 18:27:50
Hallo VBA Profis, jetzt wollte ich gerade jemandem hier im Forum einen Tipp geben und habe dazu alste beispiele herausgesucht. und habe festellen müssen das diese nicht mehr funktionieren.
Könnte sich das bitte mal jemand anschauen und mir weiterhelfen ? Danke
Das sind 3 verschiedene Makros die alle nicht mehr funktionieren ?
Warum weiß ich leider nicht :(
Sub loeschmakro()
With ActiveWorkbook.VBProject
With .VBComponents("modul1").CodeModule
.DeleteLines 1, .countoflines
End With
End With
End Sub

'-----------------------------------------------------

Sub NewModule()
Dim mdl As Object
Dim strName As String
strName = InputBox("Modulname:", , "MyNewModule")
If strName = "" Then Exit Sub
Set mdl = ThisWorkbook.VBProject.VBComponents.Add(1)
mdl.Name = strName
End Sub


'-----------------------------------------------------

Const SuchZeile = "MsgBox ""VBA macht Spaß !"""
Const NeueZeile = "MsgBox ""VBA macht großen Spaß !"""
Sub VBAZeileÄndern()
Set VBE = Application.VBE.VBProjects(1).VBComponents.Item("Modul1").CodeModule
With VBE
For x = 1 To .countoflines
i = .countoflines
If Trim(.Lines(x, 1)) = NeueZeile Then
.ReplaceLine x, SuchZeile
Exit Sub
End If
If Trim(.Lines(x, 1)) = SuchZeile Then
.ReplaceLine x, NeueZeile
Exit Sub
End If
Next x
End With
End Sub

Bild

Betrifft: zusatz
von: chris b

Geschrieben am: 27.02.2005 18:36:50
Zusätzlich habe ich gerade noch etwas ausprobiert.
Habe aus dem herbers Excelbeispielen einen Code in ein Modul kopiert und ausgeführt, es kommt folgender fehler:
Laufzeitfehler '1004'
Die Methode 'VBProjekt' für das Objekt'_Workbook' ist fehlgeschlagen
Hier der code bitte helt mir.
Sub Meldung()
MsgBox "Hallo Welt!"
End Sub

Sub AufrufUndLoeschen()
Call Meldung
ThisWorkbook.VBProject.VBComponents("Modul1").CodeModule.DeleteLines 3, 4
End Sub

Bild

Betrifft: AW: zusatz
von: Ulf
Geschrieben am: 27.02.2005 19:02:20
Versuch mal, ob du das VBComponents im Objektkatalog findest, wahrscheinlich nicht,
weil ein Verweis auf die MS Visual Basic for Applications Extensibility x.x fehlt.
Ulf
Bild

Betrifft: AW: zusatz
von: chris b
Geschrieben am: 27.02.2005 19:49:24
Danke lösung schon vorhanden
Bild

Betrifft: AW: problem mit - ActiveWorkbook.VBProject allg.
von: Nepumuk
Geschrieben am: 27.02.2005 18:37:10
Hallo chris,
Extras - Makro - Sicherheit - Vertrauenswürdige Quellen - Häkchen bei "Zugriff auf Visual Basic-Projekt vertrauen" rein.
Gruß
Nepumuk
Bild

Betrifft: AW: problem mit - ActiveWorkbook.VBProject allg.
von: chris b
Geschrieben am: 27.02.2005 18:41:36
Danke das wars !! Sorry die "dumme" frage
 Bild
Excel-Beispiele zum Thema "problem mit - ActiveWorkbook.VBProject allg."
Verschnittproblem mit Solver lösen