Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: pepo1943 am Mai 16, 2012, 16:23:21 Nachmittag

Titel: Office 2007: Inhalte löschen über spezielle Makros
Beitrag von: pepo1943 am Mai 16, 2012, 16:23:21 Nachmittag

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

Titel: Antw:Office 2007: Inhalte löschen über spezielle Makros
Beitrag von: mumpel am Mai 16, 2012, 20:58:27 Nachmittag

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é

Titel: Office 2007: Antw:Office 2007: Inhalte löschen über spezielle Makros
Beitrag von: pepo1943 am Mai 17, 2012, 08:56:19 Vormittag

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

Titel: Antw:Office 2007: Inhalte löschen über spezielle Makros
Beitrag von: maninweb am Mai 17, 2012, 09:55:07 Vormittag

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ß

Titel: Office 2007: Antw:Office 2007: Inhalte löschen über spezielle Makros
Beitrag von: pepo1943 am Mai 17, 2012, 19:38:23 Nachmittag

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

Was mache ich nur falsch ????

Gruß
Peter