Makros miteinander verbinden

Sub GMTCC() With Range("C4:C" & Cells(Rows.Count, 2).End(xlUp).Row) .Formula = "=IFERROR(IF(ISERROR(VLOOKUP(A4,'[Datei GB.xlsx]171_HP_MS_MS5_D20170731_Shared_'! _ $B$2:$L$15000,2,FALSE)),VLOOKUP(A4,'[Datei GB1.xlsx]171_HP_MS_MS5_D20170731_Shared_'!$B$2:$L$15000,2,FALSE),VLOOKUP(A4,'[Datei GB.xlsx]171_HP_MS_MS5_D20170731_Shared_'!$B$2:$L$15000,2,FALSE)),"""")" .Value = .Value End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub GMTCC() With Range("C4:C" & Cells(Rows.Count, 2).End(xlUp).Row) .Formula = "=IFERROR(IF(ISERROR(VLOOKUP(A4,'[Datei GB.xlsx]171_HP_MS_MS5_D20170731_Shared_'! _ _ $B$2:$L$15000,2,FALSE)),VLOOKUP(A4,'[Datei GB1.xlsx]171_HP_MS_MS5_D20170731_Shared_'!$B$2:$L$ _ 15000,2,FALSE),VLOOKUP(A4,'[Datei GB.xlsx]171_HP_MS_MS5_D20170731_Shared_'!$B$2:$L$15000,2,FALSE)),"""")" .Value = .Value End With Range("C6").Value = "ACHTUNG: Hier steht Text" Range("C12").Value = "Achtung: Hier auch" End Sub

Hallo Dirk
es gibt noch eine zweite öglichkeit wenn du bestehende Makros nicht zusammen schreiben möchtest.
Ein neues Makro für den Button und alle Makros hintereinander starten. Die alten Makros bleiben wie sie sind!
Das geht auch mit einem "NoFlag" für Fehlermeldungen, wenn in einem Programm ein unerwarteter Fehler auftritt und die weiteren Ausführungen zur Sicherheit abgebrochen werden sollen! - Zum Beispiel Fehler beim Drucken o.ae.
Das "NoFlag" muss im Modul mit Public NoFlag as String als Öffentliche Variaqble deklariert sein, und kann aus dem gerade aktiven Makro einen Fehler Text oder -Programm Nachfolger Text- zurückgeben, den man im Programm mit If Then -auswerten- kann. Sei es als :Fehler zum Abbruch, oder das man als "Nachfolger" Text festlegt welches nachfolgende Programm jetzt gestartet werden soll!
Da gibt es viele Möglichkeiten. Ich habe auf die Art schon 10 Makros mit -If Then starte:- ineinander verschachtelt!
mfg Piet


Sub Button_BeiKlick
Call Test1
Call Test2
Call Test3
End Sub
'oder mit "No" Flag = Stopp bei Fehler!!
Sub Button_BeiKlick
NoFlg = Empty    'Fehler Flag löschen!!
Call Test1
İf NoFlg = "No" then Exit Sub
Call Test2
İf NoFlg = "Fehler xy" Then
MsgBox "Fehler xy aufgetreten - Abbruch"
Exit Sub   'Meldung ausgeben und Ende
End If
'Über NoFlag gezieltes Nachfolge Programm starten
İf NoFlag = "Drucken" Then Call Drcuer_aktivieren
End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread