Worksheet_Change(ByVal Target As Excel.R

Hallo,
ich möchte die beiden Events zusammenführen. Wie soll ich das am besten machen?
Danke
Gruß Tom

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 11 Then
If Target.Value = "" Then
Target.Offset(0, 53) = ""
Else
Target.Offset(0, 53) = Date
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 13 Then
If Target.Value = FF Or TB Then
Target.Offset(0, 54) = ""
Else
Target.Offset(0, 54) = Date
End If
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 11 Then If Target = "" Then Target.Offset(0, 53) = "" elseIf Target = FF Or Target =TB Then Target.Offset(0, 54) = "" Else Target.Offset(0, 53) = Date End If End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 11 Then If Target = "" Then Target.Offset(0, 53) = "" Else Target.Offset(0, 53) = Date End If ElseIf Target.Column = 13 Then If Target = FF Or Target =TB Then Target.Offset(0, 54) = "" Else Target.Offset(0, 54) = Date End If End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Column Case 11 Target.Offset(, 53) = IIf(Target = "", "", Date) Case 13 Target.Offset(, 54) = IIf(Target = "FF" Or Target = "TB", "", Date) Case Else End Select End Sub

lösche das letzte End If.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Worksheet_Change(ByVal Target As Excel.R

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Worksheet_Change(ByVal Target As Excel.R

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread