Auswahl erkennen und ausfüllen
02.02.2008 14:52:00
Axel
auch auf die Gefahr hin das ich euch mal wieder mit einer für euch belanglosen Frage nerve, so muss ich doch mal wieder eure gute Hilfe für VBA in Anspruch nehmen :)
Ich möchte wenn ich mehrere Zellen in Spalte 'C' markiere per Knopfdruck das aktuelle Datum als Zahlenwert in diese Auswahl eintragen lassen. Dazu habe ich in Zelle 'A1' '=HEUTE()' eingetragen und lasse nur den Wert kopieren. Außerdem habe ich eine Abfrage eingebaut, ob man sich auch wirklich in Spalte 'C' befindet, denn nur dort darf das Datum eingefügt werden.
Mit einer markierten Zelle klappt es mit meinem Script soweit gut, jedoch sollen wenn ich mit mehrere Zellen untereinander markiere (immer nur mit Shift, also immer ohne Unterbrechung), alle diese markierten Zellen auch mit dem Datum versehen werden.
so siehts bis jetzt aus:
Sub Datum()
If ActiveCell.Column = 3 Then
Application.ScreenUpdating = False
merkdir = ActiveCell.Address
Range("A1").Select
Selection.Copy
Range(merkdir).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
Else
End If
End Sub
Gruß
Axel