Office: interessantes Verknüpfungsproblem mit VBA

Hallo Leute,

So....

anbei die Tabelle um das ganze zu erklären.

ich möchte, wenn jemand bei Feld B10 etwas eingibt, das ein Makro die Information "Status A"(aus Feld B9) in das Feld H10 und das aktuelle Datum in das
Feld G10 überträgt, (wobei das Datum und das "Status A"als Wert, nicht als heute()-Formel eingtragen werden sollte).

Wenn jetzt 2 Tage später jemand das "1" aus Feld B10 löscht und in D10 eingibt, dann soll das Feld C4 (welches dann der 23.8 wäre) in das Feld I10 und die Information "Status C" in das Feld J10 eingetragen werden.

Und beim nächsten Ändern in die Spalte rechts daneben.

ich möchte halt wissen, wann etwas wohin geändert wurde, sozusagen einen zeitlichen Horizont, das ich am Ende sehen kann, wann etwas wohin geändert wurde.

Danke und Grüße

 

Hallo!

Teste mal sowas:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B10:D14")) Is Nothing And Target <> "" Then
Dim Letzte As Integer
Letzte = IIf(Cells(Target.Row, 7) = "", 6, Cells(Target.Row, Columns.Count).End(xlToLeft).Column)
Cells(Target.Row, Letzte + 1) = Range("C4")
Cells(Target.Row, Letzte + 2) = Cells(9, Target.Column)
End If
End Sub

 

Sorry......

paßt supi...


besten Dank, stell dir vor das ich dir gerade einen ausgebe^^

Grüße..

 

So, klappt jetzt alles, nur ein kleines Problem:

Das aktuelle Makro lautet:
------------------------------------------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("S7:X45")) Is Nothing And Target <> "" Then
Dim Letzte As Integer

Letzte = IIf(Cells(Target.Row + 993, 60) = "", 59, Cells(Target.Row + 993, Columns.Count).End(xlToLeft).Column)
Cells(Target.Row + 993, Letzte + 1) = Range("W3")
Cells(Target.Row + 993, Letzte + 2) = Cells(6, Target.Column)

End If

If Not Intersect(Target, Range("K7:K45")) Is Nothing And Target <> "" Then
Dim Letztes As Integer



Letztes = IIf(Cells(Target.Row + 1993, 60) = "", 59, Cells(Target.Row + 1993, Columns.Count).End(xlToLeft).Column)
Cells(Target.Row + 1993, Letztes + 1) = Range("W3")
Cells(Target.Row + 1993, Letztes + 2) = Cells(Target.Row, 11)


End If


End Sub

-------------------------------------------------------------------------------------



Wenn ich jetzt zb. in C11-C20 etwas eingebe und dann alles auswähle und löschen möchte, buggt das makro und ich weiß nicht warum...

was gefällt ihm hieran nicht? ich komm nicht drauf

Irgendwas an dieser zeile mißfällt ihm

""If Not Intersect(Target, Range("S7:X45")) Is Nothing And Target <> "" Then""

Wie kann ich das ablösen?

danke....

 

Hallo!

Wahrscheinlich stört ihn, dass mehrere Zellen ausgewählt sind.
Pack doch noch eine Abfrage außen rum:

Code:

If Target.Count = 1 Then

Vielleicht hilft's...

 

Danke....

paßt...