Steuerung der Anzeige einer Textbox durch Zeilenauswahl

[atilla]

Hi Uwe,

zieh mal zwei Textboxen in der Tabelle auf. (auf Multiline stellen nicht vergessen)

[atilla]

Hallo zusammen,

Andre hat mich da auf eine Idee gebracht.
Ich nutze zwar eine Userform, aber der Ablauf findet eigentlich in der Tabelle statt.

Die Funktionalität ist die Gleiche, wie bei Andre, nur von der Performance her liege ich vorne.
Der Code ist auch für Anfänger leicht nachvollziehbar.

Ich benötige dafür 7 Hilfsspalten in der Tabelle. Eine könnte ich einsparen, aber bei der Menge an vorhandenen Spalten, wollte ich nicht so knauserig sein.

Die Daten stehen in den Spalten A und B; Spalten C bis I sind Hilfsspalten, wobei die Spalten F bis Formeln enthalten.

So sieht die Tabelle mit den Formeln aus:

tss, tss, tss, hier sollte jetz der Tabellenausschnitt mit den Formeln erscheinen.
Aber irgend etwas klappt beim Einfüge nicht. Es werden zwei kleine Raute ähnliche Zeichen angezeigt.
Dann den Ausschnitt später, oder einer der Admins fügt ihn aus der eingestellten Datei nachtrählich ein.


Edit von "einem der Admins" :

Arbeitsblatt mit dem Namen 'Atilla'
	A	B	C	D	E	F	G	H	I
1	a1	b1				a1		0	2
2	a2	b2				a2		3	2
3	a3	b3				a3		6	2
4	a4	b4				a4		9	2
5	a5	b5	a5			a5	b5	12	2
6	a6	b6	a6	a6				15	0
7	a7	b7				a7		16	2
8	a8	b8	a8	a8				19	0
9	a9	b9				a9		20	2
10	a10	b10				a10		23	3

Zelle	Formel
F1	=WENN(D1="";A1;"")
G1	=WENN(ANZAHL2(C1:D1)=2;"";WENN(C1="";"";B1))
I1	=LÄNGE(A1)-LÄNGE(D1)

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

Zum Testen benötigt man eine Userform mit zwei Textboxen. Bei den Textboxen muss die MultiLine Eigenschaft auf True gesetzt werden.

Für die handwerklich ungeschickten unter euch stelle ich eine Testmappe ein.
auf Tabelle1 ist das Beispiel von Andre und auf Tabelle2 meine Variante. (Tabellen sind nach Andre und mir benannt)


  Text_Texbox_markieren-3.xlsm (Größe: 36,51 KB / Downloads: 3)

[schauan]

Hallo Uwe,

ich habe hier mal die Datei angehängt. Zum Füllen der Textbox1 mal auf ein anderes Blatt und zurück wechseln.
Ich hatte in meinem Beitrag geschrieben, dass der letzte gespeichert Stand eim Öffnen überschrieben wird. Das stimmt nicht ganz - das WorksheetActivate wird erst beim Blattwechsel ausgelöst und nicht schon beim Öffnen. Ist dann also eventuell ein Vorteil gegenüber der Userform-Lösung.

Ich hab die Datei jetzt mal im Anhang.

Hallo Atilla,

welches Tool nimmst Du denn?
Ich bevorzuge das von Gerd. Ich habe den Formelbereich auf die erste Zeile reduziert und es geht, siehe Dein Beitrag.

[atilla]

Hallo Andre,

ich nutze das gleiche Tool.
Ich musste eine Zeile mehr einlesen, weil in Spalte H die Formeln ab Zeile 2 bginnen.


So wie unten zu sehen hatte ich es auch gestern eingelesen. Heute klappt es.

Arbeitsblatt mit dem Namen 'Atilla'
	A	B	C	D	E	F	G	H	I
1	a1	b1				a1		0	2
2	a2	b2				a2		3	2
3	a3	b3				a3		6	2
4	a4	b4				a4		9	2
5	a5	b5				a5		12	2
6	a6	b6				a6		15	2
7	a7	b7				a7		18	2
8	a8	b8				a8		21	2
9	a9	b9				a9		24	2
10	a10	b10	a10			a10	b10	27	3

Zelle	Formel
F1	=WENN(D1="";A1;"")
G1	=WENN(ANZAHL2(C1:D1)=2;"";WENN(C1="";"";B1))
I1	=LÄNGE(A1)-LÄNGE(D1)
F2	=WENN(D2="";A2;"")
G2	=WENN(ANZAHL2(C2:D2)=2;"";WENN(C2="";"";B2))
H2	=I1+H1+1
I2	=LÄNGE(A2)-LÄNGE(D2)

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg