Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook_SheetChange Problem

Workbook_SheetChange Problem
15.09.2005 09:51:20
Johannes
Hallo Freunde,
ich habe bei folgenden Code ein Problem: in der aktiven Zelle wird über ein "gate to keybord" ein Messwert übertragen. Der Code trägt in die Zelle rechts davon das Datum und Zeit ein und geht eine Zelle tiefer und nach links zurück.
Manuell klappt das auch. Wenn ich aber versuche das über ein Workbook_SheetChange Ergeinis zu starten läuft der Code bis zum Abwinken, da wohl die Offset Anweisung in der letzten Zeile auch als Ereignis erkannt wird.
Hat jemand eine Idee wie ich das so ändern kann, dass der oben beschriebene Ablauf geht?
Einstweilen vielen Dank für Eure Hilfe
Gruß Johannes
Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
If ActiveCell.Row = 20 Then ActiveCell.Offset(-20, 2).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Select 'hier scheint der Fehler zu liegen ?
End Sub

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook_SheetChange Problem
15.09.2005 10:58:50
Andi
Hi,
vermute die Ursache des Problems eher in der Paste-Anweisung, aber das ist eigentlich egal.
Schalte an Anfang des Makros die Ereignisse mit
Application.EnableEvents = False
aus, und am Ende mit
Application.EnableEvents = True
wieder ein. Dann sollte es eigentlich gehen.
Schönen Gruß,
Andi
Beispieldatei
15.09.2005 12:56:52
Johannes
Hallo Freunde,
ich habe mal eine Beispieldatei hochgeladen:
https://www.herber.de/bbs/user/26594.xls
Vielen Dank an alle die sich um eine Lösung bemühen.
Gruß
Johannes
AW: Workbook_SheetChange Problem
15.09.2005 11:03:03
PeterW
Hallo Johannes,
durch die Veränderung des Blattes wird das Ereignis erneut ausgelöst. Ausschalten lassen sich die Ereignisse mit Application.EnableEvents = False (und wieder einschalten mit = True).
Den Rattenschwanz
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False

kannst du zu
ActiveCell.Offset(0, 1) = NOW()
vereinfachen.
Wenn du mal beschreibst, in welchen Bereich die Eingaben erfolgen und wohin das Datum geschrieben werden soll kann man dir einen Code anbieten.
Gruß
Peter
Anzeige
AW: Workbook_SheetChange Problem
15.09.2005 12:37:26
Johannes
Hallo Peter,
zu Beginn ist die aktive Zelle A1, der Messwert wird eingetragen und in Zelle B1 soll das Datum und Uhrzeit - aber nicht als Formel, sondern nur der Wert, damit sich der Eintrag nicht verändert.
Dann soll die aktive Zelle A2 werden und der Vorgang start erneut wenn das "gate" einen neuen Messwert sendet.
Wenn man den Code küzer bekommt ist das mit interessant. Vielen Dank für Deine Mühe.
Gruß
Johannes
AW: Workbook_SheetChange Problem
15.09.2005 12:51:53
PeterW
Hallo Johannes,
willst du den Code wirklich in allen Tabellen haben oder nur in einer bestimmten? Von letztem Fall bin ich ausgegangen, der Code gehört in das Klassenmodul der betreffenden Tabelle:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Cells(Target.Row, 2) = Now
Target.Offset(1, 0).Select
End If
End Sub

Die Zelle für die erste Eingabe muss manuell gesetzt werden, könnte man zwar auch automatisieren, ist mir aber nicht klar genug, wie sonst mit der Mappe gearbeitet wird.
Gruß
Peter
Anzeige
AW: Workbook_SheetChange Problem
15.09.2005 13:01:34
Johannes
Hallo Peter,
es ist nur eine Tabelle, der Start wird manuell auf A1 gesetzt. Die Begrenzung auf Zeile 20 in meiner Arbeitskopie ist nur zum Testen - soll wenn es läuft auf 20.000 hochgesetzt werden. Die Tabelle dient nur zum "Einsammeln der Daten". Ausgewertet werden die dann später in einer anderen Tabelle. Für die Auswertung ist aber nicht nur der Messwert entscheidend, sondern eben auch eine mögliche Veränderung über die Zeit.
Das Gate sendet nach dem Messwert ein "Enter" als Abschluss der Übertragung.
Gruß
Johannes
AW: Workbook_SheetChange Problem
15.09.2005 13:15:44
PeterW
Hallo Johannes,
bis auf die Einschränkung bis Zeile 20000 tut der Code genau das, was du möchtest. Was soll bei der 20001. Eingabe passieren, ab A1 überschreiben oder den Bereich löschen und neu beginnen?
Gruß
Peter
Anzeige
AW: Workbook_SheetChange Problem
15.09.2005 13:45:03
Johannes
Hallo Peter,
die aktive Zeile der Zelle wird abgefragt:
If ActiveCell.Row = 20 Then ActiveCell.Offset(-20, 2).Select
und über den Offset springt die aktive Zelle in C1 und das ganze geht wieder weiter ..
Manuell geht das ja auch - siehe Beispieldatei:
https://www.herber.de/bbs/user/26594.xls
Gruß
Johannes
AW: Workbook_SheetChange Problem
15.09.2005 13:51:37
PeterW
Hallo Johannes,
dann sollte das dein Problem lösen:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Cells(Target.Row, 2) = Now
If Target.Row < 20000 Then
Target.Offset(1, 0).Select
Else
Cells(1, 1).Select
End If
End If
End Sub

Gruß
Peter
Anzeige
fast
15.09.2005 14:52:39
Johannes
Hallo Peter,
fast perfekt - mit
Cells(1, 1).Select
wird wieder die Zelle A1 angesprungen und damit der schon geschriebene Inhalt überschrieben. Es sollte aber C1 und nach weiterem Durchgang E1 usw angesprungen werden, also ein Offset(-20000,2).
Wenn ich aber einen solchen offset eingebe kommt in Spalte C Zeiten untereinander im Wechsel mit 0-Werten - :-(
Hast Du vieleicht hierzu eine Lösung? Danke schonmal.
Gruß
Johannes
AW: fast
15.09.2005 14:59:12
PeterW
Hallo Johannes,
dann versuch es mal so

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
On Error GoTo ErrHand
Application.EnableEvents = False
Target.Offset(0, 1) = Now
If Target.Row < 20000 Then
Target.Offset(1, 0).Select
Else
Cells(1, Target.Column + 2).Select
End If
End If
ErrHand:
Application.EnableEvents = True
End Sub

Gruß
Peter
Anzeige
Danke
15.09.2005 15:21:05
Johannes
Hallo Peter,
das letzte End IF wurde von Excel angemeckert, nachdem ich das weggelassen habe, lief es perfekt - herzlichen Dank.
Gruß
Johannes

104 Forumthreads zu ähnlichen Themen

VBA-Problem Change-Event/UDF/Gültigkeit
Erich

Hallo zusammen,
Markus hat in https://www.herber.de/forum/archiv/1012to1016/t1013729.htm ein IMHO interessantes Problem gepostet.
Da der Thread jetzt bald ins Archiv wandert, wir aber noch keine Erklärung gefunden haben,
stelle ich die Frage hier nochmal ein.
In der Beispielmapp...
05.10.2008 11:52:00
Thread-ID: 1014215
2 Beiträge
Anzeige
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
VBA calculate/change event
Frank

Guten Tag allerseits,
ich hoffe es ist jemand so nett, sich meiner anzunehmen und unterstützt mich bei der Lösung folgenden Problems:
Ich möchte ein Excel-Diagramm (2003) dynamisch über veränderbare Werte aus bestimmten Zellen skalieren. Es handelt sich um ein Diagramm mit jeweils primä...
09.04.2009 16:07:47
Thread-ID: 1068059
7 Beiträge
Anzeige
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
Workbook SheetChange Änderung
amintire

Hallo, hat evtl jemand eine Lösung für mich diesen Code umzubauen. Momentan funktioniert der so dass alle Mappen in der Datei mit dem Format ausgelöst werden. Es müsste allerdings ausgesuchte Tabellen sein.
Also z.B. Tabelle 1 und 3 und 8 wird mit dem Code formatiert... alle anderen Tabelle...
22.09.2009 22:02:43
Thread-ID: 1104755
4 Beiträge
x1 = .CreateEventProc("Change", "Worksheet")
Oliver

Hallo Kollegen,
ich habe ein Problem bei der .CreateEventProc("Change", "Worksheet")
Mein Code sieht wie folgt aus
Sub Makro_in_Worksheet_zufügen() Dim x As Variant, x1 As Long, x2 As Long, Anzahl_der_Zeilen As Long, Tabellennummer As _ String DIM Tabellenname As String Applicati...
05.10.2009 20:46:33
Thread-ID: 1107220
3 Beiträge
Rückgängig Button nach Worksheet_Change
Chris

Hi,
habe in einem Sheet u.a. ein Worksheet_Change Makro laufen, das bestimmte Werte in bestimmte Zeilen kopiert.
Nachdem ich in dem Sheet ein paar Eingaben gemacht habe, kann ich leider den Rückgängig Button nicht benutzen. Das rührt wohl daher, dass nach einer jeglichen Eingabe das Mak...
21.01.2010 11:27:29
Thread-ID: 1131701
9 Beiträge
Worksheet_Change Problem, wenn Target gelöscht wir
Gianni

Guten Abend
Habe folgendes Problem, bei dem ich nicht weiterkomme. Der untenstehende Code füllt bei Eingabe einer positiven Zahl das Datum in die rechte Nachbarzelle und löscht diese, wenn in eine Targetzelle eine Null eingegeben wird. Nun könnte der Anwender eine Fehleingabe machen und die...
17.03.2010 17:49:27
Thread-ID: 1146683
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
4
6
3
7
3
2
8
6
10
4
1
2
2
3
2
5
7
1
1
10
2
5
5