Worksheet_Change Problem

Forumthread: Worksheet_Change Problem
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Worksheet_Change Problem

02.10.2007 00:12:00

fukerider

Hallo Forum,
ich möchte über das Worksheet_Calculate(!) Ereignis bei einer Änderung
im Bereich G6:G35 in der gleichen Zeile aber drei Spalten nach links
das aktuelle Datum eingetragen haben. Das Change_Ereignis ist leider schon belegt
Für Antworten Dank im voraus
Klaus

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Worksheet_Change Problem

02.10.2007 00:16:00

Piet
AW: Worksheet_Change Problem

02.10.2007 00:21:08

fukerider
AW: Worksheet_Change Problem

02.10.2007 00:29:00

Piet
vielen dank!!

02.10.2007 00:33:08

fukerider

AW: Worksheet_Change Problem

02.10.2007 00:16:00

Piet

Hi,
lass mal den Code im Change-Ereignis sehen.
mfg Piet

AW: Worksheet_Change Problem

02.10.2007 00:21:08

fukerider

Hallo Piet:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column  6 Then Exit Sub
Range("F6:M35").Sort Key1:=Range("F6"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub

AW: Worksheet_Change Problem

02.10.2007 00:29:00

Piet


Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 6
[F6:M35].Sort Key1:=[F6], Order1:=xlAscending, Header:=xlGuess
Case 7
If Not Intersect(Target, [G6:G35]) Is Nothing Then
If Target.Count = 1 Then Target.Offset(0, -3) = Date
End If
End Select
End Sub

mfg Piet