AW: ausführen von zwei Private Sub Funktione
15.04.2022 20:43:41
zwei
Hallo Nepumuk danke für dein Lösungsansatz, leider funktioniert deine Lösung nur zum Teile.
Spalte "AA" mit der Automatischen Eintrag der Zeit funktioniert Super!!! Leider aber trägt er die angaben die Sich in meinen Drei Text Boxen befinden nicht in die entsprechenden Zeilen ein wenn ich in Spalte "D" eine Eingabe Tätige
ansonsten bin ich dir sehr dankbar für deine Idee die du hattest
Kay Siebke
Option Explicit
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngRow As Long
Dim objRange As Range, objCell As Range
If Target.Column = 5 And Target.Row > 1 Then
lngRow = Target.Row
Application.EnableEvents = False
Cells(lngRow, 1).Value = TextBox1.Text
Cells(lngRow, 2).Value = TextBox2.Text
Cells(lngRow, 3).Value = TextBox3.Text
Application.EnableEvents = True
Else
Set objRange = Intersect(Target, Columns(4))
If Not objRange Is Nothing Then
Application.EnableEvents = False
For Each objCell In objRange
objCell.Offset(0, 23) = IIf(IsEmpty(objCell.Value), Empty, Now)
Next
Application.EnableEvents = True
End If
End If
End Sub