Excel VBA - Laufzeitfehler ... Die Methode 'Value' für das Objekt 'Range' ist fehlgeschlage

hallo claus,

das scheint so nicht (zumindest bei mir) zu klappen.

verwende ich "in einer Folie => Einfügen => Objekt => Microsoft Excel Macro-Enabled Worksheet." kann ich mein sheet nicht verwenden. pp fügt ein leeres sheet ein.

verwende ich hingegen "Einfügen => Objekt => Aus Datei." erhalte ich einen laufzeitfehler ´1004` die methode "range" für das objekt "_global" ist fehlgeschlagen.

sollte dieses ein generelles problem darstellen, so denke ich, werde ich wohl mit verknüpfungen zur excel datei arbeiten müssen.

danke.

berthold

ich werde wahnsinnig!!!

gestern hat alles wunderbar funktioniert....heute meldet mir EXCEL bei Ablauf des Makros an der Stelle wo der 2. Drucker eingestellt wird:

Laufzeitfehler '1004':

Die Methode 'ActivePrinter' für das Objekt '_Application' ist fehlgeschlagen

HILFE!!!!

Hallo Chris

Es hat soweit geklappt, doch immer wenn ich den Befehl ausführe geht ein Visual Basic Fenster auf mit der Meldung:

Laufzeitfehler "1004".:

Fehler der Methode "NumberFormat" des Objekts "Range".

Kannst du mir vielleicht nochmals weiter helfen?

Besten Dank

Claudio

Befehl

Workbooks.OpenXML (filename, Stylesheets,Loadoption)

Workbooks.OpenXML (path, 1, 2)

1 ist mein erstes Stylesheet

2 Loadoption als XML-Liste

wenn ich die Loadoption auf 1 setze dann öffnet er es als schreibgeschützte Arbeitsmappe

und das Funktioniert ist aber nicht mein Ziel weil er die dann ganz anders anzeigt

Laufzeitfehler '1004':

Die Methode 'OpenXML' für das Objekt 'Workbooks' ist fehlgeschlagen

.Fill.GradientStops(2).Color.RGB = RGB(Range("Rot").Value, Range("Grün").Value, Range("Blau").Value)
die Fehlermeldung, die Methode Range für das Object Range........ist fehlgeschlagen.

Ist ganz einfach: Es gibt keine benannten Zellen "Rot", "Grün" oder "Blau" im Blatt.

BTW: Bitte benutze niemals SELECT, SELECTION, ACTIVECELL, es ist langsam und fehleranfällig. Referenziere immer die Objekte.

Andreas.

Sub BlasenFaerben()

  Dim LetzteZeile As Long, i As Long

  Dim Prozentwert As Double, Grenze1 As Double, Grenze2 As Double

  

  Dim C As Chart

  Set C = ActiveSheet.ChartObjects(1).Chart

  

  LetzteZeile = Cells(Cells.Rows.Count, 1).End(xlUp).Row

  For i = 2 To LetzteZeile

    Prozentwert = Cells(i, 5).Value

    Grenze1 = 1 - Prozentwert

    Grenze2 = 1.001 - Prozentwert

    If Prozentwert <= 0 Then

      Grenze1 = 1

      Grenze2 = 1

    ElseIf Prozentwert >= 1 Then

      Grenze1 = 0

      Grenze2 = 0

    End If

    With C.SeriesCollection(1).Points(i - 1).Format

      .Fill.TwoColorGradient msoGradientHorizontal, 1

      .Fill.GradientStops(1).Color.RGB = RGB(220, 220, 220)

      .Fill.GradientStops(1).Position = Grenze1

      .Fill.GradientStops(2).Color.RGB = RGB(Range("Rot").Value, Range("Grün").Value, Range("Blau").Value)

      .Fill.GradientStops(2).Position = Grenze2

    End With

  Next

End Sub