Registriert seit: 15.10.2020
Version(en): 2007
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
Registriert seit: 13.04.2014
Version(en): 365, 2019
07.10.2023, 13:25
(Dieser Beitrag wurde zuletzt bearbeitet: 07.10.2023, 13:25 von BoskoBiati.)
Hi,
dann zeige mal Dein Makro.
Überprüfe die Einstellungen Deines Laptops.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 15.10.2020
Version(en): 2007
07.10.2023, 13:29
(Dieser Beitrag wurde zuletzt bearbeitet: 07.10.2023, 13:35 von 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
(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
Registriert seit: 13.04.2014
Version(en): 365, 2019
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
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 15.10.2020
Version(en): 2007
aha Danke werde es ausprobieren
ja win 11 hatte ein Update ......
soll ich Microsoft Office de und neu installieren ?
Registriert seit: 13.04.2014
Version(en): 365, 2019
Hi,
ist der Speicherort noch vertrauenswürdig?
Hast Du im Trustcenter überprüft, ob die Einstellungen für die Datei oder Makros noch stimmen?
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 15.10.2020
Version(en): 2007
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
Registriert seit: 13.04.2014
Version(en): 365, 2019
Hi,
Zitat:werde erst office deinstallieren und office neu aufsetzen
m.E. die falsche Reihenfolge!
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 15.10.2020
Version(en): 2007
Registriert seit: 16.04.2014
Version(en): xl2016/365
|