Hab da ma ne Frage:
Habe drei Textboxen und drei Optionboxen
Bisher habe ich meine Daten in meine Tabelle so eingetragen:
Private Sub cmdRechnungEintragen_Click()
Dim lngR As Long
Dim durchsuchen
With Sheets("BPF")
Set durchsuchen = .Range("A:A").Find(what:=txtLfdNr.Text, lookat:=xlWhole)
If Not durchsuchen Is Nothing Then
lngR = durchsuchen.Row
txtStatus = ERLEDIGT
.Cells(lngR, 62) = txtRENr
.Cells(lngR, 63) = txtREDatum
.Cells(lngR, 64) = txtREGeprVon
End If
Dim i As Long
With Sheets("Rechnungen")
For i = .Cells(65536, 1).End(xlUp).Row To 1 Step -1
If .Cells(i, 1).Text = Me.txtLfdNr.Text Then .Cells(i, 1).EntireRow.Delete
Next i
End With
End With
Set durchsuchen = Nothing
End Sub
Funzt ja auch super
Wie muss ich das Anstellen, wenn ich jetzt will
Wenn Optionbutton OptKRE aktiviert dann trage ein
gefundene Zeile
.Cells(lngR, 62) = txtRENr
.Cells(lngR, 63) = txtREDatum
.Cells(lngR, 64) = txtREGeprVon
Wenn Optionbutton OptTRE aktiviert dann trage ein
gefundene Zeile
.Cells(lngR, 74) = txtRENr
.Cells(lngR, 75) = txtREDatum
.Cells(lngR, 76) = txtREGeprVon
Wenn Optionbutton OptRRE aktiviert dann trage ein
gefundene Zeile
.Cells(lngR, 86) = txtRENr
.Cells(lngR, 87) = txtREDatum
.Cells(lngR, 88) = txtREGeprVon
Kann mir da jemand helfen?
Greetz n thx
Gerhard