Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Markro ausführen, wenn sich eine Zelle ändert

Forumthread: 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
Anzeige

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
Anzeige
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
danke fuer die rueckmeldung :-) ot.
th.heinrich
.
AW: Markro ausführen, wenn sich eine Zelle ändert
th.heinrich
hallo Andreas,
ein bisschen RECHERCHIEREN (s. linker frame) kann nicht schaden ;-)
https://www.herber.de/forum/archiv/388to392/t391048.htm
gruss thomas
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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