Microsoft Excel

Herbers Excel/VBA-Archiv

Makro startet nicht automatisch | Herbers Excel-Forum


Betrifft: Makro startet nicht automatisch von: Markus
Geschrieben am: 10.08.2012 09:40:19

Guten Morgen zusammen,

ich hab ein Makro geschrieben, das bei einer Zelländerung automatisch ausgeführt werden soll, _
doch leider passiert nichts. Das Makro funktioniert ohne "

Private Sub Worksheet_Change(ByVal Target As Excel.Range)" ohne Porbleme. Was habe ich falsch   _
gemacht?

Vielen Dank schon mal.

Gruß Markus

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Sub Autofilter()
'
' Autofilter Makro
'
    Range("D17").Select
    ActiveSheet.Range("$B$19:$X$154").Autofilter Field:=1, Criteria1:="<>"
End Sub

  

Betrifft: AW: Makro startet nicht automatisch von: hary
Geschrieben am: 10.08.2012 09:48:59

Hallo Markus
nimm

Sub Autofilter()

raus
gruss hary


  

Betrifft: AW: Makro startet nicht automatisch von: Markus
Geschrieben am: 10.08.2012 09:55:25

Hallo hary,

Sub Autofilter() als Ersatz für Worksheet_Change oder wo genau?

Gruß Markus


  

Betrifft: AW: Makro startet nicht automatisch von: hary
Geschrieben am: 10.08.2012 10:03:47

Hallo
kann nicht testen,aber versuch mal.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      Range("D17").Select  'wozu ist das?
      ActiveSheet.Range("$B$19:$X$154").Autofilter Field:=1, Criteria1:="<>"
  End Sub

oder moechtest du das Makro mit Change starten, dann:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    hier Makroname
  End Sub

gruss hary


  

Betrifft: AW: Makro startet nicht automatisch von: Markus
Geschrieben am: 10.08.2012 10:17:58

Ich möchte, dass das Makro ausgeführt wird, wenn sich der Wert in der Zelle D17 ändert, ist eine Dropliste. D17 löst eine Berechnung aus und anschließend sollen alle leeren Zellen in dem angegeben Bereich ausgeblendet werden. Das Marko funktioniert soweit auch, bloß mit der automatisierung haut das nicht hin. Das Makro heißt Autofilter und ist im Modulordner als Modul 1 abgelegt.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 call Autofilter

End Sub
Sub Autofilter()
'
' Autofilter Makro
'
Range("D17").Select
ActiveSheet.Range("$B$19:$X$154").Autofilter Field:=1, Criteria1:="<>"
End Sub


  

Betrifft: AW: Makro startet nicht automatisch von: hary
Geschrieben am: 10.08.2012 13:45:53

Hallo Markus
War ausser Haus.
Benenn das Makro mal um. Autofilter ist ein fester Begriff in VBA.
In das Tabellenblatt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
 If Target.Address = "$D$17" Then Filtern
End If
End Sub

als Makro:
Sub Filter()
 ActiveSheet.Range("$B$19:$X$154").Autofilter Field:=1, Criteria1:="<>"
End Sub

gruss hary


  

Betrifft: AW: Makro startet nicht automatisch von: Markus
Geschrieben am: 14.08.2012 09:01:38

Danke für deine Hilfe hary,

habe meinen Fehler gefunden, ich hatte einen falschen Bezug bzgl. der Rangezeile drinnen, ist mir so nicht aufgefallen, weil ich gleichzeitig noch Spalten ausgeblendet hatte.

Vielen dank nochmal.

Gruss Markus


Beiträge aus den Excel-Beispielen zum Thema "Makro startet nicht automatisch"