Microsoft Excel

Herbers Excel/VBA-Archiv

Worksheet_Change Problem

Betrifft: Worksheet_Change Problem von: fukerider
Geschrieben am: 01.10.2007 22:12:16

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

  

Betrifft: AW: Worksheet_Change Problem von: Piet
Geschrieben am: 01.10.2007 22:16:16

Hi,

lass mal den Code im Change-Ereignis sehen.

mfg Piet


  

Betrifft: AW: Worksheet_Change Problem von: fukerider
Geschrieben am: 01.10.2007 22:21:08

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




  

Betrifft: AW: Worksheet_Change Problem von: Piet
Geschrieben am: 01.10.2007 22:29:28

Hi

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


  

Betrifft: vielen dank!! von: fukerider
Geschrieben am: 01.10.2007 22:33:08

Hi Piet,

klappt super, vielen Dank!
(wieder etwas gelernt)

Klaus


 

Beiträge aus den Excel-Beispielen zum Thema "Worksheet_Change Problem"