VBA Fehler. Bitte um Hilfe

[Andrek]

Hallo zusammen.

Ich habe folgendes Problem:

Da ich einer Anfänger bin, was VBA betrifft, arbeite ich auch mit VBA-Recorder - was vielleicht nicht gerade sauber ist, aber bis jetzt immer für meine Zwecke ausgereicht hat.

Jetzt habe ich auf eine Problem gestoßen, dass meine eigene Dateien wo ich vor einige Zeit erstellt habe nicht mehr funktionieren! Obwohl früher alles gut geklappt hat! => und das bei mehreren Dateien mit gleiche Störung/Fehler (siehe Anhang).

Gedacht war so:

wenn in der mittlere Steuerung zwischen 0% - 50% - 100% schalte - tut sich unter anderem die Farbe von dazugehörigen Kreisen ändern.

Beispiel Datei + das Bild mit Fehler lege ich dazu.

Hat eine Idee was sich da geändert hat? Warum es früher gut funktioniert hat und jetzt auf einmal das gleiche Problem bei der mehreren Dateien auftaucht.

Habe die Datei auf verschiedenen PC getestet.

Für eure Unterstützung wäre ich sehr Dankbar.

Viele Grüße
André

[DIZA]

Hallo,

entferne mal den Blattschutz. Vlt. klappt es dann wieder.

[Andrek]

Hallo.

Ich habe eigentlich immer das Blattschutz mit folgende Formel umgegangen:

ActiveSheet.Protect "Bwa", UserInterfaceOnly:=True

Diesen Befehl/Formel habe ich auch von hier(clever-excel-forum) - und das hat wie gesagt immer gut funktioniert bis gewissen Zeitpunkt wo auf einmal diese Fehler kam 

VG André

[Kuwer]

Hallo André,

Ich habe eigentlich immer das Blattschutz mit folgende Formel umgegangen:
ActiveSheet.Protect "Bwa", UserInterfaceOnly:=True

und uneigentlich sind alle diese Zeilen auskommentiert.

Gruß, Uwe

[Andrek]

Hallo Uwe 

nein, die Zeilen habe ich auskommentiert - bevor ich die Sachen hier hoch geladen habe. Weil ich davor schon verschiedene Möglichkeiten schon ausprobiert habe: mit Blattschutz, ohne Blattschutz usw.. 

Gruß
André

[Kuwer]

Hallo André,

als ich die Kommentierung aufhob, lief es ohne Fehlermeldung.

Gruß, Uwe

[Andrek]

Vielen Dank Uwe,

ich werde morgen auf einem anderen Rechner probieren und gebe dann die Rückmeldung.

Das hat mich auch gewundert, dass mehrere Dateien, die auf ähnliche Weise programmiert wurden, auf einmal die selbe Fehler auslösten, obwohl früher alles mit dem Blattschutz gut funktioniert hat und da wurde nicht zwischendrin gefummelt   

Viele Gruße
André

[Kuwer]

Hallo André,

ich habe jetzt mal den Code (für den 1. Geber) auf das Wesentliche beschränkt und alle Selects entfernt. So sollte es keine Probleme mehr geben. Für alle weiteren Geber passt Du das dann entsprechend an.

Code:

Sub geb_01_aus()
  With ActiveSheet
    '.Protect "Bwa", UserInterfaceOnly:=True
    .Shapes("Rectangle 1").Fill.ForeColor.RGB = RGB(217, 217, 217)
    .Shapes("Rectangle 83").Fill.ForeColor.RGB = RGB(217, 217, 217)
    .Shapes("Rectangle 79").Fill.ForeColor.RGB = RGB(192, 0, 0)
    .Shapes("Geblaese_01").Fill.ForeColor.RGB = RGB(192, 0, 0)
    .Range("H21").Value = 0
  End With
End Sub
Sub geb_01_50()
  With ActiveSheet
    '.Protect "Bwa", UserInterfaceOnly:=True
    .Shapes("Rectangle 1").Fill.ForeColor.RGB = RGB(217, 217, 217)
    .Shapes("Rectangle 83").Fill.ForeColor.RGB = RGB(255, 192, 0)
    .Shapes("Rectangle 79").Fill.ForeColor.RGB = RGB(217, 217, 217)
    .Shapes("Geblaese_01").Fill.ForeColor.RGB = RGB(255, 192, 0)
    .Range("H21").Value = 6238
  End With
End Sub
Sub geb_01_100()
  With ActiveSheet
    '.Protect "Bwa", UserInterfaceOnly:=True
    .Shapes("Rectangle 1").Fill.ForeColor.RGB = RGB(112, 173, 71)
    .Shapes("Rectangle 83").Fill.ForeColor.RGB = RGB(217, 217, 217)
    .Shapes("Rectangle 79").Fill.ForeColor.RGB = RGB(217, 217, 217)
    .Shapes("Geblaese_01").Fill.ForeColor.RGB = RGB(112, 173, 71)
    .Range("H21").Value = 12079
  End With
End Sub

Gruß, Uwe

[Andrek]

Hallo Uwe,

vielen herzlichen Dank! Habe ausprobiert auch für den 2-ten Geber => funktioniert "BOMBE"!! 

Man lernt immer wieder was neu dazu und dafür bin euch sehr dankbar! 

Viele Grüße
André