Office 2007: Inhalte löschen über spezielle Makros

[pepo1943]

Hallo Freunde,
ich habe wieder einmal ein Problem:
In der hochgeladenen Musterdatei funktionieren die Makros entsprechend der Beschreibung, aber leider nur bis zur Markierung der Zellen. Das noch gewünschte Löschen brungt der Debrugger. Wenn ich die Zeile "Selection.ClearContents" ausblende funktioniert alles ?!

Bitte um Hilfe !!!

Lieb Grüße

Peter

[mumpel]

Hallo!

1. Richtig: Target.Value. Da "Target" bereits eine Zelle ist, ist "Cells" hier falsch.
2. Select ist überflüssig. Besser Range("A1:A25").ClearContents

Gruß,René

[pepo1943]

Hallo René ,
danke für die Antwort, habe die Änderungen durchgeführt, aber leider nicht das gewünschte Ergebnis ereicht.
In Tab1 werden die Zellen gelöscht, aber es kommt der Debrugger mit Meldung "Typen unverträglich (13)"
   Außerdem komt diese Meldung auch wenn man den Wert vin A1 auf A2:A25 zieht
In Tab2 funktioniert alles!
In Tab3 ist die gleiche Erscheinung wie in Tab1, aber zusätzlich auch noch beim rechten Teil (Fehlermeldung bei Anklicksen   
   und  kopieren
Vielen Dank
Beste Grüße
Peter

[maninweb]

Hallo pepo1943...

Du musst auch zusätzlch folgende Dinge beachten, damit es funktioniert:

• Einmal abfangen, ob es sich um die Zelle handelt, wo die Eingabe gemacht wurde.
• Einmal die Ereignisbehandlung abschalten, denn das Löschen der Inhalte der anderen Zellen
  löst wieder das Ereignis Worksheet_Change(). Dann ist Target ein Bereich und die Abfrage nach
  dem Wert kann nicht funktionieren.
• Einmal nach dem Löschen des Inhaltes die Ereignisbehandlung wieder einschalten.

Code: Visual Basic

1. Private Sub Worksheet_Change(ByVal Target As Range)
2.  
3.   If Not Target.Address <> "$C$6" Then
4.    
5.     If Not Target.Value <> "9999" Then
6.    
7.       Application.EnableEvents = False
8.      
9.       Range("A1:A25").ClearContents
10.      
11.       Application.EnableEvents = True
12.    
13.     End If
14.    
15.   End If
16.  
17. End Sub
18.  

Gruß

[pepo1943]

Hallo,
habe die letzten Informationen eingesetzt, aber leider....es funktioniert nicht.

Was mache ich nur falsch ?

Gruß
Peter