Excel stürzt wegen VBA ab
24.02.2015 14:16:58
Lexenlewax
mit eurer Hilfe habe ich einen VBA Code zusammengebastelt. Leider funktioniert es noch nicht so richtig. Immer, wenn Excel geöffnet wird, stürzt es ab.
Der Fehler liegt irgendwo im auskommentierten Bereich:
Option Explicit
Private mastrVariable(1 To 4) As String
Private Sub Worksheet_Calculate()
If mastrVariable(1) Cells(8, 2).Text Or mastrVariable(2) Cells(12, 2).Text Then
Cells(18, 6).ClearContents
mastrVariable(1) = Cells(8, 2).Text
mastrVariable(2) = Cells(12, 2).Text
' ElseIf mastrVariable(3) Cells(2, 2).Text Then
' Union(Cells(16, 2), Cells(18, 6)).ClearContents
' mastrVariable(3) = Cells(2, 2).Text
End If
If mastrVariable(4) Cells(6, 2).Text Then
Cells(18, 2).ClearContents
mastrVariable(4) = Cells(6, 2).Text
End If
End Sub
Anbei die komplette Datei: https://www.herber.de/bbs/user/95962.xlsm
Folgende Funktionen versuche ich reinzuprogrammieren:
(A) Wenn sich B8 oder B12 ändern, dann soll B18 geleert werden
(B) Wenn sich B2 ändert, dann sollen B16 und F18 geleert werden.
(C) Wenn sich B6 ändert, dann soll B18 geleert werden.
Folgende Regeln kommen in der Praxis Vor:
(B) tritt nur in Kombination mit (A) und (C) auf.
(A) kann auch alleine auftreten
(C) tritt nur mit (A) auf.
Ich hoffe, ein Spezialist kann mir helfen und auch erklären, wo ich falsch gedacht habe.
Danke und Gruß,
Lexenlewax