Microsoft Excel

Herbers Excel/VBA-Archiv

Berechne Formel 100% bei einfachem Makro | Herbers Excel-Forum


Betrifft: Berechne Formel 100% bei einfachem Makro von: Alexander
Geschrieben am: 15.12.2009 12:23:38

Hallo zusammen,

bei folgendem Makro zeigt mir Excel unten links in der Ecke o.g. Meldung ca. eine Minute lang erscheint und Excel hängt.

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveCell.Column = 9 Then
Untersparte = ActiveCell.Value

Select Case (Untersparte)

Case "A"
Cells(ActiveCell.Row, 12).FormulaR1C1 = "=RC[-1]/50

End Select
End If
End Sub

Das Makro ist auch noch gar nicht fertig, aber wenn es hier schon so lange Wartezeiten gibt, dann brauch ich ja auch gar nicht weitermachen.

Was kann ich da tun?

Gruß und danke!

  

Betrifft: AW: Berechne Formel 100% bei einfachem Makro von: Uduuh
Geschrieben am: 15.12.2009 12:29:49

Hallo,
durch das Eintragen der Formel ruft es sich immer wieder selbst auf. Ist ja auch eine Änderung.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim UnterSparte As String
  If ActiveCell.Column = 9 Then
    On Error GoTo ERRHDL
    Application.EnableEvents = False
    UnterSparte = ActiveCell.Value
    Select Case (UnterSparte)
      Case "A"
      Cells(ActiveCell.Row, 12).FormulaR1C1 = "=RC[-1]/50"
    End Select
  End If
ERRHDL:
  Application.EnableEvents = True
End Sub

Und deklariere alle Variablen!!!!

Gruß aus’m Pott
Udo



  

Betrifft: AW: Berechne Formel 100% bei einfachem Makro von: Alexander
Geschrieben am: 15.12.2009 14:04:51

Hallo und danke für die Antwort!

Das hat geholfen!

Gruß


Beiträge aus den Excel-Beispielen zum Thema "Berechne Formel 100% bei einfachem Makro"