Listbox in Userform Zeilenumbruch?

[Käpt'n Blaubär]

Hallo Michael,

So ein kurzer Inhalt vom Film, kann schon mal lange werden.

dann würde ich mal überlegen, ob Dein "kurzer Inhalt" vielleicht besser in einem
Kommentar oder einer anderen Spielerei, die bei Bedarf ein- und ausgeblendet
werden kann, untergebracht werden kann.
Kein Mensch will doch ständig, wenn er nach einem Film sucht, diesen "kurzen
Inhalt" für jeden einzelnen Film in der Liste sehen oder lesen wollen.
Also, mich jedenfalls würde das höllisch nerven.

[MdeJong]

  Kopie von MichasFilme_Neu2.xlsm (Größe: 114,93 KB / Downloads: 1) Hallo Käpt`n Blaubär,

das wäre ne gute Idee...aber wie soll ich das machen?

Ich hab es jetzt mit einer TextBox gemacht.
kannst ja mal schauen, wie das aussieht und vielleicht hast du auch Vorschläge.

ich bin wirklich ganz frischer Anfänger in VBA...schnalle das nicht immer sofort.

Gruß
Michael

[Käpt'n Blaubär]

Hallo Michael,

Deine Datei kann ich derzeit nicht lesen. Ich kann nur bis Excel 2003, also Dateiformat *.xls
mithalten. Ich habe es noch nicht geschafft, auf diesem Rechner ein neueres Excel zu installieren.
Das ist eben mein Krankenhausrechner.  :19:

Aber ein paar Gedanken kann ich ja zunächst trotzdem mal loswerden.

Beispielsweise könnte man eine schmale Spalte in die Liste einfügen. Da könnte man mit einem
"X" oder einem Haken, oder oder einen Icon ... was auch immer ... ein paar Zeilen, meinetwegen
auch über den gesamten Bildschirm, ein- oder ausblenden, die Deinen "kurzen Inhalt" sichtbar
machen,

Den Zellkommentar hatte ich ja schon angesprochen. Das ist ein farbig hinterlegtes Ballonfeld,
in dem Texte hinterlegt und angezeigt werden können.

Man könnte auch eine ganze Textseite nehmen. Aus- und einblenden ... ist ja klar.
Da kannst Du dann ganze Romane als "Kurzinhalt" hinterlegen.

Das soll es jetzt erst mal sein. Wie Du siehst, der Phantasie sind eigentlich keine Grenzen gesetzt.
Und es gibt nicht sehr viel, was man mit VBA nicht machen kann.

Wie groß ist denn Dein Textfeld eigentlich, wenn es für kurze Inhaltsangaben nicht so wirklich
geeignet zu sein scheint?

Also, wenn Du mir Deine Datei im *.xls-Format zur Verfügung stellen magst, wäre ich auch ein
Stück schlauer  :05:

[MdeJong]

  Kopie von MichasFilme_Neu3.xls (Größe: 195,5 KB / Downloads: 5) Hallo [b]Käpt'n Blaubär[/b] [url=http://www.clever-excel-forum.de/online.php][/url]

hier die Datei in deinem Format.

Das mit dem Textvorschlag klingt nicht schlecht....das muss ich erst mal lernen und üben, wie man so etwas anlegt.


Gruß
Michael

[Käpt'n Blaubär]

Hallo Michael,

zunächst mal danke ich Dir für die Datei.

Dann eine Frage dazu:

Das mit dem Textvorschlag klingt nicht schlecht....das muss ich erst mal lernen und üben, wie man so etwas anlegt.

Da kann ich mir überhaupt nichts drunter vorstellen. Mit Texten hatten schließlich alle meine Vorschläge zu tun.
Was also meinst Du da speziell?

Und als Fragen zu Deiner Datei: 
a) hast Du da versucht, zwei unterschiedliche Dinge zu verwuseln?
Kontakte und solche Sachen haben für mich nicht unbedingt etwas mit Filmen zu tun.
Es sei denn, Du kennst die Schauspieler alle, solche Leute soll es ja geben.

b) Müssen die Userforms so übermächtig sein? Ich hatte den Eindruck, die würden mich
auf der Stelle erschlagen wollen.

[MdeJong]

Hallo,

ich bin Brillenträger und ich habs gern größer auf dem Schirm  :)

Was meinst du mit verwuseln?

Ich hatte erst vor mir nur eine Datenbank zu erstellen, in der Ich Belege speichere.
dann hatte ich noch die Idee, meine ganzen Filme zu verwalten und dann kam eine Kontaktdatenbank im Sinn. :)

ich will soetwas immer in einem haben, anstatt mehrere Dateien extra aufzurufen

[MdeJong]

deine Vorschläge mit texten wollte ich ja lernen ....wenn du mir erklärst wie

[Käpt'n Blaubär]

Hallo Michael,

Brillenträger bin ich auch, aber Deine übermächtigen Userforms haben mir die Gläser zerdeppert.
Die Rechnung für die Reparatur bekommst Du von meinem Anwalt, daß das klar ist.  :05:

Also, wenn Du die Schließkreuze der Forms verstecken wolltest, ... die versteckt man nicht,
die schaltet man mit VBA ab. Das Gleiche gilt für das Nichtverschiebenkönnen der Forms.
Aber man muß dem armen Menschen dann auch die Möglichkeit geben, aus der Sache
rauszukommen, ohne daß er den Rechner abwürgen muß.

Mit Verwuseln meinte ich, nicht zusammengehörende Dinge unbedingt zusammenbringen
zu wollen. Hmmmm, mal sehen ob ich da ein Beispiel gebacken kriege:
Wenn ich die Telefonnummer von Fritzchen Großkopf suche, warum sollte ich dann gleichzeitig
eine ellenlange Filmbibliothek mitladen müssen. Tut mir leid, aber dafür habe ich so überhaupt
kein Verständnis.

So, und nun noch zu meinen Textvorschlägen. Bist Du eigentlich unfähig, Dich zwischen drei
Angeboten für exakt eines entscheiden zu können? Warum sollen jetzt "zusammengewuselt"
drei oder mehr Lösungen gleichzeitig abgearbeitet werden, wenn Du nur eine überhaupt brauchst
um Dein Ziel zu erreichen?
Wenn das mein Projekt wäre, dann wäre ich eigennützigerweise der Meinung, es möglichst
schnell und effizient zum Laufen zu kriegen. Was Dich angeht, läßt mich eher den Kopf schütteln.
Das ist mir in fast 20 Jahren Forenerfahrung so noch nicht untergekommen.

Daß ich jetzt hier so exessiv mit Dir schreibe, das ist auch nur der Tatsache geschuldet, daß in
ein paar Stunden wieder jede Menge Weißkittel um mich rumtanzen werden. Wäre das nicht so,
dann hätte ich gar nicht die Zeit dafür.

Also, mein wirklich gut gemeinter Rat, trenne Deine Adressverwaltung von Deiner Filmbibiothek.
Die wird ja irgendwann auch mal mehr als nur diese fünf jetzt im Angebot befindlichen Titel haben.
Entscheide Dich für irgendeine Form der Darstellung für Deine Textgeschichte (siehe das Ursprungsthema).

Danach bin ich ja auch nicht weg und werde Dir gerne auch noch die anderen Möglichkeiten
nahebringen. Außerdem, dies ist ein Forum, und das bedeutet, daß es ganz viele Helfer gibt, die
Dir helfen wollen und können. Du bist also nicht wirklich auf mich allein angewiesen  :19:

So, und nun nehme ich meinen Horchposten am Kopfkissen ein.

[MdeJong]

Hallo Blaubär,

also das klang schon ein wenig beleidigend  gegen mich, dein letzter Kommentar.

Du sagst, du bist  20 Jahre hier im Thema.....ich sage ständig hier, das ich erst seit meinen versuchen hier (vielleicht 2 Wochen) an einer Filmdatenbank tüftle und vorher null plan von Vba habe und dann jetzt das.

Du und andere, die hier schon lange sind, kennen sich 1000mal besser aus mit Vba als ich.
Wenn ich als Schüler fragen stelle, kommen vom Lehrer hier Begriffe usw., die ich als Schüler nicht als angeborenes Wissen mitbringe.

Da fällt einem die Entscheidung schwer, weil man versucht, das was man von euch vorgeschlagen bekommt, irgendwie zu verstehen???

Manchmal braucht ein Schüler auch mal visuelle Beispiele, keine Fachbegriffe oder ähnliches.


Was ich bisher mit meiner Mappe geschafft habe und das mit netter Hilfe von Crazy Tom, bin ich schon sehr stolz drauf und die Texte lasse ich jetzt so, wie ich sie eingestellt habe.

Ich werde wenn alles fertig ist, Filmdatenbank, am Ende natürlich trennen....das hatte ich mir schon überlegt.

Danke für deine Mühe.

Grüße

MdeJong

[Crazy Tom]

Moinmoin

als letzte Idee die ich nun dazu beisteuern werde ist folgendes

schreibe deine Filmbeschreibung in eine Textdatei
und speichere sie unter dem gleichen Namen wie die Cover im selben Ordner
platziere auf der Userform eine Multipage
auf Page1 der Multi setzt du dein Image für das Cover, benennst die Seite z.B. auch Cover
auf der zweiten Seite (Page2) baust du eine Listbox und nennst die Seite dann von mir aus Beschreibung
in den Suchbutton wo auch das Cover geladen wird ergänzt du dann sinngemäß den Code
um diese Zeilen, hab jetzt den andern Code nicht im Kopf

Code:

Private Sub CommandButton1_Click()
   Dim xFn As Long
   Dim strDatei As String
   Dim xText As String
   Dim strPath As String
   ListBox1.Clear
   xFn = FreeFile
   strDatei = TextBox20.Text
   strPath = "D:\Filmcover\" 'Pfad anpassen
   Open strPath & strDatei & ".txt" For Input As xFn
   Do While Not EOF(1)
       Line Input #xFn, xText
       ListBox1.AddItem xText
   Loop
   Close xFn
End Sub

damit wird der Text aus der Textdatei in der Listbox angezeigt
beim Start der Userform wird immer die Multiseite angezeigt die im Editor sichtbar ist
wenn du also beim Start immer das Cover sehen willst sollte Seite1 auch im Editor angewählt sein
so sparst du dir die Zeilenumbrüche in der Tabelle und die Beschreibung siehst du nur wenn notwendig

MfG Tom