AW: Suchtext durch dritten Teil des Pfades ersetzen?
19.01.2020 15:59:26
Piet
Hallo Sergej
probier es bitte mal so aus. Das 1. Makro zeigt dir wie du die Variable "gPfad" zusammensetzen kannst.
Das 2. Makro ist ein GoSub Programm, wo du zuerst die gPfad Variable setzt, und dann deinen Code in einem Makro mehrfach abarbeiten kannst. Der Gosub Befehl kehrt mit Return wirder ins Hauptprogramm zurück. Er kann beliebig oft aufgerufen werden. Viele Kollegen meiden diesen Befehl, ich liebe ihn, weil er bei mehrfach Makro Ausführungen sehr effektiv ist! Man muss ihn aber kennen!
mfg Piet
'F:\Daten-Technik\ST-BUS16\Produktion\projects\123456789_UCI_Standard.template
Sub Test()
'gPfad = gesamt Pfad, zusammen gesetzt!
Dim gPfad As String, SuchTxt As String
SuchTxt = "ST-BUS16"
gPfad = "F:\Daten-Technik\" & SuTxt & "\Produktion\projects\123456789_UCI_Standard.template"
MsgBox gPfad
End Sub
Sub Gosub_Programm()
'gPfad = gesamt Pfad, zusammen gesetzt!
Dim gPfad As String, SuchTxt As String
'Beispiel für ein Gosub Programm (Unterprogramm Aufruf innerhalb des Makors!)
SuchTxt = "ST-BUS16"
gPfad = "F:\Daten-Technik\" & SuTxt & "\Produktion\projects\123456789_UCI_Standard.template"
GoSub Programm 'hier startet dein Programm und kehrt mit Return zurück!
SuchTxt = "BI-WUP05"
gPfad = "F:\Daten-Technik\" & SuTxt & "\Produktion\projects\123456789_UCI_Standard.template"
GoSub Programm 'hier startet dein Programm und kehrt mit Return zurück!
SuchTxt = "BI-BOS11"
gPfad = "F:\Daten-Technik\" & SuTxt & "\Produktion\projects\123456789_UCI_Standard.template"
GoSub Programm 'hier startet dein Programm und kehrt mit Return zurück!
SuchTxt = "BI-KAM08"
gPfad = "F:\Daten-Technik\" & SuTxt & "\Produktion\projects\123456789_UCI_Standard.template"
GoSub Programm 'hier startet dein Programm und kehrt mit Return zurück!
Exit Sub 'hier Ende des Hauptprogramms!!
Programm: 'Hier startet dein Suchpragramm mit der Variabel gPfad
'...... dein Code, beliebig lang ....
Return 'kehrt zum Hauprğrpogramm zurück!!
End Sub