PDA

Vollständige Version anzeigen : Bei Wertänderung Bereich löschen


Pit987
04.07.2015, 07:41
Hallo Forum!
WIN 7 Ultimate 64-Bit
OFFICE 2007
jeweils alle Updates

In meiner Tabelle will ich Folgendes erreichen;
wird der Wert der Zelle T8 auf dem aktiven Sheet geändert, soll der Bereich N8:N24 auf dem gleichen Sheet gelöscht werden.

Die Lösung sah ganz einfach aus. Schreibe ein Makro zum Löschen, überwache die Zelle und rufe bei Bedarf das Makro auf.

Leider funktioniert das nicht. Kann mir jemand zeigen, was ich falsch gemacht habe?

Die Beispieldatei ist eine XLSM.


Vielen Dank für Eure Bemühungen
Pit

Beverly
04.07.2015, 08:11
Hi Pit,

das Worksheet_Change-Ereignis gehört in das Codemodul des Tabellenblattes und nicht in ein allgemeines Modul.

Übrigens fehlt das Makro Bereich_leeren in deiner Mappe.

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

Pit987
04.07.2015, 08:57
Hallo Beverly!
Dein Hinweis "das Worksheet_Change-Ereignis gehört in das Codemodul des Tabellenblattes" bedeutet, dass ich den Code für jedes Sheet extra einfügen muss?
Wie das Makro zu dem anderen Namen kam, ist mir nicht klar. Aber die Änderung des Namens half auch, dieses Problem zu lösen.

Vielen Dank
Pit

Beverly
04.07.2015, 09:11
Hi Pit,

wenn du den Code in JEDEM Tabellenblatt ausführen willst, kannst du ihn in etwas abgewandelter Form ins Codemodul DieseArbeitsmappe schreiben und musst ihn nicht ins Codemodul jedes Tabellenblattes eintragen:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Set Target = Intersect(Target, Range("T8"))
If Target Is Nothing Then
Exit Sub
Else
Range("N8:N24").ClearContents
End If
End Sub


<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

Pit987
05.07.2015, 02:04
Hallo Beverly!
Ja, Du hast mich mit Deinem Hinweis auf "JEDEM" überzeugt.
Woher weiß ich, um welche Sheets später mal die Datei erweitert wird.

Vielen Dank für Deine Hilfe.

Einen schönen Tag noch
Pit