Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sub bei Änderung eines Zellbereichs aufrufen

Sub bei Änderung eines Zellbereichs aufrufen
15.10.2002 11:03:46
Lonni
Hallo Cracks,

habe folgendes Problem:

Wie kann ich bei Änderung (Eingabe egal) nur eines bestimmten Zellbereichs eine Sub aufrufen?

Mit "worksheet_change" ginge es zwar auch, aber ist bei 99% der Eingaben unnötig.

Kann mir jemand einen Lösungsansatz sagen?

Vielen Dank schon mal im voraus!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Sub bei Änderung eines Zellbereichs aufrufen
15.10.2002 11:18:18
Bernd
Hallo Lonni,

hier ein Beispiel mit einen OnEntry-Makro, das eine Spalte abfragt und dann etwas ausführt.

Sub TrapEntry()
Worksheets("Tabelle1").OnEntry = _
"ValidateColB"
End Sub

Sub ValidateColB()
With ActiveCell
If .Column = 2 Then ' Test for second column.
If IsNumeric(.Value) Then
If .Value < 0 Or .Value > 255 Then
MsgBox "Entry must be between 0 and 255."
.Value = ""
End If
Else
' Handle nonnumeric entry.
MsgBox "Entry must be a number between 0 and 255."
.Value = ""
End If
End If
End With
End Sub

Du mußt allerdings das Makro TrapEntry per Hand ausführen, eventuell als auto_open deklarieren.

Vielleicht hilft der Ansatz weiter. Aber schau doch mal in den Beispielen auf diesem Server nach, ich Wette da findest Du noch einiges.

Oder bei Microssoft http://support.microsoft.com/ Suchkriterium "OnEntry".

Gruß

Bernd

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige