Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
116to120
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
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worksheet_Change

Worksheet_Change
06.05.2002 14:37:45
Wilhelm R.
Hallo
habe gleiche Frage heute schon mal geschickt, ist aber irgendwo verlorengegangen.
Also ich bringe ein Makro per
Private Sub Worksheet_Change(ByVal Target As Range)
beschränkt auf einen bestimmten zellbereich zum laufen.
Das klappt soweit.
Jetzt müsste ich ein 2. Makro unter den gleichen Vorraussetzngen aber für einen anderen Zellbereich (im selben Tabellenblatt)zum laufen kriegen.
Aber das schöne "Worksheet_Change ist ja bereits besetzt.
Gibt es trotzdem eine Möglichkeit?
Einfach anhängen ging in die Hose.
Selection_Change klappt nicht.
Ratlos
Wilhelm

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Worksheet_Change
06.05.2002 14:50:43
mathias r.

Ggf kannst du auch gebrauchen:
Target.Row
Target.Column

Re: Worksheet_Change
06.05.2002 15:19:46
Wilhelm R.
Hallo Hans,
ist nicht ganz so einfach.
erstes Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Dim c As Range
Dim erg As Byte
'Schliesst Makrostart bei Eingabe in Spalte 2 sowie ungleich 170 aus.
If Cells(Target.Row, 2).Value <> 170 Then Exit Sub
''Schließt Makrostart über Spalte 3 und Zeile 52 aus
If Target.Column <> "3" Or Target.Row > 52 Then Exit Sub
''Überprüft ob Wert in Zelle in Spalte E den Ausnahmedurchmessern entspricht
If IsNumeric(Cells(Target.Row, 5).Value) Then
If Cells(Target.Row, 5).Value = 219.1 Or Cells(Target.Row, 5).Value = 273# _
Or Cells(Target.Row, 5).Value = 323.9 Or Cells(Target.Row, 5).Value = 406.4 _
Then Application.Run "IsoDicke"
End If
End Sub

2. makro
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A17:D52")
If Intersect(Target, Bereich) Is Nothing Then Exit Sub
With Cells(Target.Row, Target.Column)
If .Value = "" Then
Call Nochn.Makro
Application.CutCopyMode = False
End If
End With
End Sub
Wobei dieses 2. Teil laufen soll, wenn die Eingabezellen A17:D52 gelöscht (Entf) werden. Wobei der markierte und zu löschende Bereich auch nur ein Teilbereich sein kann.
Ich sehe nicht wie ich das verzweigen kann.
Wilhelm

Anzeige
Re: Worksheet_Change
06.05.2002 15:37:15
Hans W. Herber
Hallo Wilhelm,

aus Deiner Anfrage konnte nicht entnommen werden, dass sich die Bereiche überschneiden.
Im konkreten Fall würde ich abfragen, ob die einzelnen Zellen von Target leer sind. Wenn dies der Fall ist, wurde die Löschtaste gedrückt, andernfalls wurde ein Wert eingegeben.

Siehe Beispielarbeitsmappe unter:
https://www.herber.de/bbs/texte/9change1.xls

hans

Re: Worksheet_Change
06.05.2002 16:31:22
Wilhelm R.
Hallo Hans,
vielen Dank für Deine Mühe, aber der Schlauch auf dem ich im Moment stehe ist gigantisch. Ich kriege das nicht auf die Reihe.
Wilhelm
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige