2007: Daten aus Zelle in andere Zelle übertragen

Sascha_95e720 · 7. Januar 2012 um 11:43

Hallo zusammen,

hab da noch ne Frage.
Ich möchte z.B. Daten in Tabelle 1 Zelle A1 eingeben.
Anschl. sollen die Daten in Tabelle 2 Zelle A1 ebenfalls wiedergegeben werden.
Das habe ich bereits gelöst indem ich in Tabelle 2 Zelle A1 = gedrückt habe und die Zelle A1 der Tabelle 1 angewählt habe.
Nun habe ich das ganze nach unten gezogen da ich weitere Daten übertragen will.
Problem ist nun, dass Excel automatisch bei Zellen in welchen NOCH keine Eintragungen vorhanden sind eine 0 setzt.
Wie kann ich den Eintrag von 0 unterbinden? Es soll nur übertragen werden wenn ein Eintrag vorhanden ist.

Besten Dank schon mal.

lg Sascha

Anonym · 7. Januar 2012 um 11:59

Hallo Sascha.

Das kannst Du auf zwei Arten lösen:

Entweder Du deaktivierst in den Excel-Optionen das Anzeigen von Null-Werten, oder Du verwendest in Tabelle2!A1 die Formel =WENN(Tabelle1!A1="";"";Tabelle1!A1).

VG
Carsten

Sascha_95e720 · 7. Januar 2012 um 12:18

Hallo Carsten,

funktioniert optimal.
Besten Dank.

Kann ich denn eigentlich auch ein eingebettetes Bild von einem Tabellenblatt auf ein anderes übertragen?

Gruß
Sascha

Anonym · 7. Januar 2012 um 12:34

Hallo Sascha.

Kann ich denn eigentlich auch ein eingebettetes Bild von einem
Tabellenblatt auf ein anderes übertragen?

Diese Frage kann ich leider nicht umfassend beantworten. Ich denke, mit Copy und Paste in VBA-Code wird es funktionieren. Ob es z.B. mit irgendwelchen Verweisen in Excel-Funktionen geht, ist mir nicht bekannt.

VG
Carsten

Sascha_95e720 · 7. Januar 2012 um 12:45

Hallo Carsten,

wie funktioniert denn das mit dem VBA Code dann?

Gruß

Anonym · 7. Januar 2012 um 14:40

Hallo Sascha.

wie funktioniert denn das mit dem VBA Code dann?

Dazu müßte ich von Dir erst einmal eine detaillierte Beschreibung haben, was wann wie passieren soll.

Ein pauschales Code-Fragment sieht z.B. so aus:

Sheets("Tabelle1").Range("A1").Copy Sheets("Tabelle2").Range("A1")

VG
Carsten

Sascha_95e720 · 7. Januar 2012 um 14:50

Hallo Carsten,

zur Beschreibung was passieren soll.
Ich stelle es mir wiefolgt vor. Ich bette ein Bild in Tabelle 1 Zelle A1 ein sodass ich das Bild dort sehen kann.
Nun möchte ich auf Tabelle 2 umschalten und dieses Bild dort ebenfalls in Zelle A1 sehen.

Wie kann ich in Excel2007 einen Code eingeben?

Gruß
Sascha

Reinhard_fb8cb7 · 7. Januar 2012 um 15:34

Ich stelle es mir wiefolgt vor. Ich bette ein Bild in Tabelle
1 Zelle A1 ein sodass ich das Bild dort sehen kann.
Nun möchte ich auf Tabelle 2 umschalten und dieses Bild dort
ebenfalls in Zelle A1 sehen.
Wie kann ich in Excel2007 einen Code eingeben?

Hallo Sascha,

Alt+F11, Einfügen—Modul, dortrein kopierst du nachfolgenden Code,
dann schließt du den VB-Editor wieder.
In Excel wähle Tabelle1 aus, wähle oben „Entwicklertools“ aus, dann „Einfügen“.
Dort nimmst du das Symbol "Schaltfläche aus Formularsteuerelemente und „ziehst“ dir eine Schaltfläche im Blatt „auf“,
bei „Makro zuweisen“ wählst du „BildKopieren“ aus.

Hast du in XL 2007 oben die Auswahl „Entwicklertools“?
Wenn NICHT, so schau mal hier.

Benutzung der Schaltfläche, Bild markieren, auf Schaltfläche klicken.

Gruß
Reinhard

Option Explicit

Sub BildKopieren()
On Error GoTo hell
If TypeName(Selection) = "Picture" Then
 With Worksheets("Tabelle2")
 Selection.Copy
 .Paste
 .Shapes(.Shapes.Count).Top = Selection.Top
 .Shapes(.Shapes.Count).Left = Selection.Left
 End With
Else
 MsgBox "Erste ein Bild markieren dann Button klicken", vbExclamation
End If
hell:
If Err.Number 0 Then MsgBox Err.Number & vbCrLf & Err.Description
End Sub

Anonym · 7. Januar 2012 um 15:52

Hallo Sascha.

Wie kann ich in Excel2007 einen Code eingeben?

Dazu eine kleine Beschreibung, falls Du noch nie im VisualBasic-Editor warst:

Gehe in die Excel-Optionen
Aktiviere in der Rubrik „Häufig verwendet“ die Option „Entwicklerregisterkarte in der Multifunktionsleiste anzeigen“
Verlasse die Excel-Optionen mit Ok.

Jetzt sollte in der Multifunktionsleiste das Register „Entwicklertools“ erscheinen, bitte darauf klicken.

Ein Klick auf die erste Schaltfläche mit der Bezeichnung „Visual Basic“ (in der Gruppe Code) führt Dich in den Visual Basic-Editor.

Dort angekommen, solltest Du den Projekt-Explorer sehen, der unter Anderem eine Auflistung der in der Mappe enthaltenen Tabellen enthält. Falls der Projekt-Explorer nicht sichtbar ist, klicke im Menü „Ansicht“ auf Projekt-Explorer.

Jetzt müsste ein Code-Fenster (z.B. von Tabelle1 geöffnet werden, um Code einzugeben. Doppelklicke im Projekt-Explorer einfach 'mal auf Tabelle1, dann öffnet sich das Code-Fenster dieser Tabelle. Sämtlicher Code gehört hinterher in diese Code-Fenster.

Das Code-Fragment, das ich schrieb, würde in irgendeine Prozedur gehören, z.B. in ein Ereignis von Tabelle1. Einfach so nütz Dir dieses Code-Fragment also nichts.

zur Beschreibung was passieren soll.
Ich stelle es mir wiefolgt vor. Ich bette ein Bild in Tabelle
1 Zelle A1 ein sodass ich das Bild dort sehen kann.
Nun möchte ich auf Tabelle 2 umschalten und dieses Bild dort
ebenfalls in Zelle A1 sehen.

Das wird schwierig: Es gibt meines Wissens kein Tabellenblatt-Ereignis, das ausglöst wird, wenn ein Anwender eine Bild in eine Zelle einfügt.

Man müsste schon anhand irgendeiner anderen Bedingung z.B. das Change-Ereignis der Tabelle auslösen, z.B. durch die Eingabe eines Textes in eine Zelle.

Du kannst ja 'mal überlegen, ob eine solche Bedingung realisierbar wäre.
Beispiel:
Tabelle1!A2 enthält ein Bild
In Tabelle1!A1 wird ein Text eingetragen
Nach Drücken von Return wird der Text von Tabelle1!A1 nach Tabelle2!A1 kopiert und das Bild von Tabelle1!A2 wird nach Tabelle2!A2 kopiert.

So etwas in der Richtung.

VG
Carsten

Sascha_95e720 · 7. Januar 2012 um 17:50

Hallo Reinhard,

besten Dank für diese Variante. Hat auch nach deiner Anleitung funktioniert. Nur habe ich dann ein Problem.
Wenn ich nun auf kopieren drücke wird das Bild zwar schon in das andere Tabellenblatt kopiert aber nicht in eine bestimmte Zelle eingebettet.
Dies führt dann beim einschränken des Filters dazu das die kopierten Bilder hin und hergeschoben werden.
Verstehst du was ich meine?
Es ist so, dass auf Tabelle 1 die Bilder immer nur in Spalte J eingebettet werden. Dort dann in jede Zeile. Je Eintrag ein Bild.

Gruß
Sascha

Helmut_Taunus · 7. Januar 2012 um 18:03

Daten in Zelle von anderer Zelle holen
andersrum denken…

Reinhard_fb8cb7 · 7. Januar 2012 um 18:54

Hallo Sascha,

besten Dank für diese Variante. Hat auch nach deiner Anleitung
funktioniert. Nur habe ich dann ein Problem.
Wenn ich nun auf kopieren drücke wird das Bild zwar schon in
das andere Tabellenblatt kopiert aber nicht in eine bestimmte
Zelle eingebettet.

das Bild wird wie von dir gewünscht in Tabelle2 an der gleichen
Zellposition eingefügt die es in Tabelle1 hat.

Beweis: http://www.file-upload.net/download-4011269/Sascha.x…

Markiere da ein beliebiges Bild und klick auf den Button.

Dies führt dann beim einschränken des Filters dazu das die
kopierten Bilder hin und hergeschoben werden.

Das ist doch was völlig anderes.

Verstehst du was ich meine?

Ich glaube ja, aber ich kenne inzwischen zig Varinaten wie du es meinen könntest.
Jede ist ggfs. anders zu lösen falls überhaupt lösbar.
Excel hat da m.E. eine Eigenlogik was das Fixieren von Bildern an eine Zelle betrifft wenn gefiltert wird.
Ggfs. muß ich dann mit Vba nachhelfen damit das Ergebnis wieder meiner Logik entspricht

Machen wir es die Beitragsfolge verkürzend so.
So wie ich erstelle mal eine beispielmappe mit deinen Filterungen.
Erklär dann anhand der Beispiel gezielt was du da erreichen willst.

Gruß
Reinhard

Reinhard_fb8cb7 · 7. Januar 2012 um 19:24

Ich möchte z.B. Daten in Tabelle 1 Zelle A1 eingeben.
Anschl. sollen die Daten in Tabelle 2 Zelle A1 ebenfalls
wiedergegeben werden.

Hallo Sascha,

beschreib doch mal bitte auf was du hinauswillst.
Willst du in Blatt2 eine immer aktuelle Kopie der daten/bilder in Blatt1 haben?

Oder wegen deiner „Filterung“, willst du in Blatt1 immer was neues hinzufügen/abändern also zelldaten, Bilder und automatisch
soll das auch in Blatt2 sichtbar sein aber angepasst an die dortigen grad herrschenden Filterbedingungen?

Oder, oder, …

Sprich

Gruß
Reinhard