Listbox in Userform Zeilenumbruch?

[Käpt'n Blaubär]

Hallo,

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

na, beleidigen wollte ich niemanden. Aber kein Mensch braucht eine Angel mit Schnellschußeinrichtung.
Außer vielleicht James Bond.

[MdeJong]

Hallo Blaubär,

auch diese Antwort ist zynisch ;)

Gruß

MdeJong

[MdeJong]

Hi Crazy Tom,

danke für dein letzte Hilfe,

ich werde das heute Abend bei selbstgemachter Pizza und nen Bierchen, mir in Ruhe anschauen und so lange deine Vorschläge in meiner Mappe einarbeiten, bis es so läuft wie es soll ;)

Meine Adressverwaltung in dieser Mappe, werde ich rausnehmen und dafür eine eigene Mappe erstellen,  aus all deinen vorgeschlagen Codes von dir aus der Filmmappe, die Adressverwaltung  ähnlich gestalten.


Vielen Dank für deine super Hilfe

Grüße
Michael

[Crazy Tom]

nicht letzte Hilfe sondern letzte Idee

[MdeJong]

Ok.....vielleicht bekomme ich das ja nicht hin mit meiner Adressverwaltung  ;)

Dann hast du auch keine Idee mit meiner neuen Frage hier" Video abspielen in Userform"?

[MdeJong]

   
  Thor (2011).txt (Größe: 372 Bytes / Downloads: 3)
  Filmdatenbank_mit_Multipage.xlsm (Größe: 114,22 KB / Downloads: 1) Hallo Crazy Tom,


also ich habe alles umgesetzt, was du beschrieben hast.
Code eingefügt....Textdateien wie Covername und den Pfad im Code angepasst.

Cover wir in der MultiPage angezeigt...der Text nicht?

Habe die Dateinamen von Cover mehrmals überprüft, doch es wird wie gesagt kein Text angezeigt.


Fehlermeldung nach Klick auf Film Suchen:

Code:

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

  Was habe ich falsch gemacht??
Sorry.
Grüße
MdeJong

[Crazy Tom]

Hallo

sorry aber nu bin ich raus
jede Datei von dir ist anders
ich mag mich nicht jedes mal wieder auf ein neues in deine Datei reindenken

vielleicht mag sich wer anders an deinen Problemen versuchen

MfG Tom

[MdeJong]

Die sieht doch nur optisch anders aus........am Code ändere ich doch nichts?????

[Käpt'n Blaubär]

Hallo,

tja, so verliert eben einer nach dem anderen die Lust, hier zu helfen.

Sagt man, ... ändere das, dann ist man entweder beleidigend oder zynisch, vorzugsweise beides gleichzeitig.
Nun steigt der Nächste aus. Ich bin mal gespannt, ob Dich das nicht doch langsam zum Nachdenken bringt.

[MdeJong]

Ich bin hier zum lernen.....doch erklären ist für manche Lehrer zu schwer.
Ihr geht immer alle davon aus, das man auf Anhieb weiß, was ihr da sagen wollt.

Das ganze ist eine andere Sprache und wer sich damit auskennt und es schon lange macht, für den ist alles Selbstverständlich.