Office: Zellwert suchen und Bereich Links und Rechts daneben Kopiere

Hallo Miteinander,

ich möchte ein Schichtbuch machen, das in etwa so aussieht.

Arbeitsblatt mit dem Namen 'Schicht'
	A	B	C	D	E	F	G
4	Datum	Schicht	Name	Status	Verantwortlicher	Info	Bemerkung
5	16.11.2012	1	a	ROT			tz
6	16.11.2012	2	b	In Arbeit			tz
7	16.11.2012	3	g	Erledigt			tz
8	16.11.2012	2	f	ROT			tz
9	16.11.2012	2	hz			Info	tz
10	16.11.2012	2	r	ROT			tz
11	16.11.2012	2	e			Änderung	tz
12	16.11.2012	3		Erledigt			tz
13	16.11.2012	3				Wichtig	tz
14	16.11.2012	3

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Der Wunsch ist, dass In Spalte D nach den Worten "ROT" und "In Arbeit" gesucht werden soll, wenn eines oder Beide gefunden werden sollen die Zellen Links komplett und Rechts bis G kopiert werden und in dieses Sheet "Aktuell" eingefügt werden, dieses soll über einen Button im Sheet "Aktuell" gestartet werden. Und bei jedem Starten die alten Werte löschen, damit bei Änderungen vom Status nur die gerade "Aktuellen" Probleme auftauchen.

Desweiteren soll in der Spalte F nach "Änderung" gesucht werden und dann die Zellen Links und Rechts daneben Kopiert werden und in das Sheet "Änderungen" eingefügt werden. Ebenfalls gestartet über einen Button. Und bei jedem Starten die alten Werte löschen. (Oder geht es, das nur NEUE Zeilen hinzugefügt werden?)

Arbeitsblatt mit dem Namen 'Aktuell'
	A	B	C	D	E	F	G
4	Datum	Schicht	Name	Status	Verantwortlicher	Info	Bemerkung
5	16.11.2012	1	a	ROT			tz
6	16.11.2012	2	b	In Arbeit			tz
7	16.11.2012	2	f	ROT			tz
8	16.11.2012	2	r	ROT			tz

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

In dieses

Arbeitsblatt mit dem Namen 'Änderungen'
	A	B	C	D	E	F	G
4	Datum	Schicht	Name	Status	Verantwortlicher	Info	Bemerkung
5	16.11.2012		e			Änderung	tz
6
7

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Komplette Zeilen zu kopieren ist ein bisschen schlecht, da ich einige Formeln Verweise etc. ab Spallte G stehen habe.


Das Schichtbuch wird über das ganze Jahr geführt und dadurch kommen einige Zeilen zusammen.

Ich hoffe ihr könnt mir helfen.

Mit freundlichen Grüßen

Redfrog

:)

 

Hallo Redfrog,

ich habe da mal was gestrickt und hoffe, es entspricht deinen Vorstellungen.
In der Ursprungstabelle habe ich den Spalten Namen gegeben, z.B. "Status" und "Info".
Auf den Blättern "Aktuell" und "Änderungen" befindet sich jeweils eine Schaltfläche, die den Kopiervorgang auslöst. Auf Blatt "Aktuell":
Code:

und auf Blatt "Änderungen" leicht angepasst das Gleiche:
Code:

Beispielmappe anbei.

 

Hallo Hasso,

erstmal danke für die schnelle Antwort!

Man ist das "einfach" aufgebaut.

Hatte das mit einer If folge versucht aber nicht hinbekommen.

Ist der Code von Office 2003 und Office 2007 so unterschiedlich?

Werde das in das Schichtbuch aufnehmen und Testen ob dann alles geht.

Funktioniert bis jetzt wunderbar!

Gruß

Redfrog

 

Guten Abend Hasso,

habe die Original Datei nicht da, deswegen kurz das zusammengeschuster wie es aussieht und Funktionieren sollte :-)

Jetzt bekomm ich den Fehler Objekt erforderlich. Der setzt den USEDRANGE nicht.

Liegt das an der Sheets Reihenfolge?

EDIT:
hab es gefunden, man sollte alles lesen was du geschrieben hast *wink.gif*

Dennoch eine kleinigkeit, die Zeile mit der Überschrift würde ich gerne behalten und nicht weglöschen.

Kann man den USEDRANGE definieren, oder sollte ich die Zeile jedesmal wieder mit reinkopieren?


Gruß

Redfrog

 

Hallo Redfrog,

Das wäre wohl die einfachste Möglichkeit. Sonst müsstest du immer nur alles ab Zeile 5 bis zur letzten Zeile löschen. Das wäre programmtechnisch etwas aufwändiger.