Office: Wenn in Zelle "X", dann Zeile kopieren

Hallo Community,

ich brauche dringend eure Hilfe!

Ich habe ein Tabellenblatt mit Daten von Spalte A bis W.

Jetzt möchte ich folgende Changefunktionen ins Tabellenblatt einbinden:

1) Kopierfunktion:
Wenn in Spalte O ein "X" eingetragen wird, dann soll er die komplette Zeile kopieren und diese direkt unter der Zeile, wo das "X" eingetragen wurde, einfügen.
Zudem soll er bei beiden Datensätzen in Spalte U einen Text hinterlegen:
- alter Datensatz "1. XYZ"
- neuer Datensatz "2. XYZ"

2) Editierfunktion
Wenn in Spalte P ein "X" eingetragen wird, dann soll für diese Zeile der Schreibschutz in Spalte H und I aufgehoben werden.

3) Zeitstempelfunktion
Diese Funktion habe ich bereits im Tabellenblatt hinterlegt.
Code:

Vielen Dank im Voraus und schöne Grüße

moonr

:)

 

1. Das Thema findest du zig-fach bei Mr. Goo!
2. Meine Meinung zu "Dringend", "Eilig", ... kannst du hier nachlesen. Wir arbeiten hier schließlich alle gratis und keine Anfrage ist wichtiger als eine andere ...

Günther

 

Warum muss man denn immer die User, gerade die Anfänger, immer so maßregeln?
Für mich ist diese Anfrage dringend, für andere, wie auch bestimmt für dich, nicht. Ja und jetzt?

Natürlich habe ich mich im Vorfeld schlau gemacht und nach passenden Lösungen gesucht - bin schon selbständig ;-)

Aber gerade die Kombination aus mehreren Bedingungen in einer Changefunktion hat bei mir als absoluter VBA-Neuling nicht hingehauen. -> Daher mein Forumsbeitrag. Und ich denke, dass es doch der Sinn eines Forums ist, anderen Usern helfen zu können. Oder siehst du das anders?

Ich hoffe es gibt hier noch den ein oder anderen netten User, der mich hier unterstützen würde.

Vielen Dank vorab und schöne Grüße

 

Hallo moonr,

mit einer Beispieldatei erleichterst Du den Helfern die Arbeit.

Und wenn der Blattschutz schon aktiviert ist, solltest Du das Password mitliefern.

Gruß
Aloys

 

Und jetzt: Falls du im Link nachgesehen hast: Erkläre mir, warum du etwas Besonderes bist und bevorzugte Behandlung verdienst. - Ich sehe das auch nicht als Maßregelung an sondern als Hinweis darauf, dass es öfter einmal besser ist, sich in die Reihe der Wartenden einzureihen.

Und was "Anfänger" betrifft: Falls du damit die fachliche Seite meinst (Excel), dann ist das doch klar, dass wir Helfer dieses "Klientel" zu über 90% "bedienen". Oder: Es sind fast immer Anfänger, denen wir helfen, und das freiwillig und gerne. Und solange ein Fragesteller nicht eine Komplettlösung haben will, ist jede Frage willkommen.

Na gut, dann hast du vielleicht die falschen Suchbegriffe verwendet. DAS war aber nicht der Auslöser meiner Antwort, wie du dir vielleicht denken kannst.

 

\@GMG-CC
Du ich fühl mich nicht als was Besonderes, ok?!
Und deinen Link habe ich nicht gelesen, weil ich für sowas keine Zeit habe. Du scheinst für sowas aber ganz schön viel Zeit aufzubringen. Nimm doch diese Zeit und helfe lieber den Leuten, als unnötigen Speicher auf dem Server zu produzieren und lass jetzt bitte hier den Thread frei für das eigentliche Thema, danke!

@Aloys78
Du warst ja schon das letzte Mal mein Retter :-)

Eine Beispielsdatei ist wohl sinnvoller als mein Geschriebenes - ich hänge sie mit diesem Post mal an. Ich habe auch ein paar Codeschnipsel dort hinterlegt, die ich dort einbauen wollte, aber leider ohne Erfolg.

Vielen Dank vorab!

 

Hallo moonr,

anbei mein Code-Vorschlag:

unter ThisWorkbook einfügen:
Code:

unter Blatt Datenbank Deinen Code ersetzen durch:
Code:

Anmerkungen
- beim Öffnen der Datei wird für Datenbank der Blattschutz eingeschaltet,
Password=aloys
- der Zellschutz für Sp H:I war nicht eingeschaltet, ggf manuell Blattschutz aufheben und Zellschutz für ausgewählte Spalten einschalten, danach Mappe sichern und schließen und anschließend wieder öffnen.

Gruß
Aloys

 

Aloys du bist echt der Beste!

Genau so wie ich es mir vorgestellt habe. Und durch dich lerne ich echt so viel dazu - kann man dich für Trainings buchen? :-)

 

Hallo moonr,

Es freut mich, dass ich Dir helfen konnte.
Aber bezüglich des Trainings muß ich Dich enttäuschen.

Ein Möglichkeit wäre, hierzu im MS-Office Forum einen eignen Beitrag zu eröffnen und dazulegen, was Du Dir konkret vorstellst.

VG
Aloys

 

Das wär mal ein Ansatz - vielen Dank für dein Angebot!

Ich habe doch noch ein Problem mit dem Code:

Und zwar wenn ich ein X eintrage und er die Zeile kopiert, überschreibt er mir den nächsten Datensatz, anstatt eine neue Zeile einzufügen und den Inhalt dort reinzukopieren.

Was muss ich da ändern?

 

Hallo moonr,

Ja, Du hast Recht, da fehlte eine Anweisung.
Code:

Gruß
Aloys

 

Hat wunderbar geklappt, danke dir!

 

Ich hätte da noch eine Frage bzgl. des Zeitstempels:

Wie muss ich denn meinen Code ändern, dass er Spalte A bis U erst ab Zeile 3 nach Änderungen überprüft? Zeile 1 und 2 möchte ich gerne da rausnehmen.

Code:

 

Hallo moonr,

zB so:
Code:

Gruß
Aloys

 

Hat wie immer super funktioniert. Vielen Dank Aloys und schon einmal ein schönes Wochenende für dich!

Viele Grüße, moonr