Code erklärung
06.03.2015 20:52:36
Thomas
bin ein Neuling in Sachen VBA Hier werde ich von vielen lieben Leuten geholfen. Jedoch möchte ich ein wenig davon verstehen. Anbei ist ein kleiner Code der schreibt den Inhalt der Textboxen in die Zellen. So weit ist es klar. Ich habe an einigen stellen ein Fragezeichen gemacht und ich würde gern wissen was an diesen Stellen passiert. Schreibt mir bitte jemand daneben die Bedeutung? Wenn ich etwas falsches hingeschrieben habe kann das dann jemand berichtigen?
Wenn noch zeit ist könnte mir noch jemand eine schleife schreiben welche das gleiche macht. ( ist aber zweitrangig )
Das würde mir bei meinen ersten eigenen Gehversuchen riesig helfen.
Lieben lieben dank
Thomas
Private Sub CommandButton3_Click()
Dim letzte_Zeile As Long ' Variable deklariert gilt für diesen Abschnitt
' Datensatz neu speichern
letzte_Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 '''' ?
.Cells(letzte_Zeile, 1) = Application.WorksheetFunction.Max(.Columns(1)) + 1 ' suche letzte zeile nimm eine darunter
.Cells(letzte_Zeile, 2) = TextBox1.Text ' schreibe von textbox1 den wert in spalte b
.Cells(letzte_Zeile, 3) = TextBox16.Text ' schreibe von textbox1 den wert in spalte c
.Cells(letzte_Zeile, 4) = TextBox2 ' schreibe von textbox1 den wert in spalte d
With .Cells(letzte_Zeile, 5) ' was passiert von hier?
If Me.TextBox3.Value = "" Then ' was passiert von hier?
.ClearContents ' was passiert von hier?
ElseIf IsDate(Me.TextBox3.Value) Then ' was passiert von hier?
.Value = CDate(Me.TextBox3.Text) ' was passiert von hier?
Else
.Value = Me.TextBox3.Text ' was passiert von hier?
End If ' was passiert von hier?
End With ' was passiert bis hier?
.Cells(letzte_Zeile, 6) = "'" & TextBox4.Text 'Schreibe von textbox4 in spalte F als TextPLZ
.Cells(letzte_Zeile, 7) = TextBox5.Text
.Cells(letzte_Zeile, 8) = TextBox6.Text
.Cells(letzte_Zeile, 9) = TextBox7.Text
.Cells(letzte_Zeile, 10) = TextBox8.Text
.Cells(letzte_Zeile, 11) = "'" & TextBox9.Text 'Tel
.Cells(letzte_Zeile, 12) = "'" & TextBox10.Text 'Tel2
.Cells(letzte_Zeile, 13) = "'" & TextBox11.Text 'Tel3
.Cells(letzte_Zeile, 14) = "'" & TextBox12.Text 'Fax
.Cells(letzte_Zeile, 15) = TextBox13.Text
.Cells(letzte_Zeile, 16) = TextBox14.Text
.Cells(letzte_Zeile, 17) = TextBox15.Text
End With ' schreiben ist fertig
ClearAll 'lösche alle textboxen
UserForm_Initialize ' starte userform neu ?
ComboBox1.SetFocus ' ?
End