Office: Genaue Spaltenangabe anstatt Target.Offset

Hallo Community,

ich der VBA-Newbie brauch eure Hilfe!

Und zwar möchte ich einen Zeitstempel in einer Tabelle einfügen.

Wenn bei einem Datensatz in einer Zeile eine Veränderung vorgenommen wurde, soll er sich Windows-User, Datum und Uhrzeit notieren.

Das macht mein Code auch schon ganz super, nur kann ich ja mit Target.Offset keine feste Spalte (T) angeben, wo er diesen Zeitstempel immer reinkopieren soll.

Was muss ich anstatt dessen angeben?

Vielen Dank vorab und schöne Grüße

moonr


Code:

:)

 

Hallo moonr,

mein Vorschlag:
Code:

Gruß
Aloys

 

Ach klasse - vielen Dank aloys78!!

Hat super funktioniert und ist auch eigentlich ganz logisch *Smilie

Aber ich dachte immer bei Range muss man bei Angabe der Spalte und Zeile ein Komma setzen aber "&" kannte ich in dem Zusammenhang gar nicht. Was bewirkt das denn?

 

Hi,
oder auch so...
Code:

Gruß Steffen

 

Hallo moonr,

& steht hier als kaufmännisches Und für die Verknüpfungen von Ausdrücken.

Betrachten wir beispielsweise die Zelle T2, also Spalte T und Zeile 2.

Mit VBA kann man diese Zelle zB mit Range("T2") adressieren.
Ist die Zeilen# keine Konstante, sondern ergibt sie aus einer Variablen wie zB Target
dann erfordert die Syntax folgende Schreibweise :
Range("T" & Target.Row) für die Verknüpfung von Konstante und Variable.

Alternativ könnte man dafür auch Cells(Target.Row,"T") oder Cells(Target.Row, 20) nutzen.

Gruß
Aloys

 

Hallo,

die letzten Schritte halfen mir echt weiter.Leider bekomme ich eine Fehlermeldung, wenn ich ganze Zeilen / Spalten oder mehrere Zellen mit Entf. lösche.

Ich benötige eine Ausgabe des Anderungsdatums pro Zeile. Also wenn in Zeile A3 bis E3 eine Änderung erfolgt, dann soll in Zelle F3 das Datum erscheinen. Und so für alle Zeilen bis Zeile 100 der Spalte A bis E. Das Löschen von mehreren Zellen soll möglich sein (da erhielt ich bis jetzt immer die Laufzeitfehlermeldung 13). Nach dem Löschen der Zelle/Zellen soll in der jeweiligen Zeile in der Spalte F das Datum entfernt werden. In den jeweiligen Zeilen stehen unterschiedliche Werte. Wenn in einer Zeile ein Wert geändert wird soll das Datum neu erscheinen, Wenn ein Wert gelöscht wird, darf das Datum nicht entfernt werden. Datum darf erst entfernt werden, wenn komplette Zeile gelöscht / Entf. wurde.


Ich weiß, das ist viel. Ich hoffe dennoch, dass mir jemand helfen kann.

Hier mein bisheriger Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("a1:e100"), Target) Is Nothing Then Exit Sub
If Target.Value = "" Then
Cells(Target.Row, 6).Value = ""
Else
Cells(Target.Row, 6).Value = Date
End If
End Sub

 

Hallo Jack,

probier mal:
Code:

Im übrigen empfehle ich Dir, zukünftig für eine neues Problem ein eigenes Thema zu öffnen.

Gruß
Aloys

 

Hey, vielen Dank für die schnelle Antwort. Funktioniert schon prima. Nur wenn ich mehrere Zellen markiere und Entf. drücke, wird nur das Datum der Zeile gelöscht, in welcher sich der Anfangspunkt der Markierung befindet.

 

Hallo Jack,

Ich vermute mal, Du markierst über mehrere Zeilen hinweg.
Bisher war immer nur von Löschen innerhalb einer Zeile die Rede.

Gruß
Aloys

 

Ja genau. Manchmal werden auch zwei und mehr Zeilen markiert.

 

Hallo Jack,

anbei der geänderte Code. Er deckt folgende Fälle ab:
- der Inhalt einer einzelnen Zelle im Bereich A:E wurde geändert bzw gelöscht,
- mehrere Zellen, ggf auch über Zeilen hinweg, wurden ausgewählt und ihr Inhalt gelöscht.

Gruß
Aloys
Code:

 

Vielen Dank. Probiere es morgen gleich aus. Danke!

 

Bekomme leider immer bei Zeile 12 eine Fehlermeldung.

 

Hallo Jack,

welche Zeile ist das (im Code markieren) ?
wie lautet die Fehlermeldung ?
Was hast Du konkret machen wollen ?

Am besten wäre es, den Fehler an einer Beispieldatei zu veranschaulichen.

Gruß
Aloys

 

hey, der Fehler war diesmal ich. Jetzt geht es! Nochmal, vielen vielen Dank für alles!!