Hallo Zusammen,
ich habe mal wieder rein Problem, das mit dem reinschreiben in definierte Zellen über User Form Klappt jetzt einwandfrei.
Jetzt möchte ich aber noch eine Lösch Funktion für diese Zellen machen abhängig von der ProjektNr. (SpalteA)
So schreibe ich in die Spalten
Dim i As Integer
For i = 1 To 10000
If Cells(i, 1).Value = CInt(Projekt.Value) Then
Cells(i, 6) = MaschinenCode.Text
Cells(i, 9) = OrderNr.Text
Cells(i, 10) = Netto.Text
Cells(i, 11) = SonderVH.Text
Cells(i, 20) = Notiz.Text
End If
Next
reicht es wenn ich es jetzt wie folgt mache
For i = 1 To 10000
If Cells(i, 1).Value = CInt(Projekt.Value) Then
Cells(i, 6) = Delete
Danke für eure Hilfe
Gruß
Christian