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

Workbook_SheetChange

Workbook_SheetChange
15.01.2007 14:59:28
Friedbert
Liebe Excelianer,
ich habe mit obigem Ereignis ein Problem:
beim Makrostart werden in einer Arbeitsmappe mehrere Tabellen angelegt und benannt. Künftig soll dann ein bestimmtes Makro automatisch gestartet werden, wenn in einer bestimmten Tabelle in einer bestimmten Zelle eine Eingabe erfolgt ist.
Wie kann ich das bewerkstelligen?
Im Moment wird das Makro beim Anlegen jeder Tabelle aktiviert. Ich habe obiges Ereignis im Bereich "Diese Arbeitsmappe" eingestellt. Was tun!
Für Eure Hilfe vielen Dank im Voraus!
Friedbert

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook_SheetChange
15.01.2007 17:43:26
IngGi
Hallo Friedbert,
stell den Code in's Modul desjenigen Tabellenblattes, in dem die Eingabe zum Start des Makros vorgenommen werden soll und nimm das Worksheet_Change-Ereignis. Folgende Struktur startet das Makro, wenn in die Zelle A1 der Text "Makro starten" eingegeben wird.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
   If Target = "Makro starten" Then
      'Hier dein Makro
   End If
End If
End Sub


Gruß Ingolf
Anzeige
AW: Workbook_SheetChange
16.01.2007 10:17:07
Friedbert
Hallo Ingolf,
vielen Dank für Deine schnelle Reaktion. Leider hilft mir Dein Vorschlag deshalb nicht weiter, weil die Tabelle, in der das Makro gestartet werden soll, mit einem vorherigen Makro erst erstellt wird. Das Aktualisierungsmakro soll anschießend laufen.
Vielleicht gibt es doch eine Lösung, die übergeordnet (Workbook_SheetChange) ist und sich nur auf eine Zelle einer Tabelle bezieht?!
Für weitere Unterstützung schon vorab vielen Dank!
Friedbert
AW: Workbook_SheetChange
16.01.2007 11:44:58
IngGi
Hallo Friedbert,
das geht natürlich auch. Du musst dann nur noch zusätzlich auf den richtigen Tabellenblattnamen prüfen:

Private Sub Workbook_SheetChange(ByVal Sh As ObjectByVal Target As Range)
If Sh.Name = "Tabellenblattname" Then
   If Target.Address = "$A$1" Then
      If Target = "Makro starten" Then
         'Hier dein Makro
      End If
   End If
End If
End Sub


Gruß Ingolf
Anzeige
AW: Workbook_SheetChange
16.01.2007 17:13:27
Friedbert
Hallo Ingolf,
vielen Dank!
Gruß Friedbert

104 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige