VBA - wenn bedingung erfüllt zellen kopieren

Re(13): VBA - wenn bedingung erfüllt zellen kopieren

Thunder — Wed, 02 Sep 2015 07:57:02 GMT

zweimaligen ausführen einer aktion habe ich mir auch schon überlegt

dann muss dein makro eben vorer im zielbereich schaun, ob der wunschname schon drin ist. ansich auch keine hexerei aber eben schon einen tick komplexer.

sverweis werde ich mir noch anschauen.

in deinem fall würde ich eine hilfsspalte und index/vergleich hernehmen. da wird nur einmal gesucht=berechnet, während bei sverweis jeder sverweis arbeit bedeutet. bei deiner datenmenge aber vermutlich kein spürbarer unterschied.

hier ist es schön erklärt:
http://www.excel-inside.de/funktionen-a-tipps/144-sverweis-vs-index-vergleich

ergänzend zur aussage "es gibt keinen geschwindigkeisunterschied". ja, wenn man nur einen wert aus der zielzeile haben will, jeder weitere wert wird bei sverweis neu gesucht obwohl man die zeile ja eigentlich schon weiß.

Re(12): VBA - wenn bedingung erfüllt zellen kopieren

soul — Wed, 02 Sep 2015 07:50:37 GMT

das problem mit dem zweimaligen ausführen einer aktion habe ich mir auch schon überlegt.
dann lasse ich es so wie bisher.
sverweis werde ich mir noch anschauen.

danke.

Re(11): VBA - wenn bedingung erfüllt zellen kopieren

Thunder — Wed, 02 Sep 2015 06:57:40 GMT

wie ich excel meinen wunsch mitteile ist das problem.

ok, immerhin einen schritt näher zum ziel. möglichkeiten wären
- ein button irgendwo am blatt, welcher ein makro startet - quick&dirty
- eine überwachung auf änderung bestimmter zellen - letzer ausweg
- tastenkombination - unauffällig aber muss man wissen
- zusätzlicher button in ribbonleiste - elegant

nach start des makros könnte eine inputbox kommen, in welche du den namen eingibst und dann wird er kopiert. hier zu beachten: was passiert, wennst diese aktion zweimal hintereinander machst? kommt er ein zweites mal in die neue liste?

trotzdem wirkt das ganz so, also ob du mit einem sverweis auch das auslangen findest und gar keine programmierung dazu brauchst.

Re(10): VBA - wenn bedingung erfüllt zellen kopieren

soul — Wed, 02 Sep 2015 06:33:20 GMT

wie ich excel meinen wunsch mitteile ist das problem. die namen, nach denen gesucht wird sind immer vorhanden. es ändern sich die zelleninhalte in der zeile die kopiert werden.
also sollte bei jeder änderung auch die kopierte zelle geändert werden.

bisher habe ich mir die zellen gesucht und mit = in die hilfstabelle übertragen.
da die namen nicht immer in der gleichen zeile stehen, muss das öfters geändert werden. das will ich automatisieren.

Re(9): VBA - wenn bedingung erfüllt zellen kopieren

Thunder — Wed, 02 Sep 2015 05:34:59 GMT

einmal probier ichs noch:
- du hast die ausgangstabelle - ok (screnshot 1)
- du willst "mizzi" kopiert haben - ok
- wie teilst du excel deinen wunsch mit? startest du ein makro welches eine inputbox beinhaltet oder den inhalt der selektierten zelle übernimmt? hast du eine onactionmakro, das sich bei änderung einer gewissen zelle startet? hast du in der ribbonleiste ein eingabefeld ergänzt? suchst du mit der excel-suche und willst, dass dann was passiert? was überprüfst du bereits in A1:A100 und wie? eine überprüfung ist bereits eine aktion, die irgendwie durchgeführt wurde.

oder ist genau dieser punkt bzgl. eingabe des gewünschten namen dein problem?

Re(8): VBA - wenn bedingung erfüllt zellen kopieren

soul — Tue, 01 Sep 2015 21:12:09 GMT

überprüfung ist in A1:A100 - nur in A stehen die namen. das ist ja noch die einfache sache. ungelöstes problem für mich: wie bekomme ich excel dazu mir die vorgegeben zellen zu kopieren.

Re(7): VBA - wenn bedingung erfüllt zellen kopieren

Thunder — Tue, 01 Sep 2015 19:04:08 GMT

sorry, ich checks nicht.

du hast deine tabelle wie im ersten screenshot. welche aktion setzt du dann, damit eine zeile woanders hinkopiert wird? wo spielt sich das ab/wo überprüft excel, das "mizzi" wahr ist?

Re(6): VBA - wenn bedingung erfüllt zellen kopieren

soul — Tue, 01 Sep 2015 18:47:01 GMT

wenn "mizzi" wahr ist - das war mein ansatz bisher.

Re(5): VBA - wenn bedingung erfüllt zellen kopieren

Thunder — Tue, 01 Sep 2015 18:20:49 GMT

und ich suche nach der

das ist unter anderem das entscheidende: wie suchst du nach mizzi?

Re(4): VBA - wenn bedingung erfüllt zellen kopieren

soul — Tue, 01 Sep 2015 18:17:48 GMT

es geht um die anordnung vorhandener daten in eine hilfstabelle.
und wenn in 5 mizi steht und ich suche nach der, sollte sie dann an huber + meier anschließend kopiert werden, wobei die reiehenfolge egal wäre, nur die erste zell, mit der die hilfstabelle begintt ist wichtig. darunter endlos platz.

Re(3): VBA - wenn bedingung erfüllt zellen kopieren

Thunder — Tue, 01 Sep 2015 17:33:32 GMT

ein sverweis bzw die index/vergleich kombi sind keine lösung? wer "sucht" wo nach maier und huber? gibst das bei bedarf in einer zelle ein oder gehts einfach um eine andere anordnung der vorhandenen daten? was wäre, wenn in deinem beispiel in zeile 5 noch mizzi stehen würde? kommt das dann automatisch als neue zeile drunter in c9:h9?

Re(2): VBA - wenn bedingung erfüllt zellen kopieren

soul — Tue, 01 Sep 2015 16:55:09 GMT

name kommt immer nur einmal vor. jetzt sollte dann der name, und die angegebenen zellen an eine bestimmte stelle innerhalb des gleichen arbeitsblattes kopiert werden.

ausgangslage zb:

http://vvcap.net/db/JIFQhPOxiC9VR-rFzYS5.png

ergebnis:

http://vvcap.net/db/twyW8fvPWg2462ivV-dt.png

Re: VBA - wenn bedingung erfüllt zellen kopieren

Thunder — Tue, 01 Sep 2015 13:31:51 GMT

eine variante zum finden der zeile, in der "huber" steht:

ActiveSheet.Rows(ActiveSheet.Range("A1:A20").Find("HUBER", LookAt:=xlWhole, MatchCase:=True).Row).Row

gibt dir die nummer der zeile zurück, in der zum ersten mal der name vorkommt.

Re: VBA - wenn bedingung erfüllt zellen kopieren

Thunder — Tue, 01 Sep 2015 13:22:55 GMT

wie suchst du? in einer zelle, in einem formular, per suchfunktion? was funktioniert schon, welchen code hast du dazu schon produziert? das ganze wirkt ein wenig komplexer als dein voriges problem und wird vermutlich nicht mit 5 zeilen abgehandelt sein

VBA - wenn bedingung erfüllt zellen kopieren

soul — Tue, 01 Sep 2015 12:46:36 GMT

noch ein problem, das mir nicht so recht funktioniert:

suche in A1:A20 nach "Meier"

Meier steht zb in A4 - jetzt soll A4 und C4:R4 kopierten werden, in das gleiche tabellenblatt ab zb.:M35

ideal wäre, wenn ich nach verschiedenen namen suchen könnte.

beispiel: suche nach Huber - wird gefunden in A7 - kopiert werden sollen dann A7 und C7:R7 immer in die darunterliegende zeile, nun beginnend mit M36 - in 35 würde schon Meier stehen.

die namen stehen immer in A

danke für die bemühungen.