Problem Makro/VBA mit Schleife (DS SolidWorks/SolidWorks) - Lösung vorhanden!


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS

	SOLIDWORKS Plastics Standard - Online-Live, ein Seminar am 18.02.2026 Events abonnieren
Autor	Thema: Problem Makro/VBA mit Schleife (1026 / mal gelesen)
TMS-TB Mitglied Konstrukteur Beiträge: 36 Registriert: 30.07.2012 Intel I7-14700 Asus Pro B760M-C SSD Samsung 980 (1TB) 32GB DDR5, 4800MHz NVIDIA RTX A2000 Solidworks 64Bit 2025 SP2.0 Win 11 64Bit	erstellt am: 11. Apr. 2019 10:26 <-- editieren / zitieren --> Unities abgeben: Programmiere gerade mein erste Solidworksmakro. Soll Änderungsindex eintragen. Da ich bis zu 8 Stk eintragen/auslesen will, wollte ich das mit einer Schleife regeln, aber das Beispiel funktioniert so nicht. Wie könnte es funktionieren? Dim i As Integer i = 1 Do If swCustomProbertyManager.Get("IndexNummer + cstr(i)") <> "" Then TextBox_b1.Enabled = False TextBox_b1.Text = swCustomProbertyManager.Get("IndexBeschreibung +cstr(i)") TextBox_b1.Enabled = False TextBox_c1.Text = swCustomProbertyManager.Get("IndexName1") TextBox_c1.Enabled = False TextBox_d1.Text = swCustomProbertyManager.Get("IndexDatum1") TextBox_d1.Enabled = False End If i = i + 1 Loop While i <= 8 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
nahe Ehrenmitglied Beiträge: 1796 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac	erstellt am: 11. Apr. 2019 10:56 <-- editieren / zitieren --> Unities abgeben: Nur für TMS-TB Hallo, ich denke der Fehler liegt in ("IndexNummer + cstr(i)") das müsste wahrscheinlich ("IndexNummer" + cstr(i)) sein ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
TMS-TB Mitglied Konstrukteur Beiträge: 36 Registriert: 30.07.2012 Intel I7-14700 Asus Pro B760M-C SSD Samsung 980 (1TB) 32GB DDR5, 4800MHz NVIDIA RTX A2000 Solidworks 64Bit 2025 SP2.0 Win 11 64Bit	erstellt am: 11. Apr. 2019 11:13 <-- editieren / zitieren --> Unities abgeben: @nahe: Danke da war schon der Fehler. Edit: Hier noch der korrigierte Programmtext, als Info Dim i As Integer i = 1 Do If swCustomProbertyManager.Get("IndexNummer" + CStr(i)) <> "" Then Controls("TextBox_a" + CStr(i)).Enabled = False Controls("TextBox_b" + CStr(i)).Text = swCustomProbertyManager.Get("IndexBeschreibung" + CStr(i)) Controls("TextBox_b" + CStr(i)).Enabled = False Controls("TextBox_c" + CStr(i)).Text = swCustomProbertyManager.Get("IndexName" + CStr(i)) Controls("TextBox_c" + CStr(i)).Enabled = False Controls("TextBox_d" + CStr(i)).Text = swCustomProbertyManager.Get("IndexDatum" + CStr(i)) Controls("TextBox_d" + CStr(i)).Enabled = False End If i = i + 1 Loop While i <= 8 [Diese Nachricht wurde von TMS-TB am 11. Apr. 2019 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)