problem mit - ActiveWorkbook.VBProject allg.

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "problem mit - ActiveWorkbook.VBProject allg."