Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Markro ausführen, wenn sich eine Zelle ändert

Markro ausführen, wenn sich eine Zelle ändert
14.06.2004 14:12:34
Andreas
Hallo Zusammen,
nur eine kurze Frage :
Ich möchte ein Makro ausführen, wenn sich eine bestimmte
Zelle in meinem Tabellenblatt ändert. Das nachstehende
Markro wird leider aber immer ausgeführt, wenn sich irgend-
eine Zelle ändert.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Call Aufzinsungsbereich_festlegen
End Sub

Kann mir jemand sagen, wie ich das auf eine einzige Zelle oder
eine Range begrenze ?
Vielen Dank schon mal im voraus !
Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: Markro ausführen, wenn sich eine Zelle ändert
14.06.2004 14:25:49
M@rkus
Bei diesem Beispiel steht in B1, bei der Eingabe der Zahl 1 in Zelle A1, der Text "In Zelle A1 steht eine 1". Bei anderen Zeichen steht "ungültige Eingabe".

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
Dim iColumn As Integer
iRow = Target(1, 1).Row
iColumn = Target(1, 1).Column
If iRow = 1 And iColumn = 1 Then
If Cells(iRow, iColumn).Text = 1 Then
Cells(1, 2).Value = "In Zelle A1 steht eine 1"
Else
Cells(1, 2).Value = "ungültige Eingabe"
End If
End If
End Sub

Ich hoffe das hilft Dir!
Gruß M@rkus
AW: Markro ausführen, wenn sich eine Zelle ändert
Andreas
Wunderbar : Vielen dank Euch allen, und was die Recherche betrifft :
Ich verspreche ich geb mir beim nächsten Mal noch mehr Mühe
Anzeige
danke fuer die rueckmeldung :-) ot.
th.heinrich
.
AW: Markro ausführen, wenn sich eine Zelle ändert
kdosi
Hallo Andreas,
' code kommt in den Class Module von "ThisWorkbook"
' sh ist Sheet, Target ist Range, Zielbereich
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Sh.Name = "Tabelle1") Then
If (Target.Row > 5 And Target.Row < 10 And Target.Column > 5 And Target.Column < 10) Then
If (Target.Value <> "") Then
Target.Interior.ColorIndex = 5
End If
End If
End If
End Sub

' eine zweite Moeglichkeit :
' code kommt in den Class Modul vom "Sheet"
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row > 5 And Target.Row < 10 And Target.Column > 5 And Target.Column < 10) Then
If (Target.Value <> "") Then
Target.Interior.ColorIndex = 19
End If
End If
End Sub

Gruss kdosi
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige