Excel Bug - Formatierung ändert sich wenn nicht aktiv

[Spike87]

Hallo,

Problem:
Ich hab seit ca 3 Wochen in Office 2016 das Problem, dass durch VBA erstellte Werte (z.b.) hyperlinks, anders formatiert sind, wenn das Arbeitsblatt grade nicht aktiv ist. Vorher hat alles ohne Probleme funktioniert, habs auf nem anderen Office 2016er PC probiert und das selbe Problem und auf zwei 2010er Office PCs probiert und da war das Problem nicht. Muss also ein neuer Bug sein!

Habe ich z.b. Tabelle1 und Tabelle2 in einer Arbeitsmappe, erstelle über ein Makro in Tabelle2 hyperlinks, dann sind diese ganz normal blau und unterstrichen, wenn ich beim ausführen Tabelle2 angewählt habe. Wenn ich Tabelle1 aber aktiviert habe, beim Ausführen des Makros, dann sind die Hyperlinks schwarz und nicht unterstrichen.
Setze ich einen Haltepunkt in das Makro und wechsel zwischen dem Erstellen der Hyperlinks die Arbeitsblätter, dann sind schwarze und blaue dabei - je nach dem.

Das ganze passiert nicht nur bei Hyperlinks und hat auch nichts mit dem Code zu tun, habe das ganze mehrmals reproduzieren können. Daher meine Frage, ist das ein bekannter Bug und gibt es dafür eine Abhilfe? Manuelles als auch automatisches Update der Office Version hat leider nicht funktioniert.
Es ist auch nicht das Problem, dass 2 Fonts in einer Zelle vorhanden sind und er sie deswegen auf das ursprüngliche zurücksetzt.

Gerne würde ich das ganze auch an den Support von Windows weitergeben, leider führen aber Einträge in das Diskussionsforum derzeit nur zu irgendwelchen Error Nachrichten von JSON . Anders kann man den Support aber nicht kontaktieren - ganz, ganz toll!


Liebe Grüße,
Marc

[schauan]

Hallo Marc,

ist das auch in einer "nagelneuen" Datei so?
Kannst Du mal eine codeschnipsel posten, dass man das genau nachstellen kann?

[Spike87]

Hallo Schauan,
Ja dies ist auch bei neuen Dateien so. Ich hab hier mal Code zum Zeigen angefügt. Das ganze passiert nicht bei Systemen unter Office 2010, wie es bei 2013 ist weiß ich nicht.
Das schlimmste ist, ich kann einfach nicht den Windows Support erreichen um das ganze weiterzugeben.
Das deutsche Technikforum, auf welches man verwiesen wird, funktioniert nicht und eine direkte Addresse zum Kontakt gibt es nicht.

Hab es dann noch geschafft jemanden vom Kundendienst als Chatsupport zu bekommen, leider konnten die mir nicht helfen und haben mir ne Nummer gegeben zum Anrufen. Da kommt man aber nicht weiter, weil die Hilfe da 500! $ kosten würde. Ich will doch einfach nur nen Bug nennen!

Also der Code ist denke ich mal selbsterklärend, gebraucht wird dafür nur eine Arbeitsmappe mit den Arbeitsblättern Tabelle1 und Tabelle2. Am besten auch mal mit F8 durchklicken und dabei die Arbeitsblätter wechseln!
Liebe Grüße,
Marc

Edit: Verrückterweise tritt das Problem Heute bei diesem Code nicht mehr auf! Dafür macht er manchmal die Zellen aus der Spalte "A" zusätzlich blau. Gestern ist das Problem aber definitiv wie beschrieben passiert, ich hatte heute noch die gespeicherte Datei mit den gemischt blau-schwarzen Zellen in der Spalte "B".

Bei dem anderem Makro passiert es aber immer noch.

Code:

  Sub test()
 
'Hyperlinks are blue, if "Tabelle2" is selected when running the macro
'Hyperlinks are black, if Tabelle1" is selected then running the macro
 
Dim count As Integer

 
  ' Aus den gefundenen Dokumenten Hyperlinks machen
For count = 0 To 10
 With Worksheets("Tabelle2")
    If .Cells(1 + count, 1).Value <> 0 Then
       .Hyperlinks.Add Anchor:=.Cells(1 + count, 2), _
          Address:="test.de", _
          TextToDisplay:="link"
         

    End If
 End With
Next count

  End Sub

[Willie017]

Hallo

ich kann das hier nicht nachvollziehen...

[Spike87]

Edit: Verrückterweise tritt das Problem Heute bei diesem Code nicht mehr auf! Dafür macht er manchmal die Zellen aus der Spalte "A" zusätzlich blau. Gestern ist das Problem aber definitiv wie beschrieben passiert, ich hatte heute noch die gespeicherte Datei mit den gemischt blau-schwarzen Zellen in der Spalte "B".

Bei dem anderem Makro passiert es aber immer noch.

Ich versuch das ganze mal anders zu reproduzieren.

Edit: Das Problem besteht weiterhin, bitte probiere einmal mit vorheriger Aktivierung des Tabellenblattes1 das ganze aus:

Code:

 
 
 
  Sub test()
 
'Hyperlinks are blue, if "Tabelle2" is selected when running the macro
'Hyperlinks are black, if Tabelle1" is selected then running the macro
 
Dim count As Integer

  Worksheets("Tabelle1").Select
 
  ' Aus den gefundenen Dokumenten Hyperlinks machen
For count = 0 To 10
 With Worksheets("Tabelle2")
    If .Cells(1 + count, 1).Value <> 0 Then
       .Hyperlinks.Add Anchor:=.Cells(1 + count, 2), _
          Address:="test.de", _
          TextToDisplay:="link"
         

    End If
 End With
Next count

  End Sub

[RPP63]

Moin!
Ja, ich konnte dies reproduzieren, scheint ein Käferchen zu sein.
Aber warum selektierst Du denn unnützerweise Tabelle1.
Bei aktiver Tabelle 2 gibt es ja kein Problem.

Gruß Ralf

[Spike87]

Danke für die Bestätigung.

Das ganze ist nicht mein viele tausend Zeilen großer Code, in dem ich absichtlich ohne Select arbeite, sondern Beispielcode um den Bug zu reproduzieren. Also mit dem Tip ist mir nicht geholfen.
Hat irgendwer irgendeine Idee, wie ich das ganze weitergeben kann zum fixen?

Liebe Grüße,
Marc

[Spike87]

Hier ist der Forumseintrag im Windows Forum, aber naja die Hilfe ist eher "mäßig"..

https://social.technet.microsoft.com/For...orum=excel

[Willie017]

Auf einem anderen Rechner kann ich es immer noch nicht nachvollziehen(O365 ProPlus, V1705 B8201.2200 C+R)

[RPP63]

Zwischenstand:
Gerade neues Update gezogen:
Version 1710 8625.2121
Bug bleibt.
(meine Versionsangabe im Header lasse ich mal bis morgen so stehen)

Zusatz:
Bei Uservoice habe ich auch schon sinnvolle Vorschläge gemacht, die von der Community wohlwollend aufgenommen wurden.
Allein, es fehlt die Umsetzung …  :17:

Gruß Ralf