Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet_Change Problem

Worksheet_Change Problem
01.10.2007 22: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
Anzeige
AW: Worksheet_Change Problem
01.10.2007 22:16:00
Piet
Hi,
lass mal den Code im Change-Ereignis sehen.
mfg Piet

AW: Worksheet_Change Problem
01.10.2007 22: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
01.10.2007 22:29:00
Piet
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

Anzeige
vielen dank!!
01.10.2007 22:33:08
fukerider
Hi Piet,
klappt super, vielen Dank!
(wieder etwas gelernt)
Klaus

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige