Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

langsame Datei
#21
Besser so:


Code:
Private Sub CommandButton1_Click()
  Tabelle1.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 39) = Array(TextBox1, TextBox2, TextBox3, "", "", "", "", TextBox4, ComboBox1, TextBox6, "", "", "", TextBox7, ComboBox2, TextBox9, "", "", "", TextBox10, ComboBox3, TextBox12, "","","",TextBox13, ComboBox4, TextBox15)
   
   For Each it In Controls
      If TypeName(it) = "Textbox" Then it.Text = ""
      If TypeName(it) = "ComboBox" Then it.ListIndex = -1
    Next
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#22
Hi Snb,

da ich leider nicht der VBA künstler bin steige ich durch meinen Code besser durch. Ich musste jetzt ja den Aufbau auf Grund der Inderekt Fkt. ändern. Trotzdem Danke für deine Überlegungen

Somit sieht der neue Code wie folgt aus


Code:
'Button:  Übernehmen
Private Sub CommandButton1_Click()
Dim lz1 As Long   'LastZell in Tabelle1
 On Error GoTo Fehler
 lz1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
 'Mixkiste
 Cells(lz1, 1) = TextBox1.Text
 Cells(lz1, 2) = TextBox2.Text
 Cells(lz1, 3) = TextBox3.Text
 'Sorte 1
 Cells(lz1, 8) = TextBox4.Text
 Cells(lz1, 9) = ComboBox1.Text
 Cells(lz1, 10) = TextBox6.Text
 'Sorte 2
 Cells(lz1, 16) = TextBox7.Text
 Cells(lz1, 17) = ComboBox2.Text
 Cells(lz1, 18) = TextBox9.Text
 'Sorte 3
 Cells(lz1, 24) = TextBox10.Text
 Cells(lz1, 25) = ComboBox3.Text
 Cells(lz1, 26) = TextBox12.Text
 'Sorte 4
 Cells(lz1, 32) = TextBox13.Text
 Cells(lz1, 33) = ComboBox4.Text
 Cells(lz1, 34) = TextBox15.Text
'Leeren
  TextBox1.Text = Empty
  TextBox2.Text = Empty
  TextBox3.Text = Empty
  TextBox4.Text = Empty
 ComboBox1.Text = -1
  TextBox6.Text = Empty
  TextBox7.Text = Empty
  ComboBox2.Text = -1
  TextBox9.Text = Empty
  TextBox10.Text = Empty
  ComboBox3.Text = -1
  TextBox12.Text = Empty
  TextBox13.Text = Empty
 ComboBox4.Text = -1
  TextBox15.Text = Empty
 

Exit Sub

Fehler:  MsgBox "Eingabe Fehler aufgetreten"
End Sub

'Button:  Abbrechen
Private Sub CommandButton2_Click()
 Unload Me
End Sub

Private Sub UserForm_Click()

End Sub
Das finde ich übersichtlicher auch wenn es länger zum schreiben braucht. Viel verstehe ich in deinem Code noch nicht. Gibt es bei deinem Code noch andere Vorteile ausser das er kürzer ist.
Ich nutze diesen Code auch für andere UF. Wo ich dann recht übersichtlich (wie gesagt für mich ist der leichter zu verstehen) Änderungen vornehmen kann.


MFG

Sven
Warum ich mit mir selber rede????
Ich brauche mal nen Experten Rat  Angel
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste