Userform zurück
28.03.2016 21:00:14
Thomas
ich bin gerade dabei eine Kundendatei mittels Excel auf zu bauen.
Hierzu habe ich eine Userform1 in der ich die allgemeinen Eingaben mache.
In dieser Userform1 ist auch ein Häckchen mit dem ich diese Daten (wenn Häckchen gesetzt) auch in die Lieferadressenspalte schreibe.
Wenn dieses Häckchen nicht gesetzt ist wird die Userform2 aufgerufen um die Eingabe der Lieferadresse zu machen.
Nur wenn ich die Userform2 abbreche ist bei Lieferadresse nichts hinterlegt. Kann mir hier bitte wer weiterhelfen?
Mit freundlichen Grüßen
Thomas Fuchs
Userform1
Private Sub CommandButton1_Click()
Dim x As Integer
If CheckBox1.Value = True Then
Adressen.Cells(zeile, 3) = ComboBox1
Adressen.Cells(zeile, 11) = ComboBox1
Adressen.Cells(zeile, 4) = TextBox2
Adressen.Cells(zeile, 12) = TextBox2
Adressen.Cells(zeile, 5) = TextBox3
Adressen.Cells(zeile, 13) = TextBox3
Adressen.Cells(zeile, 6) = TextBox4.Value
Adressen.Cells(zeile, 14) = TextBox4.Value
Adressen.Cells(zeile, 7) = TextBox5
Adressen.Cells(zeile, 15) = TextBox5
Adressen.Cells(zeile, 8) = TextBox7
Adressen.Cells(zeile, 16) = TextBox7
Adressen.Cells(zeile, 9) = TextBox8
Adressen.Cells(zeile, 17) = TextBox8
Adressen.Cells(zeile, 2) = CDec(TextBox6) 'Kundennummer
Adressen.Cells(zeile, 1) = zeile - 2
Else
Adressen.Cells(zeile, 3) = ComboBox1
Adressen.Cells(zeile, 4) = TextBox2
Adressen.Cells(zeile, 5) = TextBox3
Adressen.Cells(zeile, 6) = TextBox4.Value
Adressen.Cells(zeile, 7) = TextBox5
Adressen.Cells(zeile, 8) = TextBox7
Adressen.Cells(zeile, 9) = TextBox8
Adressen.Cells(zeile, 2) = CDec(TextBox6) 'Kundennummer
Adressen.Cells(zeile, 1) = zeile - 2
UserForm2.Show
End If
zeile = 0
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Z = Adressen.UsedRange.Rows.Count
zeile = Z + 1
TextBox6 = zeile + 998
Dim b As Integer
'Hier wird der Bereich der Anrede ausgewählt
For b = 1 To 4 'b=Counter
ComboBox1.AddItem Angebotstyp.Cells(b, 7).Value '7 = Spalte G
Next b
End Sub
Userform2
Private Sub CommandButton1_Click()
Adressen.Cells(zeile, 11) = TextBox1
Adressen.Cells(zeile, 12) = TextBox2
Adressen.Cells(zeile, 13) = TextBox3
Adressen.Cells(zeile, 14) = TextBox4.Value
Adressen.Cells(zeile, 15) = TextBox5
Adressen.Cells(zeile, 16) = TextBox7
Adressen.Cells(zeile, 17) = TextBox8
Unload Me
Unload UserForm1
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
TextBox6 = zeile + 998
Dim b As Integer
For b = 1 To 4
ComboBox1.AddItem Angebotstyp.Cells(b, 7).Value
Next b
End Sub