Frage an die Excel-Experten - 500 Beiträge pro Seite

[Selter]

Hallo,

zum Moneymanagement nutze ich seit längerer Zeit Excel.
Nun möchte ich gern meine Arbeitsschritte etwas automatisieren...
Bisher hatte ich in einem Tabellenblatt meine aktuellen Konto-Stände, den Depotwert etc. eingetragen, im zweiten Tabellenblatt habe ich diese Werte in eine fortlaufende Tabelle eingetragen (sozusagen eine Art Kontoauszug).
Das sieht in etwa so aus:

Tabelle1
--------
Kontostand Depotwert Gesamtvermögen
10______________20____________30


Tabelle2
--------
Datum Kontostand Depotwert Gesamtvermögen Performance
1.1.02______5____________5__________10
8.1.02______7____________6__________13______________30%
15.1.02_____7____________8__________15______________50%

5.4.02_____...__________..._________..._____________...

Wie bekomme ich nun Excel dazu die aktuellen Werte aus Tab1 z.B. durch drücken eines Buttons in die entsprechende Zelle zu übernehmen.
Ein einfaches kopieren einer Zahl in eine feste Zelle bekomme ich ja noch per Makro hin, aber das Problem mit dem "Fortschreiben" kann ich nicht lösen....

Ich würde mich sehr freuen, wenn Ihr mir weiterhelfen könnt.

Viele Grüße
Selter

[MrBombastic]

Schau hier rein:

http://spotlight.de/zforen/mse/t/forum_mse_1.html

[smashmind]

bei einer fortlaufenden Tabelle
kannst du mit nem Makro schaffen

einfach Strg und danach down ins Makro übernehmen

dann übernimmt er dir immer den letzten Wert

[Selter]

Hallo smashmind,

danke für Deinen Beitrag, aber irgendwie verstehe ich das nicht...


einfach Strg und danach down ins Makro übernehmen
dann übernimmt er dir immer den letzten Wert

Was/wie soll ich das ins Makro übernehmen .... vielleicht kannst Du mir den Quelltext des Makros posten??!


Selter

[smashmind]

@selter

hier bitte

Range("A1",).Select
Selection.End(x1Down,).Select
Selection.Copy
Sheets("Tabelle2",).Select
Range("B3",).Select
ActiveSheet.Paste
Sheets("tabelle1",).Select
Range("A5",).Select
End Sub

z:B:
kannst natürlich deine Felder dahür nehmen
ich hoff du kommst klar damit

kommas vor kLAMMER WEGLASSEN

[Selter]

@ smashmind

... oh je, irgendwie reichen meine Kenntnisse doch nicht - kannst Du bitte den Code kommentieren....

Im Moment bekomme ich immer einen Laufzeitfehler `1004` ...Anwendungs- oder objektdefinierter Fehler


Im Prinzip will ich ja nur verschiedene Werte (sagen wir aus Tab1 Zelle A1, A2 und A3 in Tabelle2 in die Zeile übernehmen, wo sich gerade der Cursor befindet ... aber natürlich in die richtigen Spalten

...die Sache ist aber auch nicht so einfach zu erklären...


Danke
Selter

[smashmind]

@selter

hast du die Kommas vor der Endklammer weggelassen?
konnte ich ohne Kommas nicht schreiben sonst häts ein Smilie gegeben.

jetzt ganz einfach:
Makro aufzeichnen ist klar
dann gehst du auf die erste Stelle deiner Tabelle
und Drückst dannach Strg und Pfeiltaste(Down)
das ergibt den Text
Range("A1",).Select
Selection.End(x1Down,).Select
dann Strg + C (wenn du den letzten Wert kopieren willst)
und dann Strg + V (auf das Feld in dem du einfügen willst)

und dann kannst du noch zurückgehen
und schon ist das Makro fertig

[smashmind]

...und dann ne Schaltfläche (einfach ein Rechteck)
und Makro zuweisen
fertig
End sub nicht vergessen
sonst gibts ne Schleife

[Selter]

Okay - das habe ich soweit verstanden...

Wie kann ich nun aus Tabelle 1 die Zellen A1, B1 und C1 in die Tabelle2 in die Zeile übernehmen, wo sich gerade der Cursor befindet (im Moment zB in Zeile 5) ...

Also ind folgender Form:

Tab1 >>> Tab2
--------------
A1 >>>> D5
B1 >>>> E5
C1 >>>> F5

morgen will ich dann die neuen Zahlen aus Tab1 in Tab2 übernehmen, diesmal aber dann in Spalte 6 ... und übermorgen in Spalte 7 .... usw.

Quellcode reicht, Syntax habe ich verstanden (hoffe ich)

Danke für Deine Hilfe
Selter

[smashmind]

steht doch oben

durch Strg + Pfeiltaste (down)
die du ins Makro übernommen hast
ist geht der Cursor immer auf die letzte Reihe der Tabelle
und übernimmt die Zahl.

Range("A1",).Select
Selection.End(x1Down,).Select
(denk dran,ohne Kommas)

die Tabelle muß aber durchgehend ohne Leerreihen sein

ich nehm mal an das i´st bei dir der Fall
da du ja höchstwarscheinlich nach Datum einpflegst

ersetzte dann z.B A1 einfach durch deine Spalte die du willst.
dann funzt es

[Selter]

@smashmind

Ich glaube wir haben aneinander vorbei "geredet" ... Ich bin gestern das Makro nochmal Schritt für Schritt durchgegangen.
Wie Du es konstruiert hast, kann ich jetzt aus einer sich ständig erweiternden Tabelle jeweils die letzte Zeile kopieren.
Allerdings brauche ich den umgekehrten Weg - ich will aus einer Zelle einen Wert (der sich oft ändert) sozusagen in einer Liste "festhalten".
Dazu muß das EINFÜGEN immer am Ende der Tabelle erfolgen .... habe das analog auch mit STRG+down probiert, aber das klappt nicht


Selter

[smashmind]

@selter

ja haben wir wohl
dann mußt du mit S-Verweisen arbeiten
die Erklärung würde zu lange dauern,wenn du noch nie mit denen gearbeitet hast.

hier ein super Forum,da wird dir sofort geholfen:

http://www.herber.de

smash

[Selter]

Hallo smashmind,

SVERWEIS sagt mir etwas - habe vor langer Zeit etwas damit gemacht ...
Also ist mein Wunsch nicht mit einem Makro realisierbar - trotzdem vielen Dank für Deine Hilfe


Selter

[Selter]

@ Smashmind

.... nochmal Danke für den Tip mit dem Excel-Forum - habe jetzt ein tolles Makro gebastelt

Selter