Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
|
Verfasst am: 12.10.2012 07:45:27 Titel: Excel Problem |
|
|
Guten morgen zusammen
Ich habe volgendes Problem:
In der Tabelle1 (Die Datenblätter unten im Fuss) habe ich mehrere Felder die ich ausfüllen muss, und komme dann zu einem Ergebnis.
Genau dieses Ergebnis will ich dann (evtl. per Knopf) in die Tabelle2 (Nächste Tablle im Fuss) kopieren (Feld A1).
Dann mache ich die nächste Rechnung fülle wieder die diversen Felder aus, und komme wieder zu einem (anderen) Ergebnis. Dieses will ich dan wieder in der Tabelle2 haben, aber das alte Ergebnis von vorher auf Feld nicht überschreiben, sondern das neue Ergebnis unten dran auf aufgelistet haben.
Grund ist der das ich nicht immer das Ergebnis Copie Paste händisch machen muss, da ich nachher die ganzen ergebnisse miteinander auswerten muss.
Grezz | _________________ --> Meins!, Meins!, Meins!, Meins! <--
Der-Letzte Besitzer dieses Fahrzeugs. |
|
|
Nach oben |
|
 |
 Abenteurer

Mit dabei seit Ende 2007 Wohnort: Norge Status: Urlaub
| Fahrzeuge 1. Toyota Hilux Arctic Trucks 37" 3. Unimog U1750L 4. Volvo TGB 11/11 Panzerjäger 5. Volvo BV202 |
|
Verfasst am: 12.10.2012 08:01:09 Titel: |
|
|
Normal beziehst du dich ja nur auf eine Zelle deiner aktuellen Tabelle, also A7 oder so.
Das geht auch mit Nahmen einer anderen Tabelle. Also nicht A7 sondern Sheet2!A7
Sheet2 ist dabei der Name dem du den anderen Tabellenreiter gegeben hast.
Mvh
Christian | _________________ The Survival of the fittest.
...............Charles Darwin
 |
|
|
Nach oben |
|
 |
|
Verfasst am: 12.10.2012 08:09:39 Titel: |
|
|
Jup da ahst du recht, aber wenn ich nun sagen wir mal auf der Tabelle 2 eine "=Sheet1!C8" mache dann habe ich das Ergebnis was ich immoment habe (von der Tabelle 1 im C8) drin. Wenn ich aber nun eine neue Rechnung mache (und logischer weise ein neues Ergebnis erhalte) wird das alte Ergebnis ja wieder überschrieben. Dies soll es aber ebend nicht, sondern soll unten dran aufgelistet werden. | _________________ --> Meins!, Meins!, Meins!, Meins! <--
Der-Letzte Besitzer dieses Fahrzeugs. |
|
|
Nach oben |
|
 |
 Offroader


Mit dabei seit Ende 2009 Wohnort: Hamburg Status: Verschollen
| Fahrzeuge 1. G-350  2. Pajero V20 lang  3. Mini Cabrio  4. Frankia WoMo  |
|
Verfasst am: 12.10.2012 08:18:31 Titel: |
|
|
Moin,
das geht nur per Makro:
Du musst erst das Ergebnis kopieren (strg-c), dann in das andere Blatt wechseln, dort die letzte beschrieben Zelle finden und einen nach unten gehen. Dort dann die Zwischenablage einfügen.
Beste Grüße & viel Erfolg!
Lars | |
|
|
Nach oben |
|
 |
|
Verfasst am: 12.10.2012 08:26:36 Titel: |
|
|
HamburgerJunge hat folgendes geschrieben: | Moin,
das geht nur per Makro:
Du musst erst das Ergebnis kopieren (strg-c), dann in das andere Blatt wechseln, dort die letzte beschrieben Zelle finden und einen nach unten gehen. Dort dann die Zwischenablage einfügen.
Beste Grüße & viel Erfolg!
Lars |
Jup so sieht es aus. Und nun habe ich hoffnungen das mit jemand das Makro schreiben kann.
Anpassen mit den verschiedenen Tabellen usw. bekomme ich dann denke mal selber gebacken. | _________________ --> Meins!, Meins!, Meins!, Meins! <--
Der-Letzte Besitzer dieses Fahrzeugs. |
|
|
Nach oben |
|
 |
 Erntehelfer


Mit dabei seit Mitte 2005 Wohnort: Zurich Status: Verschollen
| Fahrzeuge 1.  Land Rover Defender TD5 2.  Fahrrad |
|
Verfasst am: 12.10.2012 08:34:08 Titel: |
|
|
du kannst das makro doch aufnehmen. | _________________ Panamericana von Nord nach Sued. Start: May 2017
granviaje.ch |
|
|
Nach oben |
|
 |
 Offroader


Mit dabei seit Ende 2009 Wohnort: Hamburg Status: Verschollen
| Fahrzeuge 1. G-350  2. Pajero V20 lang  3. Mini Cabrio  4. Frankia WoMo  |
|
Verfasst am: 12.10.2012 17:14:55 Titel: |
|
|
Moin,
so als Anhaltspunkt mal:
Name 1. Blatt: Aufgabe
Name 2. Blatt: Antwort
In einer Zelle im Blatt Antwort das Wort <Ergebnis> eintragen.
Im Blatt Aufgabe dann in dem zu kopieren Wert stehen und das Macro (evtl über Tastankombination) starten.
Und dann Ergebnis anschauen.
Selection.Copy
Sheets("Antwort").Select
Cells.Find(What:="Ergebnis", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Viel Erfolg!
Lars | |
|
|
Nach oben |
|
 |
 Club der Ehemaligen
Status: Immer da - Ehrlich Du bist daheim :-)
| |
|
Verfasst am: 12.10.2012 17:19:56 Titel: |
|
|
Jetzt weiß ich wenigstens, was Du den ganzen Tag machst, Lars. Mit Excel rumspielen. Und ich dachte immer, selbständig ist anstrengend  | |
|
|
Nach oben |
|
 |
 Offroader


Mit dabei seit Ende 2009 Wohnort: Hamburg Status: Verschollen
| Fahrzeuge 1. G-350  2. Pajero V20 lang  3. Mini Cabrio  4. Frankia WoMo  |
|
Verfasst am: 12.10.2012 17:48:25 Titel: |
|
|
Dirty Duck hat folgendes geschrieben: | Jetzt weiß ich wenigstens, was Du den ganzen Tag machst, Lars. Mit Excel rumspielen. Und ich dachte immer, selbständig ist anstrengend  |
Hey, das stimmt nicht! Ich mach das nicht den ganzen Tag, nur den halben. Den andern halben mache ich Gewinnspiele
(das waren ca. 5 Minuten ) | |
|
|
Nach oben |
|
 |
|
Verfasst am: 13.10.2012 11:22:03 Titel: |
|
|
Wunder vielen dank schon mal.
ich werde es am Montag in der Firma mal testen und Bericht erstatten.
grezz | _________________ --> Meins!, Meins!, Meins!, Meins! <--
Der-Letzte Besitzer dieses Fahrzeugs. |
|
|
Nach oben |
|
 |
|
Verfasst am: 15.10.2012 17:06:13 Titel: |
|
|
Gem. Debugger hat er mit der Zeile ein Problem:
Code: | ActiveCell.Offset(1, 0).Range("A1").Select |
Er springt dann einfach in das sheet "Antwort" und geht dort ganz nach unten (A65536). | _________________ --> Meins!, Meins!, Meins!, Meins! <--
Der-Letzte Besitzer dieses Fahrzeugs. |
|
|
Nach oben |
|
 |
 Offroader


Mit dabei seit Ende 2009 Wohnort: Hamburg Status: Verschollen
| Fahrzeuge 1. G-350  2. Pajero V20 lang  3. Mini Cabrio  4. Frankia WoMo  |
|
Verfasst am: 15.10.2012 17:29:05 Titel: |
|
|
OK, eine Zeile fehlt...
Selection.Copy
Sheets("Antwort").Select
Range("B1").Select
Cells.Find(What:="Ergebnis", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.SpecialCells(xlLastCell).Select
Range("B4").Select
ActiveSheet.Paste | |
|
|
Nach oben |
|
 |
|
Verfasst am: 16.10.2012 10:16:37 Titel: |
|
|
ok wunderbar, also kopieren tut er nun, aber immer nur ins , sprich wenn ich ein neues ergebnis habe und ich das makro ausführe überschreibt er mir das vorhandene. Aber er sollte es unten dran packen. | _________________ --> Meins!, Meins!, Meins!, Meins! <--
Der-Letzte Besitzer dieses Fahrzeugs. |
|
|
Nach oben |
|
 |
|