If-Funktion unter Windows 10
12.11.2018 14:26:07
Daniel
ich habe aktuell ein seltsames Problem und hoffe ich bin hier richtig.
Ich habe vor gut 3 Monaten eine Excel Datei mit diversen Makros geschrieben. Hat auch einwandfrei funktioniert.
Nun klappt allerdings eine ganz normale If-Funktion nicht mehr, welche zuvor funktionierte.
Auf einem Windows 7 System funktioniert die Datei weiterhin problemlos. Aber auf Windows 10 nicht (Habe 2 Geräte getestet, eins davon ist ganz neu)
Hatte damit schonmal jemand Erfahrungen? Können es Windowspatches sein? Vor gut 3 Monaten lief die Datei schließlich auch noch unter Windows 10.
Falls von Interesse, ist hier das Codesnippet: (Wie gesagt normale If-Funktionen..)
+++
Sub Drucken()
' Drucken Makro
If MsgBox("Ganz viel toller Text", vbYesNo, "Sicher?") = vbYes Then
If Range("H11") = "Name1" Then
Range("H11").Select
ActiveCell.FormulaR1C1 = "123"
End If
If Range("H11") = "Name2" Then
Range("H11").Select
ActiveCell.FormulaR1C1 = "1234"
End If
If Range("H11") = "Name3" Then
Range("H11").Select
ActiveCell.FormulaR1C1 = "12345"
End If
If Range("H11") = "Name4" Then
Range("H11").Select
ActiveCell.FormulaR1C1 = "123456"
End If
If Range("BA2") = 1 Then
Range("C19:V78").Replace What:="17", Replacement:="1", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Das ganze kommt ganz oft für verschiedene Werte
End If
If Range("BA2") = 2 Then
Range("C19:V78").Replace What:="23", Replacement:="5", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Das ganze kommt ganz oft für verschiedene Werte
End If
Application.Dialogs(xlDialogPrint).Show
End If
End Sub
+++
Das Problem tritt ab den If's auf, wo Zelle BA2 geprüft wird und es wird der Gesamte Block übersprungen (Ja, BA2 ist immer korrekt gefüllt)
Bin am verzweifeln...