Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ereignismakro

Forumthread: Ereignismakro

Ereignismakro
Claudia
Liebe Spezialisten,
an dem folgenden Problem verzweifele ich:
wenn in einem Tabellenblatt der Bereich B2:b51 inhaltlich geändert wird, dann sollen die Inhalte im Bereich E2:E51 und J2:J51 gelöscht werden.
Wie kann man das denn hinkriegen?
Vielen Dank für Eure Hilfe
Gruß und Danke
Claudia
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
If Not Intersect(Target, [B2:B51]) Is Nothing Then
23.06.2009 15:54:52
NoNet
Hallo Claudia,
folgendes Makro überprüft Änderungen im angegebenen Bereich und löscht dann die Bereiche der Spalten e und J :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B2:B51]) Is Nothing Then Range("E2:E51,J2:J51").ClearContents
End Sub


Beachte, dass auch nur eine eizige Änderung im Bereich B2:B51 genügt, um E2:E51 und J2:J51 zu löschen !
Gruß, NoNet

Anzeige
eckige Klammern?
24.06.2009 11:45:38
Jörg
Hi NoNet
wofür stehen die eckigen Klammern?
Gruß Jörg
Eckige Klammern : Kurzform für EVALUATE("..")
24.06.2009 16:52:16
NoNet
Hallo Jörg,
die eckigen Klammern stellen grundsätzlich eine Kurzform der Funktion EVALUATE("...") (deutsch : AUSWERTEN) dar.
Beispiel :
MsgBox [=sum(10,20)] gibt ebenso wie MsgBox Evaluate("=sum(10,20)") die Summe der Zahlen 10+20 (also: 30) aus.
Oder auch : MsgBox [A1+A2] ergibt wie MsgBox Evaluate("=A1+A2") die Summe der Zellen A1+A2.
In meinen obigen Code bedeutet [B2:B51] das gleiche wie Range("B2:B51"), ist also nur eine etwas kürzere (wenn auch unbedeutend langsamere ) Variante zum RANGE()-Objekt !
Anstelle MsgBox Range("A1").Value kann man also auch schreiben : MsgBox [A1]
Ich hoffe, das war einigermassen verständlich ;-) !!?!?!?!
Gruß, NoNet
Anzeige
DANKE
23.06.2009 16:02:10
Claudia
...das war es !
Claudia
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige