Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Change Ereignis in Tabellenblatt

Forumthread: Change Ereignis in Tabellenblatt

Change Ereignis in Tabellenblatt
02.05.2002 11:49:28
Gernot
Hallo Leute,

habe gerade ein kleines Problem mit meinem Change Ereignis.

Ich möchte einen VBA Code ausführen, sobald sich der Inhalt einer bestimmten Zelle ändert!

Leider bekomme ich das nicht hin und die Excel Hilfe, ist mir hier nicht wirklich eine Hilfe!

Wenn jemand Rat weiß, wäre das echt klasse!

Vielen Dank!!

Gruß Gernot

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Change Ereignis in Tabellenblatt
02.05.2002 12:23:48
Markus
Dieses Beispiel formatiert die Schriftfarbe einer ganzen Zeile rot, wenn in Spalte A eine 1 eingegeben wird, grau wenn - eingegeben wird und schwarz bei allen anderen Zeichen.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim nColumn As Integer
Dim nPos As Integer

nColumn = Target.Cells(1, 1).Column
nPos = Target.Cells(1, 1).Row

If (Sh.Name = "Tabelle1") And nColumn = 1 Then
If Target.Cells(1, 1).Text = 1 Then
Rows(nPos).Select
Selection.Font.ColorIndex = 3
Cells(nPos, nColumn).Select
ElseIf Target.Cells(1, 1).Text = "-" Then
Rows(nPos).Select
Selection.Font.ColorIndex = 15
Cells(nPos, nColumn).Select
ElseIf Target.Cells(1, 1) = "" Then
Rows(nPos).Select
Selection.Font.ColorIndex = 1
Cells(nPos, nColumn).Select
Else
Rows(nPos).Select
Selection.Font.ColorIndex = 1
Cells(nPos, nColumn).Select
End If

End If


End Sub

Viele Grüsse Markus

Anzeige
Re: Change Ereignis in Tabellenblatt
02.05.2002 12:23:55
Alfred D.
Hallo Gernot!
schau mal weiter unten im Forum beim Stichwort 'Hochzählen'
Gruß Alfred D.

Re: Change Ereignis in Tabellenblatt
02.05.2002 12:50:24
Thomas Ramel
Grüezi Gernot

Du arbeitest mit xl97, wie Du schreibst.
Wie ändert sich der Wert in der Zelle? Ich vermute mal mittels Dropdown (Daten --> Gültigkeit)?
Wenn ja, hast Du schlechte Karten. In xl97 wird das Change-EReignis durch Änderung der Werte über Dropdown/Gültigkeit nicht ausgelöst -- ein Bug :-(

Du musst wohl auf das SelectionChange oder das Calculate-Ereignis ausweichen.
Schreibe den Wert der Zelle in eine andere und vergleiche jedemal, ob er sich verändert hat.


Mit freundlichen Grüssen

Thomas Ramel

Anzeige
Klappt leider nicht !!!
02.05.2002 12:52:24
Gernot
Hallo Alfred, Hallo Michael!

Danke erst mal für Eure Hilfe!

Leider tritt bei mir das Change Ereignis nie ein! Ich habe jetzt schon verschiedenste Variante ausprobiert, klappt nie!

Was mache ich falsch?!

Habe den Code in ein Modul der Arbeitsmappe reinkopiert, kriege aber nie ein Change Ereignis. Habe jetzt auch mal das Calculate Ereignis ausprobiert, extra was rechnen lassen, aber war wieder nichts!

Woran kann das denn liegen?!?


Vielleicht habt Ihr ja noch eine Idee!


Danke Gernot

Anzeige
Re: Klappt leider nicht !!!
02.05.2002 15:27:44
WernerB.
Hallo Gernot,

kann es sein, dass Dein Code nicht im richtigen Modul steht? Das Makro wird nur funktionieren, wenn es im (Klassen-) Modul des bereffenden Tabellenblattes steht (also nicht in einem normalen Standardmodul).
Wenn Du im Makro-Editor (Alt + F11) auf der linken Seite den betreffenden Tabellennammen doppelklickst, wird das Modul (es gibt davon nur eines!) dieses Tabellenblattes geöffnet; das ist die große weiße Fläche auf der rechten Seite. Und da hinein muss Dein ereignisgesteuertes Makro geschrieben/kopiert werden.

Viel Erfolg wünscht
WernerB.

Anzeige
Re: Klappt leider nicht !!!
02.05.2002 19:05:47
Gernot
Hallo Werner,

vielen Dank für diesen Hinweis!!!

Das habe ich nicht gewusst, und deshalb auch nie in dieser Richtung nach einem Fehler gesucht!

Super!!!!

Nochmals vielen Dank!

Gruß Gernot

;

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Caption der aktiven UserForm abfragen
Martin

Hallo liebe Excelianer,
besteht die Möglichkeit aus einem VBA-Modul heraus die aktive UserForm abzufragen? Bislang verwende ich folgende zwei Makros für zwei verschiedene UserFormen, die ich gerne zu einem Makro vereinen würde, weil deren Inhalt gleich ist:
Sub AK() 'für Userform "Te...
07.08.2008 17:06:21
Thread-ID: 1000037
3 Beiträge
automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Menü in Excel von VB6.0 aus erzeugen??
VB6.0

Hallo zusammen,
ich hoffe ihr könnt mir bei meinem Anliegen helfen. Ich möchte den VBA-Code in eine dll transportieren (VB 6.0) und scheitere schon an dem Menüaufbau in Excel.
In der dll steht in einer Klasse:
Sub Test_Excel() Set xl = GetObject(, "Visio.Application") Set objMenu...
07.08.2008 20:23:28
Thread-ID: 1000091
13 Beiträge
Anzeige
Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Stelle für VBA-Crack bei Schweizer Bank
Sand

interessantes Job-Angebot für VBA-Crack unter:
http://www.sarasin.ch/internet/iech/index_iech/about_us_iech/about_us_job_vacancies_iech.htm?jobID=76975
schaut's euch mal an.
cheers,
Sand
08.08.2008 13:37:00
Thread-ID: 1000280
2 Beiträge
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Version DLL auslesen habe ich...aber Datum?
Peter

Hallo mal wieder,
habe n bissl probiert und recherchiert und dann denn folgenden Code gefunden/gebastelt mit dem ich die Versionsnummer einer DLL auslesen kann:
Sub Welche() Set fs = CreateObject("Scripting.FileSystemObject") ofile = "C:\Programme\Microsoft Office\Office12\refedit.dll...
08.08.2008 15:36:00
Thread-ID: 1000331
3 Beiträge
Farben aus Excel 2007 in Excel 2000 übernehmen
Jochen

Das Farbkonzept von Excel 2007 habe ich trotz langer Web-Recherche nicht verstanden. Was muss ich in Excel 2007 tun, damit ich die gleichen Farben angezeigt bekomme, wenn ich eine in Excel 2007 erstellte Datei in Excel 2000 öffne?
Gruß,
Jogi
08.08.2008 15:58:40
Thread-ID: 1000338
2 Beiträge
Anzeige Fortschrifsbalgen abbrechen
Jochen

Hi,
wie kann ich folgenden Code auf meiner userForm per Button unterbrechen, bevor die 30 Sekunden abgelaufen sind ? :
https://www.herber.de/bbs/user/54473.xls
Danke mal
Jochen
09.08.2008 21:10:32
Thread-ID: 1000547
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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