exel schliesst bei makro

[PapaVonZwei]

Hallo ich habe ein grosses Problem meine Arbeitsmappe mit Makro funktioniert auf allen Rechnern nur bei mein Leppy seit 2 Tagen nicht mehr.
Wenn ich die Mappe ohne Makro öffne kann ich darin schreiben usw sobald ich makro einschalte und etwas ändere schliesst Exel ohne Fehlermeldung
Beim wieder öffnen der Datei steht :
Bei der letzten Speicherung durch den Benutzer erstellte Version
02:00.Montag,1.Januar1601

kann mir da einer Helfen was sein könnte
gruss

[BoskoBiati]

Hi,

dann zeige mal Dein Makro.

Überprüfe die Einstellungen Deines Laptops.

[PapaVonZwei]

ja gern kann ich machen ,wie kann ich die hier einbringen ???? obwohl es bei meinen anderen Rechner funktioniert und auf den Lappy bis vor 2 Tagen ja auch noch

---

Private Sub Worksheet_Change(ByVal Target As Range)
Dim S1 As Integer, S2 As Integer
If Not Intersect(Target, Range("C6:D17,H6:I17,M6:N17,R6:S17,W6:X17")) Is Nothing Then
  Application.EnableEvents = False
  Select Case Target.Column
      Case 3, 8, 13, 18, 23
        S1 = Target.Column
        S2 = Target.Column + 1
      Case 4, 9, 14, 19, 24
        S1 = Target.Column - 1
        S2 = Target.Column
  End Select
  Cells(Target.Row, S1) = Cells(Target.Row, S1) + Cells(Target.Row, S2)
  Application.EnableEvents = True
End If
End Sub

---

ja gern kann ich machen ,wie kann ich die hier einbringen ???? obwohl es bei meinen anderen Rechner funktioniert und auf den Lappy bis vor 2 Tagen ja auch noch

---

Private Sub Worksheet_Change(ByVal Target As Range)
Dim S1 As Integer, S2 As Integer
If Not Intersect(Target, Range("C6:D17,H6:I17,M6:N17,R6:S17,W6:X17")) Is Nothing Then
  Application.EnableEvents = False
  Select Case Target.Column
      Case 3, 8, 13, 18, 23
        S1 = Target.Column
        S2 = Target.Column + 1
      Case 4, 9, 14, 19, 24
        S1 = Target.Column - 1
        S2 = Target.Column
  End Select
  Cells(Target.Row, S1) = Cells(Target.Row, S1) + Cells(Target.Row, S2)
  Application.EnableEvents = True
End If
End Sub



ich habe noch eine Arbeitsmappe mit Makro die überall gent aber nicht auf den Leppy

[BoskoBiati]

Hi,

Dein Makro läuft durch, allerdings solltest Du mal einen Haltepunkt setzen und das Makro schrittweise laufen lassen, damit Du siehst wann es aussteigt.
Gibt es ein Windows-Update?
Hast Du die Datei verschoben?

Im Übrigen würde ich das Makro anders aufsetzen, damit es nicht jedesmal durchläuft, sondern endet, wenn Du keine der gewünschten Spalten beackerst:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C6:D17,H6:I17,M6:N17,R6:S17,W6:X17")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
    If Target.Column Mod 5 = 3 Then
    Debug.Print Target.Column Mod 2
        Target.Value = Target.Value + Cells(Target.Row, Target.Column + 1)
    Else
        Cells(Target.Row, Target.Column - 1) = Target.Value + Cells(Target.Row, Target.Column - 1)
    End If
    Application.EnableEvents = True
End Sub

[PapaVonZwei]

aha Danke werde es ausprobieren
 ja win 11 hatte ein Update ......
 soll ich Microsoft Office de und neu installieren ?

[BoskoBiati]

Hi,

ist der Speicherort noch vertrauenswürdig?
Hast Du im Trustcenter überprüft, ob die Einstellungen für die Datei oder Makros noch stimmen?

[PapaVonZwei]

nein muss ich mir mal anschauen
danke aber sehr
werde erst office deinstallieren und office neu aufsetzen mal sehen  was passiert
gruss

komisch nur das es bis vor 2 Tagen alles ging und nun der misst weiss mir kein rat

[BoskoBiati]

Hi,

werde erst office deinstallieren und office neu aufsetzen

m.E. die falsche Reihenfolge!

[PapaVonZwei]

wie soll ich denn ?

[steve1da]

Zur Info…..
https://office-fragen.de/thread-28954.html