Schwierige Denkaufgabe Macro Hilfestellung
20.05.2005 16:01:31
Stefan
hab eine Tabelle erstellt siehe da:
Die Datei https://www.herber.de/bbs/user/23017.xls wurde aus Datenschutzgründen gelöscht
Ich hätte gern das es mir in der Spalte A ein Kreuz automatich erstellt sobald ich den Namen in B6 eingebe. Das Kreuz heist verliehen. Wenn die Maschine wieder zurückkommt, dann will ich das kreuz entfernen und es wird dann das Datum von der Rüchgabe =heute() in H6 eingegeben bzw. copiert.
Lässt sich das machen.
mfg stefan
Das Macro
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("$B$1").Select
Selection.Copy
Cells(Target.Row, Target.Column + 4).Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells(Target.Row + 1, Target.Column).Select
End If
End Sub