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
Hi,
dann zeige mal Dein Makro.
Überprüfe die Einstellungen Deines Laptops.
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
(07.10.2023, 13:29)PapaVonZwei schrieb: [ -> ]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
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
aha Danke werde es ausprobieren
ja win 11 hatte ein Update ......
soll ich Microsoft Office de und neu installieren ?
Hi,
ist der Speicherort noch vertrauenswürdig?
Hast Du im Trustcenter überprüft, ob die Einstellungen für die Datei oder Makros noch stimmen?
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
Hi,
Zitat:werde erst office deinstallieren und office neu aufsetzen
m.E. die falsche Reihenfolge!