Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon 1+++++ vom 24.02.2019, 19:21 Options

VBA Makro startet Makro

Antwort schreiben

Antwort 1 von Hajo_Zi vom 24.02.2019, 19:27 Options

Hallo,

das ist nichts neues und auch keine Frage.

Gruß Hajo

Antwort 2 von 1+++++ vom 24.02.2019, 23:46 Options

Sorry,
meine erste Fragestellung war wohl etwas sehr oberflächlich.
Ich habe über ein Makro in einem Modul mit mehreren Abfragen, das 1 von 3 Makros starten soll. Die Makros greifen auf 4 Tabellen zu und laufen soweit (aber nur manuell). Bei dem Start über das Makro wird nur das erste Makro angesteuert und greift auch nur auf eine Tabelle zu.

Wäre supper wenn jemand eine Idee dazu hätte.
Besten Dank im Vorraus.

Sub Test_1Makro()

Sheets("Tabelle1").Select
If Range("C6").Value = "" Then Exit Sub
If Range("A2") <> 1 Then

ElseIf Range("Y6").Value = "zB1" And
Range("AP6").Value = "zB2" Then
Application.Run _
"Makro1()"

ElseIf Range("Y6").Value = "zB1" And
Range("AP6").Value = "zB3" Then
Application.Run _
"Makro2()"

ElseIf Range("Y6").Value = "zB2" And
Range("AP6").Value = "zB4" Then
Application.Run _
"Makro3()"
End If
End Sub

Antwort 3 von 1+++++ vom 25.02.2019, 00:23 Options

ich habe schon ausprobiert, alle Makros in die Tabelle einzufügen. Das Ergebnis war gleich.

Antwort 4 von Hajo_Zi vom 25.02.2019, 08:51 Options

Hallo Namemsloser,

Option Explicit

Sub Test_1Makro()
With Sheets("Tabelle1")
If .Range("C6").Value <> "" And .Range("A2") = 1 Then
If .Range("Y6").Value = "zB1" And .Range("AP6").Value = "zB2" Then
Makro1
ElseIf .Range("Y6").Value = "zB1" And .Range("AP6").Value = "zB3" Then
Makro2
ElseIf .Range("Y6").Value = "zB2" And .Range("AP6").Value = "zB4" Then
Makro3
End If
End If
End With
End Sub

Gruß Hajo

Antwort 5 von 1+++++ vom 26.02.2019, 17:06 Options

Antwort vom Namenslosen !!! :-)

Hallo Hajo,

ich finde es bewundernswert das Du Dir die Mühe macht und mir überhaupt antwortest. Dafür erst mal ein DANKE.
Ich habe Deinem Makro den "Application.Run _ " zufügen müssen, aber das Ergebnis war gleich. Aus der Tabelle, wie auch aus dem Modul waren keine Änderungen.
Ich arbeite mit der Office2000 zur Info.

Gruss Lu

Antwort 6 von Hajo_Zi vom 26.02.2019, 17:26 Options

Hallo Lu,

warum?

Gruß Hajo

Antwort 7 von 1+++++ vom 26.02.2019, 18:02 Options

Hallo Hajo,

ohne "Application.Run _" wird der Makroname rot hinterlegt.

Gruss Lu

Antwort 8 von Hajo_Zi vom 26.02.2019, 18:25 Options

Hallo Lu,

dann hast Dein Problem nicht genau genug beschrieben. Ich hatte den Code getestet.

Da ich es ablehne über das Internet auf fremde Rechner zu schauen, kann ich Dir auch nicht schreiben wo bei Dir das Problem ist.

Gruß Hajo

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..