Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei zellwertänderung Datum eintragen

Forumthread: Bei zellwertänderung Datum eintragen

Bei zellwertänderung Datum eintragen
20.03.2015 10:54:06
Hartmut
Guten morgen zusammen,
eine kleine benötigte Hilfe von euch.
In Spalte N1 bis N200 ist jeweils eine Gültigkeit eingetragen mit 3 varierenden Texten.
Nun soll bei einer Zellwertänderung von Zelle N1, N2...bis N200 das Datum in der jeweiligen Zelle der Spalte O eingetragen werden und bei jeder Zellwertänderung z.B. von Text 1 auf 2 oder umgekehrt das Datum aktualisiert werden.
Kann mir da jemand von euch ein wenig unterstützung geben wie dieser Code aussieht.
Schon jetzt ein großes Danke für eure Hilfe.
Gruß
Hartmut

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bei zellwertänderung Datum eintragen
20.03.2015 11:11:59
Matthias
Hallo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N2:N200")) Is Nothing And Target.Count = 1 Then
Target.Offset(, 1) = Date
End If
End Sub
Gruß Matthias

Range("N1:N200") muss es heißen, sorry ... kwT
20.03.2015 11:17:07
Matthias

AW: Range("N1:N200") muss es heißen, sorry ... kwT
20.03.2015 11:20:03
Hartmut
hey das ist ja super,
Danke dir Matthias.
Mir fehlte das "is nothing and target.count=1"
Klappt super.
Vielen Dank und Grüße auch an alle anderen.
Hartmut

Anzeige
Ergänzung, falls von Interesse...
20.03.2015 12:27:30
Interesse...
Hallo Hartmut, Hallo Matthias,
Falls evtl. von Interesse hier eine Variante von mir: Zwei Arbeitsblatt-Ereignisse kombiniert, um das Eintragen bzw. ggf. Aktualisieren des Datums in Spalte O wirklich nur dann auszulösen, wenn tatsächlich ein "neuer Wert" eingegeben wurde.
Dachte mir das ist ggf. bei Verwendung von Gültigkeitsüberprüfung ganz praktisch - d.h. in die Zelle klicken und in (bspw.) einer Liste den gleichen Wert wie zuvor wählen, aktualisiert/schreibt das Datum nicht in Spalte O - ein neuer Wert aus der Gültigkeitsliste allerdings sehr wohl.
Vielleicht kannst Du's ja brauchen Hartmut:
Public AlterWert As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("N1:N200"), Target) Is Nothing _
And Target.Count = 1 Then
If Not Target.Value = AlterWert Then
Target.Offset(0, 1).Value = Date
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("N1:N200"), Target) Is Nothing _
And Target.Count = 1 Then
AlterWert = Target.Value
End If
End Sub
LG und schönes Wochenende
Michael

Anzeige
Da hast Du Recht Michael ...
20.03.2015 14:46:50
Matthias
Hallo
Da hast Du Recht Michael ...
und ich hatte diesen Hinweis sogar erst in meiner Antwort verankert,
später aber leider wieder entfernt.
Dieser Hinweis sollte also für Hartmut eine Erweiterung
des Wissensstandes dienen ;-)
Gut wenn auch andere mitlesen :-)
Gruß Matthias

Anzeige
Oh, Danke Matthias...
20.03.2015 19:30:04
Michael
... wenn mir jemand Recht gibt, gehe ich natürlich gestärkt ins Wochenende :-]].
Aber ich kenn das auch: man formuliert einen (vermeintlich) perfekten Beitrag, dann fällt einem das noch ein, der Satz passt nicht, man löscht herum - ich hab mich auch schon oft geärgert, dass ich dann zu schnell war beim Absenden. Naja, kommt eben vor.
Gut wenn auch andere mitlesen :-)
Stimmt, und oft genug lerne ICH was dabei!
Schönes Wochenende
Michael
Anzeige

Forumthreads zu verwandten Themen

Array benennen nach Zellwerten
chris

Hallo VBA Experten,guten morgen.
habe eine frage und zwar wie ist es möglich ein Array zu benennen ?
Momentan habe ich es so...
Dim kriterien(20)
Dann wenn ich in den Debugger gehe steht dort
kriterien(0)
kriterien(1)
kriterien(2)
usw...
Wie erreiche ich es...
13.08.2008 06:52:02
Thread-ID: 1001351
5 Beiträge
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
Anzeige
Tb.Blatt nach Zellwert speichern
Peter

Guten Morgen allerseits,
mir raucht als VBA Neuling der Schädel, vielleicht könnt Ihr mir helfen. Ich versuche Tabelle 2 in Abhängigkeit einer Zelle in Tabelle 1 in einem bestimmten Ordner zu speichern, wobei das speichern erst
zulässig sein darf wenn alle einzugebenen Daten vorhanden s...
28.08.2008 09:50:00
Thread-ID: 1005302
3 Beiträge
Zellwerte zählen
Markus

Hallo,
ich habe folgendes Problem:
Spalte 1 Spalte 2
Probe 1 DAD
Probe 1 DAD
Probe 1 TIC
Probe 1 XIC
Probe 2 DAD
Probe 2 DAD
Probe 2 DAD
Probe 2 TIC
Probe 2...
29.08.2008 13:45:00
Thread-ID: 1005821
4 Beiträge
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Entspricht doppeltes Hochkomma Zellwert >0?
Jesko

Hallo an alle,
wer kann mir sagen, welchem Zellwert das doppelte Hochkomma entspricht.
Hier der Zusammenhang:
In Spalte K meiner Tabelle wird ein Liefertermin genannt (Format: TT.MM.JJJJ).
In Spalte S ist der tatsächlich erreichte Liefertermin aufgeführt (Format wie oben).
I...
15.09.2008 17:51:31
Thread-ID: 1009863
6 Beiträge
Anzeige
Zellwert übertragen
chrissey

Hallo Leut,
hab ne relativ allgemeine Excelfrage. Kann man bei Klick auf eine Zelle den Zellwert auf eine andere
Zelle übertragen. Also angenommen ich habe folgenden Zellbereich:
A
1 Hans
2 Peter
3 Klaus
4 Thomas
5...
30.09.2008 08:24:00
Thread-ID: 1013243
3 Beiträge
Datum in Abhängigkeit eines Zellwertes setzten
Tom

Guten Morgen,
Ich hab hier ein aktuelles Problem das ich schnellstens lösen muss.
Meine Tabelle besteht aus den Spalten A bis Q. In Spalte P wird ein "X" eingetragen was den Datensatz in ein neues Tabellenblatt kopiert was auch super funktioniert.
Nun möchte mein Chef das wenn das "...
07.10.2008 07:37:00
Thread-ID: 1014581
6 Beiträge
Anzeige
Excel-Zellwert in Word einfügen
Alexander

Hallo zusammen,
tolles Forum.
Ich habe folgendes Problem: Ich habe ein Word-Dokument mit Formular-Felder.
Diese sollen mit Werten aus einer Excel-Tabelle gefüllt werden.
Der VBA-Code muss im Word-Dokument stehen.
ActiveDocument.FormFields("text1").Result = workbooks("Mappe1....
23.10.2008 21:31:00
Thread-ID: 1018804
6 Beiträge
Pfeilfarbe- und Bewegung abhängig von Zellwerten
Zellwerten

Hallo zusammen,
unter Online-FAQ bin ich über folgenden Code gestolpert.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub With Shapes("Autoform 1") If Range("A1").Value > Range("B1") Then .Rotation = 90# .Fill.ForeCol...
06.11.2008 20:47:00
Thread-ID: 1022428
8 Beiträge
Zeilenwerte abhängig von Zellwert
Zellwert

Hallo Excelfreunde,
wie lässt sich folgendes bewerkstelligen?
Im Zellbereich A2:A13 stehen fortlaufend die Zahlen 1 bis 12. Wenn ich nun in die Zelle A1 die Zahl 1 eingebe, soll mir in B1 der Zellwert derjenigen Zelle der Spalte B aus derjenigen Zeile, in der in Spalte A die Zahl 1 steh...
31.12.2008 15:52:08
Thread-ID: 1036162
6 Beiträge
Zeilen löschen mit Zellwert über...
Norbert

Hallo,
habe folgende Frage:
Wie schreibt man als Makro: lösche alle Zeilen deren Inhalt in Spalte K kleiner 180 ist.
Besten Dank für RüA!
27.01.2009 17:46:00
Thread-ID: 1044330
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige