Ereignis zeitweise mit Fehler

Hallo Erich,
vielen Dank für Deine Nachricht. Ich bewundere Deine Geduld.
Leider führt Deine Programmierung zu einer Fehlermeldung (Debugging) im Abschnitt:
Set rng = Columns(2).Find(What:=Cells(Target.Row, 2), _
After:=Cells(Target.Row, 2), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Kannst Du vielleicht doch noch einmal schauen, ob sich bei meiner Programmierung (siehe unten) nicht eine Sache verbessern läßt?
Bei Eingabe in Spalte H oder J funktionieren bei der unteren Prozedur alle Ziffern 1 bis 9. Dann ist alles in Ordnung. Es gibt nur ein Problem mit der 0. Wenn ich aber statt 0 eingebe 0,1 , dann funktioniert auch die Sache mit der 0 einwandfrei (angezeigt wird die Ganzzahl 0 in den Spalten H,J,L,N).
Ich bräuchte in der Ereignisprozedur nur 0.1 an die in Spalte H oder J eingegebene Zahl anhängen. Dann funktioniert die Sache auch mit der 0.
Allerdings gibt es eine Fehlermeldung (Debugging), wenn ich z.B. für eine Änderung die Zahleneingabe in Spalte H oder J wieder lösche.
Frage:
Kann man die untere Prozedur etwas umgestalten, dass die Fehlermeldung (Debugging) nicht auftritt, wenn ich die Zahleneingabe in Spalte H oder J ändere/lösche?


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Worksheets("Auswertung").Unprotect
If Target.Address = "$H$2:$H$307" Then
Dim H As Variant
End If
For Each H In Range("L2:L307")
If H.Offset(0, -4)  H.Value Then
H.Offset(0, -4) = H.Value + 0.1
End If
Next
If Target.Address = "$J$2:$J$307" Then
Dim N As Variant
End If
For Each N In Range("N2:N307")
If N.Offset(0, -4)  N.Value Then
N.Offset(0, -4) = N.Value + 0.1
End If
Next
End Sub

Das Filterproblem konnte ich lösen. Ich habe in der Spalte K mit dem "Autofilter" über "benutzerdefiniert" den Filter auf kleiner als 154 gesetzt. Dann werden die Datensätze richtig gefiltert.
Erich, ich denke, wir sollten den Thread beenden, wenn Du meinst, dass die o.g. Änderung in meiner Programmierung nicht machbar ist ohne eine Fehlermeldung (Anhängen des Wertes 0,1).
Ich danke Dir für Deine Geduld und Ausdauer!
Schönen Gruß
Burghard

Hallo Björn,
vielen Dank für die guten Wünsche. Ich hoffe, auch Du hast den Jahresübergang gut überstanden.
Auch Dir ein gutes Jahr 2008!
Zu meinem Problem:
Leider löst Dein Programmiervorschlag die Sache nicht (siehe auch Hinweis von Erich). Schade.
Könnte es sein, dass meine Excel-Version "(Excel-Version) evtl. anders "denkt" als Deine"
Beschreibung:
Wenn ich in das Tabellenblatt "Auswertung" die nachstehende Prozedur einfüge, funktioniert die Sache komplett , allerdings nur mit den Ziffern 1 bis 9.


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$H$2:$H$307" Then
Dim H As Variant
End If
For Each H In Range("L2:L307")
If H.Offset(0, -4)  H.Value Then
H.Offset(0, -4) = H.Value
End If
Next
If Target.Address = "$J$2:$J$307" Then
Dim N As Variant
End If
For Each N In Range("N2:N307")
If N.Offset(0, -4)  N.Value Then
N.Offset(0, -4) = N.Value
End If
Next
End Sub

Beispiel:
Gebe ich in H 14 die 2 ein, dann erscheint in H31 und L14 und L31 auch die 2.
Gebe ich in J 14 die 1 ein, dann erscheint in J31 und L31 und N31 auch die 2.
Alles wie gewünscht.
Wenn ich die 2 und die 1 mit einer 0 überschreiben, geht auch alles.
Lösche ich aber in H14 und in J14 die Zahlen und trage danach eine 0 in H14 und in J14 ein, dann erscheint weder in H31 noch in J31 die 0.
Wenn ich aber nach der Löschung der Zahlen in H14 und J14 anschließend in H14 und in J14 den Wert 0,1 eintrage, läuft alles wieder. Irgendwie hat Excel ein Problem mit der Zahl, dem Wert 0.
Idee:
Kann ich zu dem Wert der eingetragen wird, automatisch 0,1 addieren? Dann würde alles laufen. Angezeigt wird nur der Ganzwert. Das reicht mir.
Ich habe einmal die Programmierung geändert. Das führt aber bei einer zweiten Veränderung der Zelle (Löschen, Anklicken) zu einer Fehlermeldung. Könnte man die umgehen?
Beispiel für eine gedachte Änderung:


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$H$2:$H$307" Then
Dim H As Variant
End If
For Each H In Range("L2:L307")
If H.Offset(0, -4)  H.Value Then
H.Offset(0, -4) = H.Value + 0.1
End If
Next
If Target.Address = "$J$2:$J$307" Then
Dim N As Variant
End If
For Each N In Range("N2:N307")
If N.Offset(0, -4)  N.Value Then
N.Offset(0, -4) = N.Value + 0.1
End If
Next
End Sub

Ich hoffe, ich nerve Dich nicht zu sehr.
Die Sache mit dem Filtern oder Ausblenden, muss ich mir noch einmal gründlich anschauen. Vielen Dank für Deine Vorschläge.
Wenn die Änderung der o.g. Prozedur (addieren von 0,1 ohne Fehlermeldung nicht geht) sollte man m.E. den Thread beenden.
Vielen Dank für alle Deine Bemühungen!
Schönen Gruß
Burghard

Forumthread: Ereignis zeitweise mit Fehler

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Ereignis zeitweise mit Fehler

Forumthread: Ereignis zeitweise mit Fehler

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread