Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Worksheet_Change(ByVal Target As Excel.R

Forumthread: Worksheet_Change(ByVal Target As Excel.R

Worksheet_Change(ByVal Target As Excel.R
19.10.2020 20:26:48
Tom
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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Change(ByVal Target As Excel.R
19.10.2020 20:30:26
Hajo_Zi

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

Anzeige
AW: Worksheet_Change(ByVal Target As Excel.R
19.10.2020 20:43:44
Tom
Hallo Hajo,
die Spalte 13 wird in Deinem Code nicht betrachtet, wenn ich es richtig verstehe?
Gruß Tom
AW: Worksheet_Change(ByVal Target As Excel.R
19.10.2020 20:49:09
Hajo_Zi
übersehen
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
Gruß Hajo
Anzeige
AW: Worksheet_Change(ByVal Target As Excel.R
19.10.2020 21:12:16
Tom
hm....noch nicht ganz. Ein Fehler kommt...
ELSE ohne IF

AW: Worksheet_Change(ByVal Target As Excel.R
19.10.2020 21:26:31
ralf_b

End If
End If
End If
End Sub
lass das oberste end if weg
AW: Worksheet_Change(ByVal Target As Excel.R
19.10.2020 21:45:50
Werner
Hallo,
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
Gruß Werner
Anzeige
AW: Worksheet_Change(ByVal Target As Excel.R
19.10.2020 21:58:04
Tom
Hallo Werner,
danke, das würde funktionieren, jedoch wird das Datum wieder entfernt wenn der Wert aus 11 oder 13 gelöscht wird. Nach dem ersten Eintrag, sollte das Datum dann stehen bleiben.
Gruß Tom
AW: Worksheet_Change(ByVal Target As Excel.R
20.10.2020 05:22:50
Hajo_Zi
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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige