Excel Filmdatenbank - Excel stürzt immer ab

[MdeJong]

Hallo Rabe,

so ist es eine Erklärung von dir, die ich besser verstehe  :)

Ich hatte das Value schon vorab zu TextBox9 mit beigefügt und ausprobiert.
in dem Code für das abspeichern der Daten über der Userform "Filme_buchen.

Wenn ich in der TextBox9 zu der Zahl auch € hineinschreibe, schreibt er in die Tabelle Euro, aber die Zelle bzw. Spalte I
in meinem Datenblatt ist trotzdem wieder als Text abgelegt, obwohl ich sie vorher als Euro formatiert habe?

Ich habe die Zeile wie im beigefügtem Code eingesetzt, an der ich glaubte, es ist dort richtig?

Code:

Private Sub CommandButton1_Click()
  Dim sp As Integer
  Dim z As Long
  With Worksheets("BluRay-Liste")
      z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
      For sp = 1 To 13
          If sp = 5 Then sp = 6
          If sp = 7 Then sp = 9
          .Cells(z, sp) = Controls("TextBox" & sp).Text
          Range("I1").Value = CCur(TextBox9.Value)
      Next sp
      .Cells(z, 5) = ComboBox1
      .Cells(z, 7) = ComboBox2
      .Cells(z, 8) = ComboBox3
      .Cells(z, 14) = ComboBox4
  End With
  For intAnz = 1 To 13
      If intAnz = 5 Then intAnz = 6
      If intAnz = 7 Then intAnz = 9
      Controls("Textbox" & intAnz) = ""
  Next intAnz
  ComboBox1.ListIndex = 0
  ComboBox2.ListIndex = 0
  ComboBox3.ListIndex = 0
  ComboBox4.ListIndex = 0
     MsgBox "Daten wurden erfolgreich übernommen"
  Call UserForm_Initialize
End Sub

Und das wird wohl nicht so richtig gewesen sein?

[Crazy Tom]

Hallo

Code:

Private Sub CommandButton1_Click()
  Dim sp As Integer
  Dim z As Long
  With Worksheets("BluRay-Liste")
      z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
      For sp = 1 To 13
          If sp = 5 Then sp = 6
          If sp = 7 Then sp = 8 '<-- geändert
          .Cells(z, sp) = Controls("TextBox" & sp).Text
          .Cells(z, 9) = CCur(TextBox9.Value)
      Next sp
      .Cells(z, 5) = ComboBox1
      .Cells(z, 7) = ComboBox2
      .Cells(z, 8) = ComboBox3
      .Cells(z, 14) = ComboBox4
  End With
  For intAnz = 1 To 13
      If intAnz = 5 Then intAnz = 6
      If intAnz = 7 Then intAnz = 9
      Controls("Textbox" & intAnz) = ""
  Next intAnz
  ComboBox1.ListIndex = 0
  ComboBox2.ListIndex = 0
  ComboBox3.ListIndex = 0
  ComboBox4.ListIndex = 0
     MsgBox "Daten wurden erfolgreich übernommen"
  Call UserForm_Initialize
End Sub

Basics lernen!!!


MfG Tom

[MdeJong]

Jawoll.....ich fange heute Abend ganz klein an mit den Basics  :)
Danke!!!


Crazy Tom

MfG Tom

[MdeJong]

Hallo Tom,


da wäre ich doch nie drauf gekommen`

ich hab den Code ausgetauscht....ich brauche in der Userform nicht  das € Zeichen in der textbox19 angeben, er speichert im Datenblatt mit €

Doch er hält an der folgenden Position an:

Code:

Private Sub CommandButton1_Click()
 Dim sp As Integer
 Dim z As Long
 With Worksheets("BluRay-Liste")
     z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
     For sp = 1 To 13
         If sp = 5 Then sp = 6
         If sp = 7 Then sp = 8 '<-- geändert
         .Cells(z, sp) = Controls("TextBox" & sp).Text  '<-- hier hält der Code an..speichert mit € zeichen aber ab
         .Cells(z, 9) = CCur(TextBox9.Value)
     Next sp
     .Cells(z, 5) = ComboBox1
     .Cells(z, 7) = ComboBox2
     .Cells(z, 8) = ComboBox3
     .Cells(z, 14) = ComboBox4
 End With
 For intAnz = 1 To 13
     If intAnz = 5 Then intAnz = 6
     If intAnz = 7 Then intAnz = 9
     Controls("Textbox" & intAnz) = ""
 Next intAnz
 ComboBox1.ListIndex = 0
 ComboBox2.ListIndex = 0
 ComboBox3.ListIndex = 0
 ComboBox4.ListIndex = 0
    MsgBox "Daten wurden erfolgreich übernommen"
 Call UserForm_Initialize

End Sub

[Steffl]

Hallo Michael,

wie lautet die Fehlermeldung? Welchen Wert hat die Variable sp wenn der Fehler auftaucht? Gibt es eine Textbox mit dieser Nummer?

[Crazy Tom]

Hallo

die eingefügte Zeile war an der falschen Stelle
so habe ich es jetzt getestet

Code:

Private Sub CommandButton1_Click()
  Dim sp As Integer
  Dim z As Long
  With Worksheets("BluRay-Liste")
      z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
      For sp = 1 To 13
          If sp = 5 Then sp = 6
          If sp = 7 Then sp = 10
          .Cells(z, sp) = Controls("TextBox" & sp).Text
      Next sp
      .Cells(z, 5) = ComboBox1
      .Cells(z, 7) = ComboBox2
      .Cells(z, 8) = ComboBox3
      .Cells(z, 9) = CCur(TextBox9.Value)
      .Cells(z, 14) = ComboBox4
  End With
  For intAnz = 1 To 13
      If intAnz = 5 Then intAnz = 6
      If intAnz = 7 Then intAnz = 9
      Controls("Textbox" & intAnz) = ""
  Next intAnz
  ComboBox1.ListIndex = 0
  ComboBox2.ListIndex = 0
  ComboBox3.ListIndex = 0
  ComboBox4.ListIndex = 0
  MsgBox "Daten wurden erfolgreich übernommen"
  Call UserForm_Initialize
End Sub

MfG Tom

[MdeJong]

Hallo Tom,


danke...jetzt kommt keine Fehler und es wird mit dem € Zeichen gespeichert.   :19:

ich fand das aber sehr schwierig....nur allein die Zahl als Eurozahl ins Datenblatt schreiben.

Tas zurück einlesen von Tabellenblatt zur TextBox in Euro anzeigen lassen ist sicher auch nicht nur mit eine Zeile erledigt?


Wenn ich diese: 

Code:

'Eurowert aus Tabelle in eine Textbox
TextBox1.Value = Format(Range("E1"), "0.00 €")

in den Code fürs einlesen " Spinbutton" einfüge...reicht das sicher auch nicht...oder Tom?


Gruß Michael

[Crazy Tom]

genau nach diesem Prinzip

schau dir den restlichen Code im Spinbutton an
dann nur noch den Textboxnamen anpassen

[MdeJong]

jetzt steht in dem Spinbutton dieses Zeile für textbox12

Code:

TextBox12.Value = .Cells(lngZeile, 9).Value

 heißt das, ich kann diese mit dieser austauschen?

Code:

TextBox12.Value = Format(Range("E1"), "0.00 €")

 und das bei beiden Spins?

[Crazy Tom]

steht in den Spinbuttons etwas von lngZeile?