Freies Textfeld in Formel einbeziehen

Schön guten Tag,
dies ist meiner erster eigener Post in diesem Forum, ich habe schon vieles nur durch das durchstöbern des Forums bezüglich Formeln und VBA in Excel gelernt, nun stehe ich vor einer Herausforderung, bei der ich nicht weiß ob diese überhaupt zu meistern und ob mein Vorhaben überhaupt umsetzbar ist. Leider habe ich in diesem Forum auch nichts weiter dazu gefunden.
Ich hoffe ihr könnt mir bei diesem Problem helfen oder mich zumindest dies bezüglich aufklären!:)
Vorab die Frage: Ist es möglich in eine Zelle eine Formel zu schreiben, welche sich auf ein freies eingefügtes Textfeld (nicht Text in einer Zelle) bezieht?
Wenn ja -> Kann man die Formel so gestalten:
Die Formel steht in Zelle B13 im ersten Tabellenblatt und soll die Anzahl mehrerer bestimmter Textfelder anzeigen. (Der Grund für bestimmte Textfelder: Nur die Anzahl der Textfelder anzeigen, die als Inhalt/Text im Textfeld am Ende nach einem Kennzeichen ein bestimmtes Wort enthalten)
Beispiel:
In Tabelle 1: Zelle B13 = "erfragte Formel" (zeigt eine Zahl, bsplw. 2)
In Tabelle 2: Textfeld 1 = KI-JM 24415 Caddy, Textfeld 2 = KI-JM 55415 Caddy (Die Textfelder befinden sich immer im Bereich A1:Q51, sollen anhand des Wortes "Caddy" gezählt werden und müssen bewegbar bleiben, da jederzeit die Möglichkeit bestehen soll sie verschieben zu können)
Wenn nein -> gibt es evlt. eine Möglichkeit dies in VBA zu verwirklichen?
Ziel soll es sein in Tabelle 1 eine Auflistung zu haben, die die Anzahl verschiedener Kfz. aufzeigt.
Klar könnte man die Kfz mit Kennzeichen in Tabelle 2 in die jeweiligen Zellen schreiben und in Tabelle 1 einfach "ZählenWenn" verwenden, jedoch muss es durch die Textfelder wie schon gesagt möglich sein die Autos zu verschieben ohne copy und paste nutzen zu müssen.
Ich hoffe sehr, dass ihr mir helfen könnt und ich mein Anliegen verständlich geäußert habe. ich bin ein wenig am verzweifeln...
Vielen Dank und einen schönen Tag noch! :)
Gruß
Jan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Versuch() Dim Sh As Shape, i As Long, j As Long, strDummy As String Dim wsProtokoll As Worksheet, Ws As Worksheet Const PROTOKOLLBLATT As String = "Protokoll" On Error Resume Next strDummy = Worksheets(PROTOKOLLBLATT).Name If Err Then Set wsProtokoll = Worksheets.Add(after:=Sheets(Sheets.Count)) wsProtokoll.Name = PROTOKOLLBLATT Err.Clear Else Set wsProtokoll = Worksheets(PROTOKOLLBLATT) End If On Error GoTo 0 i = 1 For Each Ws In ThisWorkbook.Worksheets j = j + 1 wsProtokoll.Cells(i, j) = Ws.Name For Each Sh In Ws.Shapes If Sh.Type = msoTextBox Then i = i + 1 wsProtokoll.Cells(i, j) = Sh.TextFrame.Characters.Text End If Next Sh i = 1 Next Ws End Sub

Man kann die Textfelder auch direkt ansprechen, Jan,
und ihren Inhalt anzeigen bzw durchsuchen. Das ist aber so nur per VBA, ggf einer sog UDFkt in einer ZellFml, möglich. Eine derartige UDF ist im HerberArchiv vorhanden, nur kann sie sich nur auf Objekte (hier: Textfelder) des gleichen Blattes beziehen. Es gäbe bei ihrer Anwendung 2 Möglichkeiten:
1. Wie bei verlinkten Zellen mit einer Fml pro Textfeld dessen Inhalt in eine Zelle zu übernehmen, worauf dann ZÄHLENWENN angewendet wdn kann;
2. In einer einzigen ZellFml alle TextfeldInhalte miteinander zu verbinden (falls es nicht zuviele sind) und in diesem Text dann das Auftreten des SuchBegriffs (SB) mit einer anderen UDF (CountOn) zu zählen oder dafür einen TextlängenVgl zu nutzen: (TextLänge mit SB minus TextLänge ohne SB)/SB-Länge
Auch hierbei muss die Ansprache der Textfelder auf demselben Blatt erfolgen, sonst wäre ggf alles auf dem Ergebnisblatt mit nur einer Fml pro SB zu erledigen gewesen (B12 enthält SB):
=CountOn(TextOf("Textfeld 1"; 1)&TextOf("Textfeld 2";1)&TextOf("Textfeld 3";1);B12)
So kann aber nur der CountOn-Teil in B13 des Ergebnisblattes stehen: =CountOn(Tabelle2!H6;B12)
Dann könnte natürlich auch auf alle Zellen, auf die die Texte übertragen wurden, ZÄHLENWENN angewendet wdn.
Gruß, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit

Beliebteste Forumthreads (12 Monate)

Freies Textfeld in Formel einbeziehen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Freies Textfeld in Formel einbeziehen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread