Inhalt von Listbox in Userform ausdrucken

[MdeJong]

seltsam...warum ist das dann bei mir nicht so???

[Crazy Tom]

Hallo

ich kann es nicht nachvollziehen

es geht um den Button: Infos in Datei speichern?
auf der Page2: Neue Adresse eingeben?
es wird unter dem Vornamen & Leerzeichen & Name gespeichert
sind die TextBoxen auch ausgefüllt wenn du auf den Button klickst?

MfG Tom

[MdeJong]

ich hab es jetzt...aber ich glaube, das ich in den ganzen Codes die einmal Zuviel habe?

das ist der Code in Page "Neue Adresse eingeben":

Code:

Private Sub cmdInfoPerson_Click()
 Call WriteFile("D:\AdressBuchDaten\" & txtVorname.Text & " " & txtName.Text & ".txt", txtInfoPerson)
 
  MsgBox "Infos wurden als Textdatei gespeichert"
End Sub

und dann in diesem Code Button "cmdDatenSpeichern":

Code:

Private Sub cmdDatenSpeichern_Click()

'Schließt das Formular und übernimmt die Daten ins Tabellenblatt
Dim intersteleerzeil As Long

Call WriteFile("D:\AdressBuchDaten\" & txtVorname.Text & " " & txtName.Text & ".txt", txtInfoPerson)

With ActiveSheet

intersteleerezeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
 
   .Cells(intersteleerezeile, 1).Value = Me.txtNummer.Value
   .Cells(intersteleerezeile, 2).Value = Me.cboAnrede.Value
   .Cells(intersteleerezeile, 3).Value = Me.txtVorname.Value
   .Cells(intersteleerezeile, 4).Value = Me.txtName.Value
   .Cells(intersteleerezeile, 5).Value = Me.txtStraße.Value
   .Cells(intersteleerezeile, 6).Value = Me.txtHausnummer.Value
   .Cells(intersteleerezeile, 7).Value = Me.txtPostleitzahl.Value
   .Cells(intersteleerezeile, 8).Value = Me.txtWohnort.Value
   .Cells(intersteleerezeile, 9).Value = Me.txtFestnetz.Value
   .Cells(intersteleerezeile, 10).Value = Me.txtFax.Value
   .Cells(intersteleerezeile, 11).Value = Me.txthandy.Value
   .Cells(intersteleerezeile, 12).Value = Me.txtGeburtsdatum.Value
   .Cells(intersteleerezeile, 13).Value = Me.txtMailadress.Value
   .Cells(intersteleerezeile, 14).Value = Me.txtWebsite.Value
         
   For Each objControl In Controls  'leert die Textboxen
       Select Case TypeName(objControl)
           Case "TextBox"
           objControl.Text = ""
           End Select
       Next
   cboAnrede.ListIndex = -1
   txtNummer.Value = .Cells(intersteleerezeile, 1).Value + 1
   End With
    Call WriteFile("D:\AdressBuchDaten\" & txtVorname.Text & " " & _
                              txtName.Text & ".txt", txtInfoPerson)
    'Call WriteFile("D:\AdressBuchDaten\" & txtNummer.Text & ".txt", txtInfoPerson)
   MsgBox "Datensatz wurde erstellt und Textdatei gespeichert"
End Sub

irgendwie zuviel oder?

[Crazy Tom]

Hallo

dann lass doch den extra Button wech und speicher es nur in

cmdDatenspeichern


MfG Tom

[MdeJong]

ich glaub im Code             Private Sub cmdDatenSpeichern_Click()

bringt die Zeile Call vor dem With nur eine Leere Datei, sowie unbenannt?

[MdeJong]

Hallo

dann lass doch den extra Button wech und speicher es nur in

cmdDatenspeichern


MfG Tom

Ich hatte den Button für nachträgliches speichern gedacht, falls der text verändert werden sollte...aber ich mach ihn weg

[Crazy Tom]

klar

du leerst ja vor dem Call alle TextBoxen
das hattest du doch schon vorher rausgefunden
dass die Codezeile da unten nix zu suchen hat
die gehört weiter nach oben in dem Code

MfG Tom

[MdeJong]

ich weiß jetzt auch nicht mehr, wie die dort wieder hinkommt.  :19:

also lösche ich die unten im Code und oben lass ich sie vor dem With

und den 2. Button nehme ich auch wieder raus

[MdeJong]

Jetzt geht es ...so sieht es besser aus.

Danke

[MdeJong]

tja...ich hab nicht bedacht, das wenn ich die texte wie die Namen benenne, ich auch für die Page "Info zur Person" auch Anpassungen machen muss.....wie er die passende Textdatei findet ?