Danke das Problem ist zum Teil gelöst und die die texboxsen tragen wider mein angaben ein !
das erste Problem ist aber leider so dass wen ich mit texbox5 ein Eintrag tätige nicht der Zeit Stempel in Spalte F eingetragen wird, wie bei texbox6
zweite Problem ist wie oben beschrieben, dass wen ich in einer Zeile mit Texbox5 ein wert eintrage dies dann durch texbox6 bei der nässten Eingabe gelöscht wird und der Wert von Texbox6 in die Zelle eingetragen wirte dabei soll dies in die nässte Frei Zeile eingetragen werden
HImm ich hoffe ich habe nix vergessen und hoffe das ich mein Anliegen so gut es geht erläutert habe.
Ich hoffe ich habe dein angaben richtig umgesetz?
anbei die Korektuhr(Tabelle1) :
Sub inTab3Eintragen()
Dim lfreerow As Long
With Worksheets("Tabelle3")
lfreerow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(lfreerow, 1) = Worksheets("Tabelle1").Shapes("TextBox5").OLEFormat.Object.Object.Value
.Cells(lfreerow, 2) = Worksheets("Tabelle1").Shapes("TextBox6").OLEFormat.Object.Object.Value
TextBox5.Text = vbNullString
TextBox6.Text = vbNullString
End With
End Sub
Sub Leeren()
Worksheets("Tabelle3").Range("A2:A1000,B2:B1000,F2:F1000").ClearContents
Dieser Teil befindet sich bei mir in Tabelle3:
End Sub
Private Sub worksheet_change(ByVal target As Range)
If Intersect(target, Range("A:B")) Is Nothing Or _
target.Count > 1 Then Exit Sub
Cells(target.Row, "F") = IIf(Len(target) > 0, Now, "")