Hallo zusammen,
ich hoffe ihr könnt mir bei meinem Problem weiterhelfen.
Ich versuche per VBA ein Tabellenblatt auf Textboxen zu überprüfen. Wenn also eine Textbox enthalten ist, dann soll mir in einer Zelle in einem anderen Tabellenblatt die Antwort Ja zurückgegeben werden. Wenn keine Textbox enthalten ist, soll in der Zelle die Antwort Nein ausgegeben werden.
Hättet ihr eine Idee wie ich das umsetzen kann?
Vielen Dank schonmal.
Grüße,
Max
Darauf weiß ich leider keine Antwort
Hallo,
ohne das groß ausprobiert zu haben, probier mal was in der Richtung
sub boxfinder()
dim grafikding as shape
dim gefunden as string
gefunden=„Nein“
for each grafikding in worksheets(„Blatt mit Box“).shapes
if grafikding.textframe.characters.text"" then gefunden=„Ja“:exit for
next
worksheets(„Blatt für Antwort“).cells(zeile, spalte).value=gefunden
end sub
Anstelle von „Blatt mit Box“ und „Blatt für Antwort“ müssen natürlich die Namen Deiner Registerblätter dort stehen.
„zeile“ und „spalte“ stehen für die Zelle im Blatt für die Antwort, wo die Antwort reingeschrieben werden soll.
A1 hat Zeile=1, Spalte=1
B5 hat Zeile=5, Spalte=2
Es hat den Anschein, als brächte jede Autoform (Kreis, Rechteck,…) in Excel ihre Textbox automatisch mit, nur dass dort ggf. nichts drinne steht. Deswegen wird auf den Textinhalt geprüft.
Das Makro geht davon aus, dass das grade aktive Exceldokument dasjenige mit den Textboxen ist.