Office: Dringend Hilfe für VBA gesucht

Halli Hallo,
habe ein kleines prob:
Was ich bisher fabriziert habe:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim S
If Intersect(Target, Range("A4:Z500")) _
Is Nothing Then Exit Sub
Application.EnableEvents = False
S = ActiveCell.Column
On Error GoTo ERRORHANDLER
Target.Offset(0, 27 - S).Value = Date
Application.EnableEvents = True
ERRORHANDLER:
End Sub

Ziel is klar: Wenn ich irgendeine Zelle verändere, soll in einer bestimmten Spalte (abhängig der geänderten Zeile) das Änderungsdatum angegeben werden.
Funktioniert auch alles super, bis ich versucht habe, 2 oder x Zellen zu kopieren, dann nämlich zeigt er mir das Änderungsdatum gleich x mal an...
Wo hab ich da noch einen Fehler?
Für Hilfe echt dankbar
Liebe Grüße

Spaicima

 

Hallo!

Du kannst mit Target.Count auch die Anzahl der markierten Zellen abfragen, also z.B.

If Target.Count > 1 Then GoTo ERRORHANDLER

 

Danke für die rasche Antwort...
Hm,
es soll ja schon möglich bleiben mehrere Zellen zu kopieren...aber das änderungsdatum soll nur einmal eingefügt werden!

 

Hallo!

Der Code reagiert auf alle Zellen, die geändert werden.
Wenn er nur auf die erste Zelle reagieren soll, dann vielleicht

Target.Cells(1).Offset(0, 27 - S).Value = Date

 

Wowi :lol: *mich verbeug* :!:
funzt super!! Vielen Dank!
nur ein zweites is mir gerade noch aufgefallen...dass er - manchmal - in eine falsche spalte springt...ich weiß nicht, bei was genau...
dass also irgendwas mit der zeile

Code:

Target.Cells(1).Offset(0, 27 - S).Value = Date

nicht stimmt, so dass er in einzelfällen eben nicht die spalte 27 nimmt...
wüsstest du da vielleicht auch was?
*selbst auch fleißig am tüfteln is*

 

Hallo!

Vielleicht musst du auch S neu definieren?
S = Target.Cells(1).Column
Ist aber nur geraten; so dolle sind meine VBA-Kenntnisse leider auch nicht.

 

Ich glaub, dass is es nicht...
das ding is ja, dass es echt nur in einzelfällen passiert-...es kann 1000000 gut gehn aber beim 1000001 mal gehts schief...warum auch immer....^^
ich glaub, ich müsste rausfinden, WANN es schief geht...
mit s hat das aber glaub ich weniger was zu tun...
aber bisher hast du mir echt sehr geholfen....auch mit deinem wenigen kenntnissen (die meine offensichtlich doch übersteigen^^)

 

Hmmm... Vielleicht doch...

S ist ja die Spalten-Nummer der "aktiven" Zelle. Bei einem markierten Bereich ist die "aktive" Zelle aber an durchaus unterschiedlichen Orten, auch bei gleichem Bereich. Das hängt einfach davon ab, wo man z.B. mit der Maus aufsetzt und den Bereich zieht.

Meistens wird man den Bereich wahrscheinlich von links oben nach rechts unten markieren. Dann ist die "aktive" Zelle auch links oben in dem Bereich. Aber wenn Du den Bereich von rechts oben nach links unten markierst...

Eventuell möchtest Du S nicht als Spalte der "aktiven" Zelle, sondern als linke Spalte des "markierten" Bereichs definieren...

Gruß, Michael

 

Hallo,
danke für die hilfestellung! @miriki leider hat diese lösung (noch) nicht funktioniert...

habe es jetzt noch mal ganz anders versucht:

Code:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim R, C, P
    If Intersect(Target, Range("A4:Z500")) _
    Is Nothing Then Exit Sub
    Application.EnableEvents = False
        R = Target.Rows.Count
        P = ActiveCell.Row - 1
      For C = 1 To R
    P = P + 1
    On Error GoTo ERRORHANDLER
    Cells(P, 27).Value = Date
    Next
    Application.EnableEvents = True
ERRORHANDLER:
    End Sub

womit die ersten probleme gelöst wären...
allerdings is nu plötzlich ein neues thema aufgetaucht!
wenn ich jetzt eine zelleingabe in zeile x abschließe, indem ich den cursor in eine andere zelle y setzte, ändert sich nur das datum für zelle y...dabei is doch x die, wo tatsächlich was geändert wurde.... hab ich mich zu kompliziert ausgedrückt???