Inhalt von Listbox in Userform ausdrucken

[MdeJong]

OK.....Bilder hab ich hinbekommen...nur Text nicht.


ich mach auch jetzt schluss

[MdeJong]

Hier der letzte Stand der Mappe, in der ich nur die Bilder eingefügt...hier geht es nur, wenn Ich textbox2 und textbox14 angebe........ 
Text in Listbox3 geht noch nicht.


  TestMappe_Neu.xlsm (Größe: 62,47 KB / Downloads: 10)

so sieht der komplette Code aus:

Code:

Private Sub Foto_einfuegen()
  Dim xFn As Long
  Dim strDatei As String
  Dim xText As String
  Dim strPath As String
  strPath = "D:\AdressBuchDaten\" 'Pfad anpassen <-- auf schreibweise und Backslash achten
  ListBox3.Clear
  xFn = FreeFile
  strDatei = txtVorname.Text & " " & txtName.Text
  With AdressBook
      .Image1.Picture = Nothing
      On Error Resume Next
     
         .Image1.Picture = LoadPicture(strPath & TextBox2.Text & " " & TextBox14.Text & ".jpg")
      If Dir(strPath & strDatei & ".txt") <> "" Then
          Open strPath & strDatei & ".txt" For Input As xFn
          Do While Not EOF(1)
              Line Input #xFn, xText
              ListBox3.AddItem xText
          Loop
          Close xFn
      End If
     
      On Error GoTo 0
  End With
End Sub

Da bin ich wieder überfragt...woran es liegt ? :(

[Steffl]

Hallo Michael,

setze dir einen Haltepunkt bei Line Input und schaue was xText enthält.

[Crazy Tom]

moin

ich würde jetzt eher mal darauf tippen,
da sich die TextBoxen auf unterschiedlichen Multipages befinden,
dass die TextBoxen txtVorname und txtName leer sind

MfG Tom

[MdeJong]

Guten Morgen Crazy Tom und Steffl,

Also es gibt ja in meiner Mappe einmal die Page0 "Hauptmenü" in der ich die Daten per Spinbutton hin und her anzeigen lassen kann.

Dort steht die TextBox2 für "Vorname" und die Textbox14 für "Name"

In der Page1 will ich ja neue Kontakte eingeben können.

dort  ist die TextBox mit "txtVorname" und TextBox mit "txtName" bezeichnet.

In der Page 0 wird im Moment zu dem Namen nur die Bilder angezeigt, wenn ich im Code für die Page die TextBox2 und Textbox14 dort angebe.
In der Page müsste auch der passende Text unter Info Page geladen , das bleibt leer.


Ich finde selber jetzt nicht den Fehler?

Müsste ich jetzt die beiden Pages, die jeweiligen TextBoxen gleich benennen?
Also auf beiden Pages "txtVorname" und "txtName", oder würde es da Konflikte geben?

Gruß

MdeJong

[Crazy Tom]

nein Steuerelemente dürfen nicht gleich benamt werden
funktioniert es denn einzeln?
auf der einen Page das Bild?
und auf der anderen Page der Text wenn du dort die TextBoxen separat ausfüllst?
darum meine Frage ob die TextBoxen für den Text leer sind wenn du das Bild lädst

[MdeJong]

Ok....dann weiß ich ja für später, das alle TextBoxen einen eigenen Namen bekommen...für mich besser zur Übersicht-

Also wenn ich auf der Page bin, wo das Bild angezeigt wird.....das ist ja das mit dem SpinButton....durch den Spin fülle ich ja auch alle TextBoxen und
dazu kommt das passende Bild.

Ich kann jetzt hier selber auf der Arbeit die Datei auch nicht ausprobieren.

[Crazy Tom]

und da ist eben jetzt die Frage ob die txtVorname und txtName auch mit dem Spin befüllt werden
wenn nicht dann sind die TextBoxen leer und dann bekommste keinen Text angezeigt

[MdeJong]

Hallo Tom,

ich glaub, das habe ich beantwortet?

Die TextBoxen wen bei Benutzung der Spinbutton gefüllt.

[MdeJong]

Ich Kann die Datei hier auf der Arbeit nicht ausprobieren...sobald ich auf dem Spin klicke, stürzt Excel ab