Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.11.2010 02:58:45 |
Sonja |
|
|
Aw:Tabelle aktualisieren nach Wertänderung einer Z |
19.11.2010 04:33:09 |
Severus |
|
|
|
22.11.2010 01:00:06 |
Sonja |
|
|
|
22.11.2010 04:51:41 |
Sonja |
|
|
|
22.11.2010 10:44:45 |
Severus |
|
|
|
23.11.2010 00:37:13 |
Sonja |
|
|
|
23.11.2010 02:00:28 |
Severus |
|
|
|
25.11.2010 04:37:57 |
Sonja |
|
|
|
25.11.2010 13:29:42 |
Severus |
|
|
|
26.11.2010 07:00:44 |
Sonja |
|
|
|
22.11.2010 11:01:02 |
Severus |
|
|
|
22.11.2010 01:04:28 |
Sonja |
|
|
Von:
Severus |
Datum:
19.11.2010 04:33:09 |
Views:
1098 |
Rating:
|
Antwort:
|
Thema:
Aw:Tabelle aktualisieren nach Wertänderung einer Z |
Sonja schrieb am 19.11.2010 02:58:45:
Hallo,
gibt es eine möglichkeit mit hilfe von vba, bei Wertänderung einer Zelle einen schon geschriebenen code "ablaufen" zulassen und somit die tabelle zu aktualisieren? und somit ohne "extra" Button.
ich hoffe mich halbwegs verständlich ausgedrückt zu haben.
vielen Dank.
Sonja
Hallo Sonja,
leider ist das nicht so klar wie es zu wünschen wäre.
Natürlich kannst Du einen Code ablaufen lassen, wenn Du eine Zelle änderst.
Dazu müsstest Du im Klassenmodul des betreffenden Arbeitsblattes
(z.B. Tabelle1(Tabelle1))
eine Prozedur
Private Sub Worksheet_Change(ByVal Target as Range)
...Dein Code...
End Sub
einrichten. Ich weiß natürlich nicht, was Dein Code bewerkstelligen soll und ob er bei Änderungen in jeder Zelle oder z.B. nur in einer einzigen Zelle oder nur bei einer Zeile oder einer Spalte stattfinden soll.
Bei nur einer Zelle müsstest Du z.B. den Code
If Target.Address <> "$A$1" Then Exit Sub
vor Deinem Code einfügen ($A$1 durch die entsprechende Zelladresse ersetzen). Für eine Zeile oder Spalte entsprechend
If Target.Row <> 7 Then Exit Sub (oder auch > 9, 7 Then Exit Sub (wie Zeile)
Dann würde der Code nur ausgeführt, wenn die Bedingungen erfüllt sind.
Wenn Dein Code Werte in die Tabelle schreibt müsstest Du zusätzlich vor Deinen Code
Application.EnableEvents = False
und nach Deinem Code
Application.EnableEvents = True
schreiben. Sonst löst jede Änderung durch Deinen Code die Prozedur wieder neu aus, da sie ja die Tabelle ändert.
Sollte Dein Code langwierige Operationen mit vielen Zell- oder Blattwechseln ausführen empfiehlt sich zusätzlich das Paar
Application.ScreenUpdating = False
...
Application.ScreenUpdating = True
Das beschleunigt den Code, da die Anzeige nicht aktualisiert wird solange der Code abläuft.
Severus |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.11.2010 02:58:45 |
Sonja |
|
|
Aw:Tabelle aktualisieren nach Wertänderung einer Z |
19.11.2010 04:33:09 |
Severus |
|
|
|
22.11.2010 01:00:06 |
Sonja |
|
|
|
22.11.2010 04:51:41 |
Sonja |
|
|
|
22.11.2010 10:44:45 |
Severus |
|
|
|
23.11.2010 00:37:13 |
Sonja |
|
|
|
23.11.2010 02:00:28 |
Severus |
|
|
|
25.11.2010 04:37:57 |
Sonja |
|
|
|
25.11.2010 13:29:42 |
Severus |
|
|
|
26.11.2010 07:00:44 |
Sonja |
|
|
|
22.11.2010 11:01:02 |
Severus |
|
|
|
22.11.2010 01:04:28 |
Sonja |
|
|