Verschiedene Makros aufrufen

Computer: Software & Programmierung Office Software
1

hallo zusammen,
zuerst eine entschuldigung an reinhard dass ich versäumt habe mich zu bedanken.

nun zu meiner frage.
wie rufe ich verschidene automatische makros auf.

beispiel

wenn sich der inhalt in tabelle1 zelle „B7“ ändert dann makro1

wenn sich der inhalt in tabelle1 zelle „A17“ oder „C22“ andert dann makro2

wer kann mir da weiterhelfen ?

gruß

herbert

2

Hallo Herbei,

folgens für Excel2003

  • Extras - Makro - aufzeichnen, Speichern in „Persönliche Makroarbeitsmappe“
  • Aufzeichnung starten und sofort beenden. Damit hast Du, so sie nicht bereits besteht, eine neue Persönliche Makroarbeitsmappe, zu finden unter Personl.xls.
  • öffne den VBE mit [Alt]+[F11]
  • Doppelklick auf „DieseArbeitsmappe“ unter „VBA-Projekt (Personl.xls)“ obenn links: das Codefenster öffnet sich
  • oben steht „Allgemein“ in einer ListBox. Klick darauf zeigt außerdem „Workbook“. Dieses anklicken.
  • blöderweise wird jetzt ein „Sub Workbook_Open“ eingefügt. Einfach ignorieren, denn uns interessieren nur die Möglichkeiten von „Workbook“. Solange links Workbook steht, sollte man rechts daneben auswählen können: SheetSelectionChange
  • dann erscheint automatisch im Code-Fenster darunter

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Darin können die gewünschten Makro-Aufrufe codiert werden nach dem Schema

If Target.Address = … Then Call …

HTH.
M.

3

wenn sich der inhalt in tabelle1 zelle „B7“ ändert dann makro1

wenn sich der inhalt in tabelle1 zelle „A17“ oder „C22“ andert
dann makro2

Hallo Herbert,

Rechtsklick auf den Blattnamen, Code anzeigen.

Private Sub Worksheet\_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
 Case "B7"
 Call Makro1
 Case "A17", "C22"
 Call Makro2
End Select
End Sub

Gruß
Reinhard

4

hallo reinhard,
danke für deine hilfe

natürlich auch an markus

gruß
herbert