Sub oder Function nicht definiert?

Christian · 2024-06-11T13:18:26+00:00

Hallo, Ich bitte um eure Hilfe. Ich habe 4 Makros, mit dem Namen Makro1, Makro2, Makro3 und Makro4. Die wollte ich alle nacheinander ausführen und habe gegooglet wie ich das machen könnte... und hab dann ein Makro gemacht Sub Download() Call Makro1 Call Makro2 Call Makro3 Call Makro4 End Sub aber da meint Excel jetzt Sub oder Function nicht definiert. Was mache ich da falsch? Danke Christian

Hallo ihr beiden,

so sehen die Makros aus: Sie unterscheiden sich nur durch Namen und Tabellenblatt (Tabelle 1-4).
Die Makros liegen in den entsprechenden Blättern, das Makro Download in einem Modul.

Public Sub Makro1()

Dim objIE As Object

Dim objLinks As Object

Dim objLink As Object

Dim lngCount As Long



Dim lloRow As Long, lshTab2 As Worksheet



Set lshTab2 = Sheets("Tabelle1")



    For lloRow = 1 To lshTab2.Cells(lshTab2.Rows.Count, 1).End(xlUp).Row

        Set objIE = CreateObject("InternetExplorer.Application")

        With objIE

            .navigate lshTab2.Range("A" & lloRow).Text

            Do While .busy

                Do While .busy

                    DoEvents

                Loop

            Loop

            .Visible = False

            Set objLinks = .Document.Links

            For Each objLink In objLinks

                lngCount = lngCount + 1

                lshTab2.Cells(lngCount, 2) = objLink.href

                lshTab2.Cells(lngCount, 3) = "'" & objLink.outertext

            Next

            .Quit

        End With

        

        Application.Wait (Now + TimeValue("0:00:10"))

        

    Next

    

Set objIE = Nothing

Set lshTab2 = Nothing



End Sub

Dass sie Public deklariert sind, bedutet NICHT zwingend, dass sie ohne weiteres in der ganzen Datei verfügbar sind, dafür müssten sie auch noch in einem all. Modul stehen.
Ausserdem brauchst du, wenn sie sich nur durch den Blattnamen unterscheiden, keine 4 Makros, ein Makro genügt. Du musst halt den Blattnamen mit angeben:

Public Sub Makro1(sh as string)

Dim objIE As Object

Dim objLinks As Object

Dim objLink As Object

Dim lngCount As Long

Dim lloRow As Long, lshTab2 As Worksheet

Set lshTab2 = Sheets(sh)

    For lloRow = 1 To lshTab2.Cells(lshTab2.Rows.Count, 1).End(xlUp).Row

        Set objIE = CreateObject("InternetExplorer.Application")

        With objIE

            .navigate lshTab2.Range("A" & lloRow).Text

            Do While .busy

                Do While .busy

                    DoEvents

                Loop

            Loop

            .Visible = False

            Set objLinks = .Document.Links

            For Each objLink In objLinks

                lngCount = lngCount + 1

                lshTab2.Cells(lngCount, 2) = objLink.href

                lshTab2.Cells(lngCount, 3) = "'" & objLink.outertext

            Next

            .Quit

        End With

        Application.Wait (Now + TimeValue("0:00:10"))

    Next

Set objIE = Nothing

Set lshTab2 = Nothing

End Sub

Dann kannst du sie so aufrufen:

Call Makro1 ("Tabelle1")

Call Makro1 ("Tabelle2")

Call Makro1 ("Tabelle3")

Call Makro1 ("Tabelle4")

Sub oder Function nicht definiert?

Forumthread: Sub oder Function nicht definiert?

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Sub oder Function nicht definiert?

Forumthread: Sub oder Function nicht definiert?

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread