VBA Hilfe
14.09.2016 14:01:37
Thomas
ich habe diesen Code:
Private Sub CommandButton3_Click()
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
If Trim(CStr(TextBox1.Text)) = "" Then
MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
lZeile = 2
Do While Trim(CStr(Tabelle9.Cells(lZeile, 1).Value)) ""
If ListBox1.Text = Trim(CStr(Tabelle9.Cells(lZeile, 1).Value)) Then
Tabelle9.Cells(lZeile, 1).Value = Trim(CStr(TextBox1.Text))
Tabelle9.Cells(lZeile, 2).Value = TextBox2.Text
Tabelle9.Cells(lZeile, 3).Value = TextBox3.Text
Tabelle9.Cells(lZeile, 4).Value = TextBox4.Text
Tabelle9.Cells(lZeile, 5).Value = TextBox5.Text
Tabelle9.Cells(lZeile, 6).Value = TextBox6.Text
Tabelle9.Cells(lZeile, 7).Value = TextBox7.Text
Tabelle9.Cells(lZeile, 8).Value = TextBox8.Text
Tabelle9.Cells(lZeile, 9).Value = TextBox9.Text
Tabelle9.Cells(lZeile, 10).Value = TextBox10.Text
Tabelle9.Cells(lZeile, 11).Value = TextBox11.Text
If ListBox1.Text Trim(CStr(TextBox1.Text)) Then
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End If
Exit Do
End If
lZeile = lZeile + 1
Loop
End Sub
Irgendwo löscht er komplett die Zeile damit die neuen Daten eingegeben werden. Kann man aus sagen, er soll z.B von A2 bis L2 löschen. das andere Bleibt.
Hoffe ihr könnt mir helfen
Mfg Thomas