29.11.2017, 21:28
29.11.2017, 21:34
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
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
29.11.2017, 21:41
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":
und dann in diesem Code Button "cmdDatenSpeichern":
irgendwie zuviel oder?
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
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
29.11.2017, 21:44
Hallo
dann lass doch den extra Button wech und speicher es nur in
cmdDatenspeichern
MfG Tom
dann lass doch den extra Button wech und speicher es nur in
cmdDatenspeichern
MfG Tom
29.11.2017, 21:44
ich glaub im Code Private Sub cmdDatenSpeichern_Click()
bringt die Zeile Call vor dem With nur eine Leere Datei, sowie unbenannt?
bringt die Zeile Call vor dem With nur eine Leere Datei, sowie unbenannt?
29.11.2017, 21:46
(29.11.2017, 21:44)Crazy Tom schrieb: [ -> ]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
29.11.2017, 21:46
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
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
29.11.2017, 21:52
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
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
29.11.2017, 21:58
Jetzt geht es ...so sieht es besser aus.
Danke
Danke
29.11.2017, 22:04
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 ?