Guten Tag liebe Excelfreunde
warum funktioniert mein unter Excel 2003 erstelltes einwandfrei funktionierendes Makro bei der Umstellung Excel 2003 in Win 7
nicht mehr wie vorher ?
Ich führe unter
Win 7 Excel 2003 mit Administratorenrechte aus,
aber trotzdem bleibt das Makro immer hängen, und der Befehl wird nicht zu Ende ausgeführt. Schliesse ich das Makro über den Schliessbutton schliesst sich danach gleich die ganze Excelmappe.
Der Code in dem Makro ist folgender:
Sub Prüfen()
Application.ScreenUpdating = False
Sheets("WFF").Range("F1").Copy
Sheets("WFF").Cells(Sheets("WFF").Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row, 1).PasteSpecial _
Paste:=xlPasteValues, Transpose:=True
Dim Letzte_Zeile As Long, Wiederholungen As Long
Letzte_Zeile = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
For Wiederholungen = Letzte_Zeile To 1 Step -1
If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(Wiederholungen, 1)), _
Cells(Wiederholungen, 1)) > 1 Then
MsgBox "Gearbeitet"
End If
Next
End Sub
Ich hoffe es hat noch jemand Excel 2003 unter Win 7 und kann den Fehler einmal
überprüfen ?
Als Anmerkung: Ich habe Win 7 jetzt auf ein SSD LW installiert
Danke für die Hilfe
mfg flori006