Thema Datum  Von Nutzer Rating
Antwort
Rot ScreenUpdating=False funktioniert nicht
 18.10.2006 17:46:29 Oliver
NotSolved
19.10.2006 07:51:10 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Oliver		 Datum:
18.10.2006 17:46:29		 Views:
2012		 Rating:
     
Antwort:
  Ja
Thema:
ScreenUpdating=False funktioniert nicht
Hallo,

ich hab das Problem, daß in meinem Makro das ScreenUpdating nicht ausgeschaltet wird, obwohl ich anfangs Application.ScreenUpdating=False setze.


Die einzige Folge, die diese Zeile hat, ist daß ein Diagramm, das ich später im Makro erzeuge, nicht entsprechend formatiert wird, wenn ich einen Parameter 0 auf 1 setze.

prinzipiell sieht mein makro so aus:


sub makro ()
Application.ScreenUpdating=False
dim i as integer
dim j as integer
dim par as integer

if par =0 then
.........
elseif par =1 then
.........
endif


Charts.Add
ActiveChart.ChartType = xlColumnClustered
If (par=0) Then
ActiveChart.SetSourceData Source:=Range(Sheets("Éingabe").Cells(10, 1), Sheets("Eingabe").Cells(11, (laufzeit + 1))), _
PlotBy:=xlRows
ElseIf par=1 then
ActiveChart.SetSourceData Source:=Range(Sheets("Ausgabe").Cells(18, 15), Sheets("Ausgabe").Cells(19, (laufzeit + 16))), _
PlotBy:=xlRows
End If


ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=3
With Selection
.Fill.Visible = True
.Fill.ForeColor.SchemeColor = 1
.Fill.BackColor.SchemeColor = 2
End With


endsub


wäre schön, wenn mir jemand helfen könnte.

lG

Oliver

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot ScreenUpdating=False funktioniert nicht
 18.10.2006 17:46:29 Oliver
NotSolved
19.10.2006 07:51:10 Rasta
NotSolved