Office: Wert in Spalte suchen und dann andere Werte kopieren

Hallo,

in meiner Tabelle sind mehrere Datensätze. Nun möchte ich in einer Spalte einen Buchstaben (z.B. ein "x") oder ähnliches eintragen und danach soll ein Makro diese Zeilen finden und bestimmte Zellwerte aus dieser Zeile in eine andere Tabelle kopieren. Mein Problem ist zum Anfang erstmal mit welcher Funktion ich das am Besten machen sollte (if, find)? Der zweite Schritt wäre dann wie ich es im Makro darstelle, dass er diesen bestimmten Wert findet.

So das wären erstmal meine Fragen. Alles weitere wird sich dann noch ergeben!

Vielen Dank!

seppco

:)

 

hiho

Code:

 

Hallo,

erstmal vielen Dank für die Antwort und entschuldige dass ich mich erst jetzt melde. Hatte bis jetzt keine Zeit mich mit dem Thema weiter zu beschäftigen.

Den Code den du geschickt hast finde ich beeindruckend. Er hilft mir leider noch nicht so ganz. Mit der Datenübernahme in eine andere Tabelle meine ich eine andere Datei. Also angenommen es gibt 2 Dateien mit den Namen a.xls und b.xls und beide sind geöffnet. Dann möchte ich, dass er wenn in der Datei a.xls in Tabellenblatt 1, Zelle B1 ein "x" steht er den Wert der Zelle A1 in die Datei b.xls in Tabellenblatt 3, Zelle A5 kopiert. Das ganze brauch nicht automatisch stattfinden wie in deiner Demo-Datei. Ich habe mir einen Menüpunkt erstellt, der diese Aktion auslösen soll.

Vielen, vielen Dank für Deine/Eure Hilfe!

Gruß

seppco

 

hi

*grins
von Datei stand ja nichts in deiner ersten Frage *Smilie
nur warum sollte wenn in B1 was eingetragen A1 in A5 übertragen werden
was ist wenn was in B2 eingetragen ist, sollte dann A2 in A6

heißen die Dateien wirklich a und b? *wink.gif*
willst du wirklich einen Menüpunkt oder meinst du eine Schaltfläche auf dem Tabellenblatt.

sollen nach dem Übertragen die X in B entfernt werden?
wenn nicht, was soll passieren wenn ein x entfernt wird, soll dann der Wert in der anderen Mappe wieder entfernt werden?

wenn der Wert bleiben kann, was ist wenn wieder ein x in B1 eingetragen wird soll dann A5 mit dem neuen Wert aus A1 der Mappe a übertragen werden.

usw..

 

Hallo,

das ist kompliziert zu erklären, aber ich versuche es. Ich habe die Datei a in der wichtige Daten stehen die in die datei b geschrieben werden sollen. In der Datei a soll das makro sein. Der Menüpunkt soll die Übertragung starten. Das bisherige Makro öffnet die andere Datei automatisch. Dann sollen die Daten übertragen werden. Immer nach dem Schema wenn in B1 ein "x" steht dann A1 in A5, B2 dann A2 in A6. Dies sind nur Beispiele. Das anpassen an meine Tabellenverhältnisse kann ich dann selber machen, es geht nur um das grundsätzliche Prozedere wenn in B2 ein "x" steht dann kopiere die Zelle in die andere Datei Zelle XX. NAch der Prozedur wird die Datei b automatisch gespeichert (auch dafür existiert das Makro bereits). Nach der Übertragung sollen keine anderen Sachen passieren (das x nicht löschen, bzw. den Löschkommentar erstmal auskommentieren, könnte ich dann bei Bedarf ja einschalten). Die letzten beiden Fragen haben dann keine Relevanz, da die Datei immer unter einem neuen Namen abgespeichert wird.

Ich hoffe, das ich das jetzt ordentlich erklärt habe. Mit Beispieldateien ist es etwas schwierig, aber wenn die Erklärung hier noch nicht reicht, dann werde ich mal 2 Dateien zurecht basteln.

Danke schonmal!

Grüße

seppco

 

hi

Demodateien wären sehr hilfreich.
wäre nett wenn du welche uploaden könntest.

 

Hallo,

hier die Demodateien.

Danke

seppco

a.xls
b.xls

 

hi

hier mal ein Versuch

 

Hallo,

Ja, das ist schon ungefähr das was ich suche. Ein was habe ich nicht erklärt. Die b.xls ist immer leer. Nun will ich ja dort quasi einen Datensatz anlegen, da stören natürlich die ganzen Leerzellen. Kann man es so einstellen, das er die Daten die er kopiert immer schön aneinander in die Zellen kopiert? Das heißt wenn in der a.xls zehnmal ein x steht, dann sollten in der b.xls die Felder A1-A10 ausgefüllt sein.

Schonmal vielen Dank!

Gruß

seppco

 

hi

dachte ich mir schon *wink.gif*

 

Also das ist genau das was ich suche. Vielen Dank! Ich werde das jetzt auf meine Tabellen anpassen. Bei Problemen melde ich mich nochmal.

Gruß

seppco

 

Hallo,

ich habe noch ein Problem gefunden. Die Tabelle in die die Daten geschrieben werden sollen hat ein Blattschutz. D.h. es kommt während der Ausführung des Makros eine Fehlermeldung und die Daten werden nicht übertragen. Wenn ich die Daten von Hand kopiere kommt die Fehlermeldung nicht. Kann man im Makro das so umschrieben, das quasi nur eine Kopieraktion simuliert wird?

Danke!

seppco

 

Moin, seppco,

Kann ich irgendwie nicht direkt nachvollziehen. Wie wäre es denn mit dem Aufheben des Blattschutzes für die Dauer des Umschreibens (ActiveScheet.UnProtect "Passwort" bzw. ActiveSheet.Protect "Passwort") oder das Setzen des Blattschutzen beim Öffnen der Zielmappe im Workbook_Open-Ereignis mit dem Parameter UserInterfacOnly:=True, der das Schreiben per Makro zulässt?