ich habe mal wieder ein VBA-Problem.
Ich habe eine ziehmlich aufwendige VBA-Programmierung in der unter anderem der Inhalt eines Rechtecks (Zeichnungsobjekt) verarbeitet wird.
Ich verwende diese Funktion weil ich keine Lust habe alte Dokumente komplett zu überarbeiten und damals alle Bezeichnungen der Grafik in Rechtecken gemacht wurden.
60% der Dokumente kann ich damit abfrühstücken aber mein Vorgänger hat interessanter Weise neben Rechtecken auch Textboxen verwendet. Genau darin besteht mein Problem.
Ich muss nun m,ittels If-Satz feststellen ob es sich bei dem angeklickten Zeichnungsobjektes um ein Rechteck oder eine Textbox handelt.
Kann mir bitte jemand bei der Differenzierung auf die Sprünge helfen...
InhaltRechteck = Application.Caller
LaengeInhaltRechteck = Len(InhaltRechteck)
n = Right(InhaltRechteck, LaengeInhaltRechteck - 9)
If (?) 'Wenn angeklicktes Objekt Textfeld
ActiveSheet.Shapes("Text Box " & n).Select
ElseIf (?) 'Wenn angeklicktes Objekt Rechteck
ActiveSheet.Shapes("Rectangle " & n).Select
EndIf
BestNr = Selection.Characters.Text 'Artikelnummer in Variable "BestNr" ablegen
Vielen Dank und Grüße
Flo