Herbers Excel/VBA-Archiv
Änderungsdatum bei DropDown
- Änderungsdatum bei DropDown von Andl vom 04.11.2020 09:32:55
- AW: Änderungsdatum bei DropDown - von max.kaffl@gmx.de am 04.11.2020 09:40:39
- AW: Änderungsdatum bei DropDown - von Andl am 04.11.2020 11:39:45
- AW: Änderungsdatum bei DropDown - von max.kaffl@gmx.de am 04.11.2020 11:53:32
- AW: Änderungsdatum bei DropDown - von Andl am 04.11.2020 17:10:16
- AW: Änderungsdatum bei DropDown - von Nepumuk am 04.11.2020 17:16:11
- AW: Änderungsdatum bei DropDown - von Andl am 04.11.2020 17:30:03
- AW: Änderungsdatum bei DropDown - von Nepumuk am 04.11.2020 17:38:46
- AW: Änderungsdatum bei DropDown - von Andl am 04.11.2020 17:45:29
- AW: Änderungsdatum bei DropDown - von Andl am 04.11.2020 17:45:29
- AW: Änderungsdatum bei DropDown - von Nepumuk am 04.11.2020 17:38:46
- AW: Änderungsdatum bei DropDown - von Andl am 04.11.2020 17:30:03
- AW: Änderungsdatum bei DropDown - von Nepumuk am 04.11.2020 17:16:11
- AW: Änderungsdatum bei DropDown - von Andl am 04.11.2020 17:10:16
- AW: Änderungsdatum bei DropDown - von max.kaffl@gmx.de am 04.11.2020 11:53:32
- AW: Änderungsdatum bei DropDown - von Andl am 04.11.2020 11:39:45
Geschrieben am: 04.11.2020 09:32:55
Hallo Zusammen,
vielleicht könnt ihr mir bitte helfen.
Ich habe ein in Zelle/Spalte - beginnend mit A1 Ein DropDown-Auswahlfeld erstellt. Nun möchte ich, dass wenn auch immer ich das Auswahlfeld ändere, in Zelle/Spalte - beginnend mit A2 das Änderungsdatum steht.
Gerne auch mittels VBA wenn nicht zu komplex.
Vielen Dank euch.
Andl
von: max.kaffl@gmx.de
Geschrieben am: 04.11.2020 09:40:39
Hallo Andl,
so?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Cells(2, 1).Value = Date
End Sub
Rechtsklick auf den Tabellenreiter - Code anzeigen.
Gruß
Nepumuk
von: Andl
Geschrieben am: 04.11.2020 11:39:45
Hallo Nepomuk,
ja, das funktioniert schon mal ganz gut. :-) Wie fuktioniert das mit Spalte A als DropDown und Spalte B mit Änderungsdatum?
Gruß
Andl
von: max.kaffl@gmx.de
Geschrieben am: 04.11.2020 11:53:32
Hallo Andl,
dann so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objCell As Range
Set objRange = Intersect(Target, Columns(1))
If Not objRange Is Nothing Then
For Each objCell In objRange
objCell.Offset(0, 1).Value = Date
Next
Set objRange = Nothing
End If
End Sub
Gruß
Nepumuk
von: Andl
Geschrieben am: 04.11.2020 17:10:16
Hallo Nepomuk,
perfekt - hatte noch gehofft ich kann mir daraus irgendwie ableiten wenn:
Dropdown ab Zeile 3 in Spalte D und Änderungsdatum entsprechend daneben?
Gruß
Andl
von: Nepumuk
Geschrieben am: 04.11.2020 17:16:11
Hallo Andl,
dann so:
Dim objRange As Range, objCell As Range
If Target.Row > 2 Then
Set objRange = Intersect(Target, Columns(4))
If Not objRange Is Nothing Then
For Each objCell In objRange
objCell.Offset(0, 1).Value = Date
Next
Set objRange = Nothing
End If
End If
End Sub
Oder sollen Spalte A und D überwacht werden?
Gruß
Nepumuk
von: Andl
Geschrieben am: 04.11.2020 17:30:03
Hallo Nepomuk,
dann das Komplettpaket - ich benötige Folgendes:
O3 = Dopdown vs. Änderungsdatum S3 / T3 = Dopdown vs. Änderungsdatum W3 / T3 = Dopdown vs. Änderungsdatum W3
Das Ganze dann für die gesamte Spalte.
Vielen Dank.
BG
Andl
von: Nepumuk
Geschrieben am: 04.11.2020 17:38:46
Hallo Andl,
das ist jetzt die letzte Antwort.
Dim objRange As Range, objCell As Range
If Target.Row > 2 Then
Set objRange = Intersect(Target, Columns(15))
If Not objRange Is Nothing Then
For Each objCell In objRange
objCell.Offset(0, 4).Value = Date
Next
Set objRange = Nothing
End If
Set objRange = Intersect(Target, Columns(20))
If Not objRange Is Nothing Then
For Each objCell In objRange
objCell.Offset(0, 3).Value = Date
Next
Set objRange = Nothing
End If
End If
End Sub
Gruß
Nepumuk
von: Andl
Geschrieben am: 04.11.2020 17:45:29
Hallo Nepomuk,
vielen Dank fürdie Hilfestellung. Hatte sich mir doch nicht alles erschlossen. Da fehlen einfach noch etwas die Grundlagen.
Schönen Abend.
BG
Andl