Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1872to1876
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausführung VBA falls Zellinhalt geändert

Ausführung VBA falls Zellinhalt geändert
22.02.2022 15:35:03
Ingo
Hallo zusammen
Ich habe einen VBA Code erstellt. Nun möchte ich, dass dieser VBA Code automatisch, und ausschliesslich in Tabellenblatt 2 jeweils sofort ausgeführt wird, sobald durch manuelle Eingabe in fixe Zelle (z.B. B4) in Tabellenblatt 1 der dortige Zellinhalt verändert wurde.

Wie macht man das am besten, und wie und wo (unter Arbeitsmappe, Tabelle oder Modul) muss ich dann den VBA Code am besten hinterlegen, damit er eben ausschliesslich in Tabellenblatt 2 abläuft?
Gruss
Ingo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausführung VBA falls Zellinhalt geändert
22.02.2022 16:04:29
GerdL
Moin Ingo,
bitte die erste Prozedur ins Modul der Tabelle1 einfügen. Die Zweite ist nur ein Beispielcode.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0, xlA1) = "B4" Then
Call Mein_Makro(Tabelle2)
End If
End Sub


Sub Mein_Makro(Blatt As Worksheet)
Blatt.Cells(1, 1) = Blatt.Cells(1, 1) + 1
End Sub
Gruß Gerd
AW: Ausführung VBA falls Zellinhalt geändert
22.02.2022 16:10:40
Pierre
Hallo Ingo,
Gerd hat zwar schon geantwortet, aber das würde auch gehen in einem Makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Worksheets("Tabelle1").Range("B4:B5")) Is Nothing Then     'diese Zeile bei mehreren Zellen
'If Target.Address = "$B$4" Then                                                    'diese Zeile bei einer Zelle
With Worksheets("Tabelle2")
.Range("A1").Interior.ColorIndex = 3
End With
End If
End Sub
Die Zeile innerhalb des With-Blocks durch den Code austauschen, der die gewünschten Aktionen auf Tabelle2 ausführt. Habe es nur als Beispiel genutzt.
Hier besteht aber zumindest die Möglichkeit, dass du dein Makro noch anpassen müsstest wegen Referenzierung usw.
Gruß Pierre
Anzeige

294 Forumthreads zu ähnlichen Themen

Mit VBA ein anderes Makro ändern
Markus

Hallo zusammen,
besteht die Möglichkeit, dass man mittels Makros ein anderes Makro bzw. den Code für Worksheet_Activate ändern kann?
Problem 1
Sub Worksheet_Activate() 'ScrollArea = "C3: Bf32" ScrollArea = "" End Sub
Es soll danach wie folgt aussehen (Änderung in Zeile 1 und...
12.10.2008 14:24:49
Thread-ID: 1015855
7 Beiträge
Anzeige
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
VBA Projekt in andere Arbeitsmappe einbauen
abu

Hallo Zusammen,
Fileupload: https://www.herber.de/bbs/user/59303.xls
In dieser Arbeitsmappe ist ein VBA-Projekt das ansich gut funktioniert. Nun moechte ich dieses Projekt in eine andere Arbeitsmappe integrieren und statt fuer jede Zeile einen Button (habe in der hochgeladenen Mappe al...
10.02.2009 13:34:05
Thread-ID: 1049049
5 Beiträge
Anzeige
VBA: Sub in anderem Workbook aufrufen
Peter/Berlin

Hi VBA-Könner/Kenner,
vielleicht bekomme ich bei Euch die nötige Anregung zu folg. Problem:
Im Arbeitsspeicher geöffnet sind die Workbooks "A" und "B".
Von "A" aus soll eine Sub xyz in "B" aufgerufen werden (Call xyz).
Es erscheint der Fehler: Sub nicht definiert oder ähnlich...
02.04.2009 13:20:17
Thread-ID: 1066313
2 Beiträge
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Fehlerbehandlung in vba funktioniert nicht
Henning

Hallo vba-Profis,
bei mir funktioniert die vba-Fehlerbehandlung nicht wie sie soll.
Ich rufe Hyperlinks auf: Zunächst die Online-Version. Falls der Rechner nicht online ist oder keine Verbindung hergestellt werden kann, soll per Fehlerbehandlung im zweiten Schritt die lokale offline-Ver...
29.04.2009 11:56:50
Thread-ID: 1071851
3 Beiträge
Mit VBA Datenbezug einer Grafik ändern
Uli

Hi,
ich würde gerne eine Grafik mit n Linien in der Form ändern, dass der Tabellenbezug hinsichtlich der Spalten gleich bleibt, jedoch der Bereich der Zeilen sich ändert (z.B. Daten der Zeilen 200bis 300 statt 1 bis 100). Wie kann ich das ändern, ohne dabei die Spalten zu verändern. Wenn ic...
16.07.2009 14:38:27
Thread-ID: 1089069
13 Beiträge
VBA-Befehl: Zeichen in Schriftart nicht vorhanden
Alex

Schönen guten Tag zusammen,
leider ist der Betreff nicht sehr aussagekräftig, da ich für die Frage etwas weiter ausholen muss. Man möge mir verzeihen.
Lage: Ich will mir für eine Schriftart Code Charts analog denen auf unicode.org erstellen (Beispiel: http://www.unicode.org/charts/PDF/U...
30.09.2009 00:02:51
Thread-ID: 1106220
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
15
4
4
1
11
2
12
4
5
20
8
5
6
7
6
1
4
4
4
6
2
6
4