Office: VBA täglich aktuelle daten in neue zeile speichern und verlauf in diagramm anzeigen

Das hat jetzt gedauert, bin nicht so firm im Kopieren von Werten von einem Blatt ins andere.
Da funktioniert Range scheinbar nicht. Warum auch immer...

Dann mach's so

Code:

For Zähler = 0 To 9
    BlattSchreiben.Cells(4 + Zähler, Tag + 1).Value = BlattLesen.Cells(25 + Zähler, 7).Value
Next Zähler

Gruß,
Lutz

 

Vielen dank jetzt funktionierts !
Ein Problem weniger.


gruß tom

 

Das Prinzip besagt, dass - wenn man sich nicht auf das aktive Tabellenblatt bezieht - bei allen Zellbezügen vor Range und vor Cells der Name des betreffenden Tabellenblattes angegeben werden muss, also theoretisch so:

Code:

Sheets("Auswertung_SF_Meldungen").Range([COLOR=#ff0000]Sheets("Auswertung_SF_Meldungen").[/COLOR]Cells(4, Tag + 1), [COLOR=#ff0000]Sheets("Auswertung_SF_Meldungen").[/COLOR]Cells(12, Tag  + 1)) = Sheets("SF-Report").Range([COLOR=#0000ff]Sheets("SF-Report").[/COLOR]Cells(25, 7), [COLOR=#0000ff]Sheets("SF-Report").[/COLOR]Cells(33, 7))

Bis später,
Karin

 

Hallo Karin,

ich komme erst heute dazu, mich dazu zu melden.

Das habe ich auch probiert, war aber ohne Erfolg: Es passiert einfach nix.
Dann habe ich die beiden Teile mit einem .activate versehen und habe eine Laufzeitfehler 1004 erhalten. " Die Activate-Methode des Range-Objekts konnte nicht ausgeführt werden.
Im aktiven Blatt funktioniert's, aber der Blattwechsle gibt nen Fehler.

Wo ist der Fehler?

Gruß,
Lutz

 

Hi Lutz,

ich würde es sowieso über Copy lösen:

Code:

Sheets("SF-Report").Range(Sheets("SF-Report").Cells(25, 7), Sheets("SF-Report").Cells(33, 7)).Copy Sheets("Auswertung_SF_Meldungen").Cells(4, Tag + 1)

Bis später,
Karin

 

Hallo Beverly,

da kopierst Du natürlich auch Rahmen, Farben etc.
Hast Du außer .Copy und .PasteSpecial Paste:=xlValues noch ne andere Variante auf Lager?

Aber hast Du ne Idee, warum der Code

Code:

Sheets("Auswertung_SF_Meldungen").Range(Sheets("Auswertung_SF_Meldungen").Cells(4, Tag + 1), Sheets("Auswertung_SF_Meldungen").Cells(12, Tag  + 1)) = Sheets("SF-Report").Range(Sheets("SF-Report").Cells(25, 7), Sheets("SF-Report").Cells(33, 7))

nicht funktioniert?
Habe auch schon .Resize versucht, ohne Erfolg. VBA hat da irgendein Problem mit mehrzelligen Bereichen.

Gruß,
Lutz

 

Hi Lutz,

Gewiss gibt es noch weitere Varianten - dazu einfach mal den Makrorekorder benutzen, hängt ja davon ab, WAS alles übertragen werden soll.

Über ein Array ließe es sich mittels Resize nach diesem Prinzip lösen:

Code:

    Dim arrDaten
    arrDaten = Worksheets("Tabelle1").Range(Worksheets("Tabelle1").Cells(1, 1), Worksheets("Tabelle1").Cells(5, 2))
    Worksheets("Tabelle2").Cells(5, 4).Resize(5, 2) = arrDaten

Bis später,
Karin