Informationen zum Forum Inventor VBA:
Anzahl aktive Mitglieder: 735
Anzahl Beiträge: 9.230
Anzahl Themen: 1.924

Im Beitrag/Titel Nur im Titel Nur nach Datum sortieren Docs / Anhänge mit Lösung
Suchmaschinenstatistik
Livesuche
Einstellungen
Info

Auch mit chatGPT* können Lösungen aus dem CAD.de-Forum recherchiert werden:

* chatGPT ist eine eingetragene Marke von openAI

Ergebnisse 1 - 2, 2 Gesamtergebnisse mit Suchbegriffen mtexte suchen und ersetzen sec.
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
startrek am 11.07.2005 um 16:52 Uhr (0)
... quick n dirty noch, allerdings je quick desto dirty Code: Sub asdf()   Dim src, a, b, x, y   x = 3: y = blabla   src = Array(1, 2, 3, 1, 2)   a = Filter(src, x): b = Filter(src, x, 0)   If Not CBool(UBound(a)) Then       ReDim Preserve b(LBound(b) To UBound(b) + 1)       b(UBound(b)) = y: src = b   Else: MsgBox matches 1   End If End Sub lg Nancy  [Diese Nachricht wurde von startrek am 11. Jul. 2005 editiert.]
In das Form INVENTOR VBA wechseln
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
startrek am 11.07.2005 um 13:19 Uhr (0)
Hi Cookie, fürchte mit normalen Arrays haste da schlechte Karten, bleibt IMHO nur die Schleife. Prüfen, ob ein Wert überhaupt vorkommt kannst evtl. mit Filter(), also so in etwa: If UBound(Filter(deinArr, deinWert )) = -1 Then MsgBox not exists Ansonsten bleiben Collections oder Dictionary als Alternative;-) Code: Sub test() Dim mydic As New Scripting.Dictionary mydic.Add key1 , one mydic.Add key2 , two mydic.Add key3 , three Debug.Print mydic( key1 ), mydic.Items(2), mydi ...
In das Form INVENTOR VBA wechseln

Anzeige:

Anzeige: (Infos zum Werbeplatz)

Alle Produkt-, Schrift-, Firmennamen und Logos sind Warenzeichen oder eingetr. Warenzeichen der jeweiligen Firmen.
©2026 CAD.de , Lenggries. Tel: ++49 (8042) 973 8208 | Datenschutz