Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

2 Datums-Macros zusammen

2 Datums-Macros zusammen
03.09.2017 11:46:00
kevikev
Hallo liebe Excel Gemeinde.
Ich möchte 2 Macros im selben Tabellenblatt benutzen.
Nummer 1 soll eine Zelle weiter links das Datum eintragen wenn etwas in die Zelle geschrieben wird.
Nummer 2 soll bei dem Wert "100" das aktuelle Datum eine Zelle weiter rechts schreiben.
Beide funktionieren im selben Tabellenblatt einzeln. Ich weiß nur leider nicht wie der Code aussehen muss, dass beide gleichzeitig funktionieren.
hier der Code für 1:
Private Sub Worksheet2_Change(ByVal Target As Range)
If Intersect(Range("b7:b500"), Target) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, -1).Value = ""
Else
Target.Offset(0, -1).Value = Date
End If
End Sub

Und hier der für 2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("q7:q500"), Target) Is Nothing Then Exit Sub
If Target.Value  "100" Then
Target.Offset(0, 1).Value = ""
Else
Target.Offset(0, 1).Value = Date
End If
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Datums-Macros zusammen
03.09.2017 12:22:04
Werner
Hallo,
so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Count > 1 Then
If Not Intersect(Range("B7:B500"), Target) Is Nothing Then
If Target.Value = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1).Value = Date
End If
End If
If Not Intersect(Range("Q7:Q500"), Target) Is Nothing Then
If Target.Value  100 Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1).Value = Date
End If
End If
Else
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Mehrfachauswahl nicht zulässig."
End If
End Sub
Gruß Werner
Anzeige
AW: 2 Datums-Macros zusammen
03.09.2017 12:31:00
kevikev
Vielen Dank Werner, funktioniert bombe!
Gerne u. Danke für die Rückmeldung. o.w.T.
03.09.2017 12:41:24
Werner
AW: 2 Datums-Macros zusammen
03.09.2017 12:24:02
Crazy
Hallo
ungetestet vielleicht so
Private Sub Worksheet2_Change(ByVal Target As Range)
If Not Intersect(Range("b7:b500"), Target) Is Nothing Then
If Target.Value = "" Then
Target.Offset(0, -1).Value = ""
Else
Target.Offset(0, -1).Value = Date
End If
End If
If Not Intersect(Range("b7:b500"), Target) Is Nothing Then
If Target.Value = "" Then
Target.Offset(0, -1).Value = ""
Else
Target.Offset(0, -1).Value = Date
End If
End If
End Sub
MfG Tom
AW: Mit Variablen
03.09.2017 20:18:27
Gerd
Hallo
Private Sub Worksheet_Change(ByVal Target As Range)
Dim V As Variant, S As Long
With Target
If .Count = 1 Then
Set R = Range("B7:B500,Q7:Q500")
If Not Intersect(Range("B7:B500,Q7:Q500"), .Cells) Is Nothing Then
If Not Intersect(Range("Q7:Q500"), .Cells) Is Nothing Then
If .Value = 100 Then V = Date
S = 1
Else
If .Value  "" Then V = Date
S = -1
End If
.Offset(0, S).Value = V
End If
End If
End With
End Sub

Gruß Gerd
Anzeige
AW: Mit Variablen
03.09.2017 23:03:00
kevikev
Danke Gerd, auch ein Treffer ins Schwarze!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige