Ereignisüberwachung Markierugsfehler
#1
Guten Abend ihr fleissigen Helfer
Wenn ich bei den Generationen in Zeile 10 einen Wert ändere, 
wird in der Tabelle rechts de rEintrag nicht markiert.
Alles andere scheint zu funktionieren.
Was läuft hier falsch. Bitte um Hilfe.
Mit dankbaren Grüssen
Martin


Angehängte Dateien
.xlsm   1 Markierungsfehler Test.xlsm (Größe: 231,48 KB / Downloads: 16)
Antworten Top
#2
Hallo Martin,

das ist mal eine Fehlerbeschreibung mit der man nichts anfangen kann! Was willst Du machen und was soll passieren?
[Bild: attachment-190.gif]
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Antworten Top
#3
e
Guten Abend Günter,
Hier eine etwas genauere Erklärung:
Ich  habe in  einer Tabelle 2 Bereiche. Im linken Teil werden Änderungen vorgenommen und im rechten Teil
automatsch korrigiert und die Änderung markiert.
Wenn ich im Bereich links in Zelle "H11" einen Wert ändere, so sollte im Bereich rechts sich die Zelle "BE11"
(blau markiert) ebenfalls ändern und die Ändeung farblich markiert werden (Farbcode 40), was aber nicht funktioniert.
Der Fehler existiert nur in dieser Zelle ("BE11"). Alle anderen Zellen funktionieren einwandfrei.
Gruss Martin
Antworten Top
#4
Hallo Namensvetter,
dein Problem liegt an der Berechnung der letzten Zeile und der Leerzelle über H11. Checke mal den Wert von Range("H7").End(xlDown).Row.
Mit
Set Bereich = Intersect(Target, Range("H7:H" & Cells(Rows.Count, 8).End(xlUp).Row))
für die besonders behandelte Spalte H (warum eigentlich?) klappt es besser.
Gruß der ALteDresdner (bürgerlich Martin)
Antworten Top
#5
Wenn ich das richtig verstehe kannst du diese >900 Zeilen Code ersetzen von diese 6

Code:
Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count = 1 And Not Intersect(Target, Cells(6, 7).CurrentRegion.Offset(2, 6).Resize(, 21)) Is Nothing Then
    With Target.Offset(, 49)
      .Value = Target
      .Interior.ColorIndex = 7
    End With
  End If
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#6
Hallo Martin, Alter Dresdner
Danke für Deine Hilfe. Das war wie immer 28 herzlichen  98 .
Da sich die Zeilenzahl in den Spalten immer ändern, wollte ich
das ganze ein wenig modifizieren und da ist der Fehler aufgetreten.
Bin nun am anpassen der restlichen Spalten und hoffe,
es funktioniert auch da.
Nochmals herzlichen Dank für Deine Hilfe.
Gruss Martin

Hallo snb
  98   für den Code, werde versuchen ihn einzubauen.
Hoffe, ich kriege das hin.
Wünsche noch ein schöner Abend.
Gruss Martin
Antworten Top
#7
@Luna

Nur erzetzen; nicht 'ein'bauen.

- die ganze heutige worksheet_change Ereignis löschen
- meinen Code kopiieren ins Codemodul.
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#8
Hallo snb
danke für Deine Hilfe. Werde das Morgen mal testen
und versuchen, das ganze zu verstehen.
HuhHuhHuhHuhHuh
Wünsche noch eine gute Nacht.
Mit freundlichen Grüssen
Martin
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste