Office: VBA Fehlermeldung (Makro)

Hallo zusammen

Wenn ich einen meiner Makros starte, kommt mir folgende Meldung:



Hat jemand dazu einen Lösungsansatz?

Danke für eure Hilfe

Thomas

 

Hi Thomas,

lagere Teile deiner Prozedur in ein anderes Modul aus.

Bis später,
Karin

 

Hallo Karin

Danke für den Tipp, aber genau das wollte ich eben vermeiden. Ist das (ich verwende Excel 2010) limitiert?

Gruss
Thomas

 

Hi Thomas,

es gibt in allen Excelversionen eine Limitation für die Länge einer Prozedur bzw. die Anzahl an Codezeilen in einem Modul. Ich kann dir allerdings nicht sagen, ob diese in den einzelnen Versionen unterschiedlich ist - spielt letztendlich ja auch keine Rolle, da dir Excel bereits mitgeteilt hat, dass dies bei dir die Grenze erreicht bze. ünberschritten ist. :)

Was spricht eigentlich gegen das Auslagern von Teilen deiner Prozedur?

Bis später,
Karin

 

Hallo Karin
Eigentlich spricht nichts dagegen, wenn diese Datei nur für mich wäre. Aber dieses File wird dann an einige Mitarbeiter versendet, die damit arbeiten sollen, und das sind "echte" Laien (wobei ich mich ja nicht als Experte bezeichnen möchte) und wenn ich denen erkläre, sie müssen mehrere Makros starten........
Aber es wird mir wohl nichts anderes übrig bleiben, vielen Dank für deine Hilfe, das war top !!!!

Gruss
Thomas

 

Hi Thomas,

Auslagern von Teilen einer Prozedur heißt doch nicht, dass man mehrere Makros starten muss - man kann die Untermakros doch aus der Hauptprozedur aufrufen:

Code:

Sub HauptProzedur()
   '....
   UnterMakro1
   '....
   UnterMakro2
End Sub

Sub UnterMakro1()
   MsgBox "Ich bin Makro 1"
End Sub

Sub UnterMakro2()
   MsgBox "Ich bin Makro2"
End Sub

Oder man kann Unterprozeduren auch mit Parameterübergabe aufrufen:

Code:

Sub HauptProzedur()
   Dim strWert1 As String
   Dim bytWert1 As Byte
   Dim strWert2 As String
   Dim bytWert2 As Byte
   strWert1 = "Wertangabe"
   strWert2 = "Ausgabe"
   bytWert1 = 1
   bytWert2 = 2
   '....
   UnterMakro1 strWert1, bytWert1
   '....
   UnterMakro2 strWert2, bytWert2
End Sub

Sub UnterMakro1(strAngabe As String, bytAngabe As Byte)
   MsgBox strAngabe & " " & bytAngabe
End Sub

Sub UnterMakro2(strAusgabe As String, bytAusgabe As Byte)
   MsgBox strAusgabe & " " & bytAusgabe
End Sub

Der Code wird dann so abgearbeitet, dass aus der Hauptprozedur die erste Unterprozedur aufgerufen wird. Nach deren Ausführung kehrt der Code zur Hauptprozedur zurück, führt weiteren Code aus und ruft dann die zweite Unterprozedur auf, um nach deren Abarbeitung wieder zur Hauptprozedur zurückzukehren.

Bis später,
Karin

 

Hallo Karin

Vielen Dank, das wusste ich nicht (wie schon geschrieben, auch ich bin kein Experte). Werde versuchen, das so umzusetzen

Gruss
Thomas