Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

von modul private sub() aufrufen

von modul private sub() aufrufen
04.02.2003 01:57:05
mehmet
hallo forum,
2 kurze fragen;
ich habe viele makros.

1. wenn ich den "makro run" button drücke, kommen sehr viele makros zu auswahl (button Menuleiste "makro ausführen").
um überblick zu verschaffen, würde ich gern alle makros
als "private sub()" benennen.

2. wenn jetzt makro1 läuft, soll nach beendigung gefragt werden,
ob makro2 laufen soll mit ja/nein,
wenn ja, dann lauf makro2,
wenn nein, dann abbruch,
nach ablauf makro2 wieder frage ob makro3 laufen soll,
sonst abbruch usw.

1.frage: wie rufe ich ein private sub() auf, wo der makro in tabblatt. von modul aus
2.frage: soll makro 1 laufen ja/nein -> soll makro2 laufen...

dank im voraus
gruss




5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: von modul private sub() aufrufen
04.02.2003 02:30:17
Nepumuk

Hallo Mehmet,
1. wenn du ein Makro als Private deklarierst, dann kann es nur noch von einem anderen Makro aufgerufen werden. Also brauchst du wenigstens eines das als Public deklariert ist.
2. vor dem End Sub eine MsgBox. So z.B.

If MsgBox("Soll jetzt Makro 2 laufen.", 36, "Abfrage") = 6 Then Call Makro2

Gruß
Nepumuk

Re: von modul private sub() aufrufen
04.02.2003 02:37:15
mehmet

dank dir für deine prompte antwort

zu pkt 1:
muss ich dann dem makro1 sagen
...
call tabname.publicmakroname
...
so gehts leider nicht, hatte es bereits probiert

zu pkt 2:
gibt es hier eine else anweisung, was ganz zum schluss kommt,
oder kann ich den else einfach weglassen.

dank dir
gruss

Anzeige
Re: von modul private sub() aufrufen
04.02.2003 02:51:44
Nepumuk

Hallo Mehmet,

Beispiel:

Public Makro1()
.
.
If MsgBox("Soll jetzt Makro 2 laufen.", 36, "Abfrage") = 6 Then Call Makro2
End Sub

Private Makro2()
.
.
If MsgBox("Soll jetzt Makro 3 laufen.", 36, "Abfrage") = 6 Then Call Makro3
End sub

Private Makro3()
.
.
End sub

Du könntest natürlich ein Else reinsetzen wenn du noch eine andere Abfrage einbaust. Aber so wie es jetzt ist, wird beim klick auf Ja das nächste Makro ausgeführt und bei Nein ist Ende.
Gruß
Nepumuk


Re: von modul private sub() aufrufen
04.02.2003 02:59:31
Nepumuk

Hallo Mehmet,
du kanns die Abfrage aber natürlich auch weglassen wenn es automatisch gehen soll. Dann schreibs du einfach:

Public Makro1()
.
.
Call Makro2
End Sub

Private Makro2()
.
.
Call Makro3
End Sub

Private Makro3()
.
.
End Sub

Gruß
Nepumuk

Anzeige
dank dir
04.02.2003 03:00:55
mehmet

gruss

14 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige