Thema Datum  Von Nutzer Rating
Antwort
16.02.2016 13:49:15 Thomas
Solved
16.02.2016 19:00:14 Gast12339
Solved
17.02.2016 08:57:24 Gast99644
Solved
17.02.2016 09:51:17 Gast50070
Solved
Rot Ergänzung
 17.02.2016 10:13:35 Gast10760
Solved
17.02.2016 10:38:49 Thomas
Solved
17.02.2016 11:40:30 Gast17344
Solved
17.02.2016 12:07:09 Thomas
Solved
17.02.2016 18:26:04 Gast17344
Solved
18.02.2016 09:33:41 Thomas
Solved

Ansicht des Beitrags:
Von:
Gast10760		 Datum:
17.02.2016 10:13:35		 Views:
1787		 Rating:
     
Antwort:
 Nein
Thema:
Ergänzung

Eigentlich läuft dein erster Code mit den Ereignis(sen) ganz gut.
Aber bei je einer Ereignisprozedur in jeder Klasse eines Tabellenblattes
produzierst du eine Kettenreaktion und ich vermute hier die Ursache für
die Fehlfunktion beim "Letze Zeile" finden.

Beispiel der ersten Prozedur

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
'das ist eine Prozedur auf Grund eines Ereignisses der Klasse Tabelle1
 
'Variable für Zeile definieren
Dim Zeile As Long
 
'Target braucht keine Definition - wird ja vom Ereignis geliefert!
 
'Prüfung - ob das Ereignis zutreffend, denn die Prozedur wird immer angestoßen
Set Target = Intersect(Target, Range("A1:A1000"))
 
'Treffer??
If Target Is Nothing Then Exit Sub
 
'Prüfung zutreffend (If Target = ... then ... ist schlechter Stil!)
'Prüfe auf Text, da nehm ich .Formula
If Target.Formula <> "Verschieben" Then Exit Sub
 
'Zeile festlegen
Zeile = Target.Row
'Zeilenbereich definieren
 
'kopieren
 
'*********************************************************************
'Falle Nr. 1 - steht in der Zieltabelle auch eine Ereignisklasse, dann
'wird die ebenfalls aktiviert
'*********************************************************************
 
'Ereignisse ausschalten
Application.EnableEvents = False
 
Range(Cells(Zeile, 2), Cells(Zeile, 50)).Copy _
Destination:=Sheets("Laufende Bewerbungen").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
 
'Ereignisse einschalten
Application.EnableEvents = True
 
'Zeile = Target.Row unnötig. da unverändert
'löschen
Range(Cells(Zeile, 2), Cells(Zeile, 50)).ClearContents
 
'*********************************************************************
'Falle Nr. 2 - das Löschen einer Zelle im aktuellen Tabellenblatt
'aktiviert auch diese / seine Ereignisklasse erneut!
'was zwar hier nicht schadet aber unnötig
'*********************************************************************
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.02.2016 13:49:15 Thomas
Solved
16.02.2016 19:00:14 Gast12339
Solved
17.02.2016 08:57:24 Gast99644
Solved
17.02.2016 09:51:17 Gast50070
Solved
Rot Ergänzung
 17.02.2016 10:13:35 Gast10760
Solved
17.02.2016 10:38:49 Thomas
Solved
17.02.2016 11:40:30 Gast17344
Solved
17.02.2016 12:07:09 Thomas
Solved
17.02.2016 18:26:04 Gast17344
Solved
18.02.2016 09:33:41 Thomas
Solved