Frage zur Vereinfachung des VBA-Codes
08.05.2013 11:51:49
Toumas
bin ich gerade dabei meine ganzen Makros, die ich zum Teil mit dem Rekorder aufgezeichnet habe, zu vereinfachen (ich sag nur Select *g*).
kann ich so was hier :
ActiveSheet.ChartObjects("Diagramm 1").Visible = False
ActiveSheet.ChartObjects("Diagramm 2").Visible = False
ActiveSheet.ChartObjects("Diagramm 3").Visible = False
ActiveSheet.ChartObjects("Diagramm 4").Visible = False
ActiveSheet.ChartObjects("Diagramm 5").Visible = False
ActiveSheet.ChartObjects("Diagramm 6").Visible = False
ActiveSheet.ChartObjects("Diagramm 7").Visible = False
auch in eine Zeile bekommen, wie bei :
Range("A48,A51,A54,A57,A60,A63,A66").Interior.Color = 255
Ich hatte es zwar versucht auf die gleiche Art, aber da fehlt mir einfach noch der Durchstieg.
und....
wie kann ich bei
Range("A48,A51,A54,A57,A60,A63,A66").Interior.Color = 255
noch anfügen, dass in die gleichen Zeilen der Buchstabe A eingeschrieben wird ?
bisher sieht es nämlich noch bei mir so aus :
Range("A48,A51,A54,A57,A60,A63,A66").Interior.Color = 255
Range("A48,A51,A54,A57,A60,A63,A66").Value = "A"
(wobei ich schon stolz auf mich bin, dass ich die ganzen Select usw. die noch dabei herumschwirrten wegbekommen habe *g*)
Wäre super nett von euch, wenn ihr mir einen kleinen Tipp geben könntet.
In der Hoffnung, dass ich dann eines Tages euch nicht mehr so oft mit meinen Wünschen und Fragen "nerven" muss.
Viele Grüße und Danke im Voraus
Toumas