Office: (Office 2010) Echtzeitsuche Combobox, Listbox,evtl. Textbox.. Hilfe

Soll die Listbox noch bestehen oder wegfallen?
Könntest du mir vlt ein konstruktives Beispiel zeigen?
Entweder in meinen Projekt oder eines das du eventuell da hast?
Eine Textbox kann man nicht wie eine MSG-Box einblenden lassen oder?
Das wäre auch ganz cool und würde etwas her machen *Smilie

 

Im Anhang ein Beispiel mit zusätzlichen TextBoxen.

 

Hallo,

hier noch eine Möglichkeit: Liste bestehend aus Textboxen

 

*eek.gif* *eek.gif* *eek.gif* *eek.gif* *eek.gif* *entsetzt *entsetzt *entsetzt *boah *boah *boah *boah *boah *boah *10points *top
Magic xlph, es ist fast perfekt.

Einige offene Fragen:
0 Wie erstellst du die Tabelle in UserForm1, kann das nirgends sehen anhand deines Codes?
Und...
Kann man:

1 die Zellen in Userform1-Tabelle so konstruieren das der gesamte Text eines Textbausteins da angezeigt werden kann?
2 die Textboxen 1-5 Rechts zu einer Großen machen, und wenn man auf eine Zeile der Userform1-tabelle einer beliebigen Spalte klickt (außer Bestellart, Titel, Basis_AEB und Personengruppe), den Text in die große Textbox projizieren, mit der Möglichkeit diesen Text kopieren, aber nicht bearbeiten zu können?
3 folgende Funktion konstruieren ohne ein chaos anzurichten:
wenn in Spalte "Text" nicht: ok, nicht rel.... und leer, in der zeile steht, sondern "ich bin ein besonderer text..." das dann in der gleichen Zeile in Spalte "Textbaustein" der darin enthaltene text ausgeblendet wird und stattdessen "individuell" drin steht?

Puh *Smilie
Aber recht vielen Dank für deine Mühe, ist echt klasse geworden.
*five

 

Das ist nicht machbar. Die Struktur muss beibehalten werden.

Warum willst du eine UF? Mach es doch auf einem Blatt.
Da kannst du dich 'austoben'.

 

Damit meine ich nicht eine neue UserForm erstellen sondern in der bestehenden das so anzupassen wie es in den Fragen weiter oben steht.
Ich weiß nicht was du damit meinst, auf "einem Blatt". Auf ein Tabellenblatt?

 

Code:

Wie stellst du dir das vor?
Es werden jetzt 10 Datensätze angezeigt. Je nach Textinhalt und Spaltenbreite kann jede Zeile verschieden hoch sein. Die Zeilenhöhe
könnte man aus den BlattZeilen auslesen. Dann strecken sich die 10
Datensätze über den Formular-Boden hinaus. Jetzt könnte man noch eine
Max-Höhe deffinieren und nur so viele Zeilen in UF anzeigen wie
solange die Max-Höhe nicht überschritten ist. Dazu müüsten bei jdem Scrollen
oder Filtern die Textboxen neu gezeichnet (erstellt) werden.

Ein anderer Ansatz: In einem Frame alle Zellen durch Textboxen im UF
darstellen, was natürlich die Kapazität der Ressourcen erschöpfen würde
wie auch die Performance. Bei großen Datenmengen -> No Go.


Code:

Und wie soll das funktionieren?
Wenn ich daraus eine große mache, welche Informationen soll sie beinhalten.
Filtern und Sortieren wird dadurch unmöglich.


Code:

Das verstehe ich auch nicht.

Chaos?! Deine Tabelle ist ein Chaos. Bevor ich die UF fülle
wandele ich deine Daten in eine DB-Tabelle um, und lese diese dann ein.
Und jetzt willst du in der UF wieder zurück zum Chaos.

Für Flickteppicharbeiten musst du nach Indien, selbst da wirst du
nicht alles gelöst bekommen, weil technisch nicht möglich.

 

Klick auf einen Datensatz, um den Inhalt des Datensatzes in der großen TextBox komplett darzustellen.
So wie Beverly das in ihrem Beispiel gemacht hat. Doppelclick auf ListBox Datensatz und der Text erscheint in der Textbox.

Du hast das schon echt super gelöst. Hab gedacht das du die Höhe iwo definiert hast, so hatte man da etwas rumprobieren können.
Nun, komplizierter möchte ich das ganze nicht machen.

 

Hallo,

siehe Datei...

 

Der ZoomHeader ist eine super Idee, nur eine kleine Verbesserung, das nur durch einen Mausklick gezoomt wird.
Woow, cool die Funktion mit besonderer Text ist auch drin *Smilie Geile ... *Smilie
Langsam begreife ich es.
Hab aus der, haha cooler Name DB manipulieren, eine "If Not" Funktion gemacht. Da "Besonderer Text" nicht immer gleich ist, aber OK, Nicht Rel... und Nicht Rel, weil... schon.
Code:

Wie verknüpfe ich die miteinander?
Habs mit AND, OR und mit + vbCrLf aber es kommt ein Fehler, Typen sind unverträglich!

 

--------

 

Code:

 

Ist das "vbTextCompare" eine Art Sternchen? Wie z.B. nicht rel*?
So das diese Bedingung immer dann zutrifft wenn die Zeile mit "nicht rel" beginnt?

Kannst du mir noch bitte sagen wo du den Mausklick definiert hast, möchte da einen Doppelklick machen.

 

Hallo,

Code:

Nein, mit "vbTextCompare" wird die Groß-/Kleinschreibung nicht beachtet,
der reine Text wird verglichen.

Instr prüft ob ein Textteil in einem Text enthalten ist und gibt dessen
Anfangsposition zurück. Mit = 1 wird geprüft, ob der Textinhalt am Anfang steht.
Mit > 0 kannst du prüfen ob überhaupt eine Übereinstimmung vorhanden ist.
Bei Nicht-Übereinstimmung wird 0 zurückgegeben.

Für solche Fragen mache dir die VBA-Hilfe zu nutze. Cursor auf Instr und [F1] drücken.

Ich bin den einfacheren Weg gegangen, und prüfe welche Kriterien alle zutreffen - verknüpft mit ODER - und dann soll nix passieren.
Andernfalls wird "BESONDERER TEXT" zugewiesen:

Code:

das könnte man auch so formulieren:

Code:

Ich finde es schwerer verständlich.

Dazu wird folgendes Ereignis genutzt:
Code:

Es liefert mit X und Y die Koordinaten der Maus innerhalb der ListBox.
Daten werden jetzt zwischengespeichert und bei DblClick abgerufen und gesetzt.

 

das könnte man auch so formulieren:
Code:

Ich finde es schwerer verständlich.

Für mich klingt der zweite Befehl etwas plausibler, aber beide machen 100% was sie tun sollen. Ich habe als ich die If Not Anweisung schreiben wollte, nicht einfach gedacht *tongue.gif*

Es liefert mit X und Y die Koordinaten der Maus innerhalb der ListBox. Daten werden jetzt zwischengespeichert und bei DblClick abgerufen und gesetzt.

Ja, das habe ich im Internet auch gefunden aber iwie wollte es bei mir nicht.
Recht vielen Dank.

Bezüglich meiner UserForm2 die als "Programmstarter" dient. Manchmal verschwindet das Teil obwohl das nicht sein darf.
Code:

Zudem soll es nur im Blatt "Kreuztabelle" angezeigt werden aber wenn ich es der Arbeitsmappe sage, passiert nix.
Kann man das im Workbook iwie universell mit einer If-Anweisung regeln?
Zb so?
Code: