Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1036to1040
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
Inhaltsverzeichnis

Makro auslösen

Makro auslösen
14.01.2009 22:39:00
werner
Hallo ,
ich habe hier im Forum sehr gr0ße Hilfe bekommen, Danke!!
Doch im nachfolgenden Makro habe ich anscheinend schon wieder den Wurm reingekrigt.
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Range("B6") = 1 Then
Range("D7") = Range("D5")
ElseIf Range("B6") = 2 Then
Range("D8") = Range("D5")
ElseIf Range("B6") = 3 Then
Range("D9") = Range("D5")
ElseIf Range("B6") = 4 Then
Range("D10") = Range("D5")
ElseIf Range("B6") = 5 Then
Range("D11") = Range("D5")
ElseIf Range("B6") = 6 Then
Range("D12") = Range("D5")
ElseIf Range("B6") = 7 Then
Range("D13") = Range("D5")
ElseIf Range("B6") = 8 Then
Range("D14") = Range("D5")
ElseIf Range("B6") = 9 Then
Range("D15") = Range("D5")
ElseIf Range("B6") = 10 Then
Range("D16") = Range("D5")
ElseIf Range("B6") = 11 Then
Range("D17") = Range("D5")
ElseIf Range("B6") = 12 Then
Range("D18") = Range("D5")
End If
Application.EnableEvents = True
End Sub


Die Werte der Zellen B6 und D5 kommen durch einen Bezug zustande ( =Tabelle1!B6), und =Tabelle1!D5)
soweit, sogut aber wenn sich in Tabelle1 der Wert ändert , ändert sich in Tabelle2 wo das Makro steht zwar der Wert aber das Makro wird erst ausgelöst wenn ich in der Tabelle2 eine Zelle Anklicke. Das ist sicher nur eine kleinigkeit, aber ich komme nicht trauf.
Gruß Werner

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro auslösen
14.01.2009 22:50:56
Gerd
Hallo Werner,
(nur) darauf reagiert gerade das Worksheet_SelectionChange-Ereignis
Versuche es mal mit dem Worksheet_Calculate
Gruß Gerd
AW: Makro auslösen
14.01.2009 23:13:14
werner
Hallo Gerd,
mit Worksheet_Calculate klappt das :-)
Danke!
Gruß Werner
Worksheet_Calculate
14.01.2009 23:19:00
Beate
Hallo Werner,
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Calculate()
    Dim v As Integer
    v = Sheets("Tabelle1").Range("B6").Value
    On Error GoTo Fehler
    Application.EnableEvents = False
    Sheets("Tabelle2").Range("D6").Offset(v, 0).Value = Sheets("Tabelle1").Range("D5").Value
    Fehler:
    Application.EnableEvents = True
End Sub

Das Makro gehört ins Codefenster von Tabelle1!
Guckst Du: Wie und wo fügt man ein Makro bzw. Code ein
Gruß,
Beate
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige