Office: Durch VBA Zellenwerte speichern lassen

Hallo ,

Ich habe die Aufgabe eine excel datei anzulegen, in der in Tabellenblatt 1 von A1-C10 Zahlen eingegeben werden sollen. Nach Klicken eines Buttons sollen diese zahlen in Blatt 2 gespeichert werden.
Anschließend soll man in Blatt 1 von A1-C10 wieder neue Zahlen eingeben können, die dann nach Klicken des Buttons neben die alten Zahlen gespeichert werden.
Da ich von VBA nicht so wirklich die Ahnung habe, habe ich bisher schon mal soweit hinbekommen, dass der mir das erste mal die Zahlen aus A1-C10 speichert. Aber wie sage ich dem Ding, dass der, wenn in Blatt 2 von A1-C10 schon daten stehen, dass er dann die neuen Daten in D1-F10 speichert?

Über eine Hilfe wäre ich sehr dankbar.

:-D


Gruß Andy

 

Hallo Andy,

lass das Makro doch in A1 auf Blatt 2 springen. Dann machste

Selection.End(xlToRight).Offset(0, 1).Select

Damit geht er in die erste freie Zelle in der ersten Zeile und dort kannste einfügen.

Gruß
Michael

 

Hi Michael,

Danke für deine schnelle Antwort. Hat super geklappt.

Doch ich will ja auch etwas lernen. :lol:

Sucht er mit diesem Befehl: "Selection.End(xlToRight)" solange, bis die Zelle leer ist?

Was müsste ich in der Befehlszeile ändern, wenn der das nicht in Zelle D1-F10 schreiben soll, sondern in A11-C20?

Vielen Dank nochmal


Gruß Andy

 

Selection.End(xlToRight).Select markiert die letzte gefüllte Zelle rechts von der Zelle in der man sich befindet. Das Offset rückt dann noch eines nach rechts.

Selection.End(xlDown).Select ist das Pendant dazu nach unten.

Gruß
Michael

 

Hallo Michael

danke.

Aber jetzt steh ich schon mit dem nächsten problem da. :roll:

Also die eigentliche aufgabe der ganzen sache ist diese, dass man in Blatt 1 jede woche einmal Bewertungspunkte eingibt von A1-C10.
Die drei Spalten sind: "Schlecht (Spalte A)", "Mittelmäßig (Spalte B)" und "Gut (Spalte C)".
Der soll mir dann ein Blakendiagramm erstellen. In dieses Balkendiagramm soll die Bewertungen von dieser Woche aufgezeigt werden. Des Weiteren soll noch, deshalb das speichern der Werte, eine Linie mit den Werten der letzten Woche gezeigt werden, sowie von allen bisherigen eingegebenen Bewertungen der Mittelwert. Das soll irgendwie alles in ein Diagramm.
Mein bisheriges Verständnis von Excel-Diagramm sagt mir, dass das wahrscheinlich nicht gehen wird, aber vielleicht weiß ja jemand einen Trick, wie man das irgendwie machen kann.


Gruß Andy

 

kann mir ehrlich gesagt nicht genau vorstellen wie das Diagramm aussehen soll. Kannst Du mal ein Beispiel hochladen in dem Werte drin sind und darin so genau wie möglich beschreiben wie das Diagramm aussehen soll?

Gruß
michael

 

In dieser Datei sind schon Diagramm drin.
Die Diagramm wurde mit den derzeitigen Werten gefüllt.

Es soll aber noch in jedes dieser Diagramme noch so eine Art Trendlinie rein, die den Mittelwert aus den Zahlen der letzten Wochen hat, deshalb sollten ja irgendwie die Zahlen gespeichert werden.

Dann soll noch eine Trendline der Letzten Speicherung rein.

D.h. im Klartext, Ich gebe in das formular Zahlen ein. Drücke dann auf einen Button, dieser Speichert mir die Zahlen in ein anderes Blatt. Excel erstellt dann automatisch aus den soeben eingegebenen Daten ein Diagramm. Außerdem soll in das Diagramm noch eine Linie mit rein, die zeigt wie die Bewertung bei der letzten Speicherung war und eine Linie, die zeigt, wie der Durchschnitt von allen bisherigen speicherungen war.

Ich hoffe das ist einigermaßen verständliches Deutsch.

Andy

 

Hallo Andy,

ich denke ich habe einigermaßen verstanden was du meinst. Das ist meines Wissens nach so in Exceldiagrammen leider nicht darstellbar.

Gruß
Michael

 

Das hab ich mir fast schon gedacht, als mir mein Chef die Aufgabe gegeben hat.

Dann muss ich ihm das wohl irgendwie anders hinzaubern. Dazu nochmal eine Frage zu dem Makro welches mir die Zahlen in einem anderem Blatt speichert.

Ich mach es jetzt Zeilenweise. Ich betrachte das jetzt alles nur für eine Zeile, d.h. er nimmt die drei zahlen aus der ersten zeile und speichert die in ein neues blatt. wenn ich dann drei neue Zahlen eingebe und wieder auf speichern drücke, dann soll er mir diese drei neuen Zahlen unter die vorherigen speichern.

wie muss mein Quellcode dann genau ausehen?

momentan sieht er so aus:

Sub Schaltfläche2_BeiKlick()

Range("A1:C1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

aber der überschreibt mir bei weiterem speichern die alten Zahlen.

wenn ich dann das mit dem

"Selection.End(xlDown).Select" , erweitere, dann speichert er mir die nächsten zahlen in Zeile 65536.

Andy

 

Mach einfach mal ne Überschrift in Zeile 1 und kopiere die ersten Werte manuell rein. Dann funktionierts.