Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

VBA Makro startet Makro





Frage

VBA Makro startet Makro

Antwort 1 von Hajo_Zi

Hallo,

das ist nichts neues und auch keine Frage.

Gruß Hajo

Antwort 2 von 1+++++

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+++++

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

Antwort 4 von Hajo_Zi

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+++++

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

Hallo Lu,

warum?

Gruß Hajo

Antwort 7 von 1+++++

Hallo Hajo,

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

Gruss Lu

Antwort 8 von Hajo_Zi

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: