Artikelnummer kopieren in nächste Zeile

Question

Hallo allerseits,
ich habe hier schon mal die frage gestellt komme aber leider nicht weiter.

ich habe in meinem tabellenblatt 1 in der zelle d12 eine scrollfeld in dem ich aus meinem tabellenblatt2 verschiedene
artikelnummern auswählen kann. Diese werden dann durch
einen sverweis in den Zellen F6 und F10 mit Bezeichnung und Merkmal ausgeben.
ZB gebe ich in D12 die Artikelnummer 1000 ein
dann steht in F6 - Arbeitshose Blau
und in F10 - Größe 48

Jetzt möchte ich bei einer Auswahl einer Nummer in D12 nicht nur die Artikelbezeichnung in F6 und Merkmal in F10 ausgegeben haben sondern auch gleichzeitig die Bezeichnungen und das Merkmale aus F6 und F10 in
die Zelle C18 kopiert haben.

Bei der nächsten Eingabe in D12 mit einer anderen Auswahl soll aber das Ergebnis aus F6 und F10 in C19 kopiert werden und nicht wieder in C18

Bei der nächsten Eingabe dann in C20 usw.
Ist das möglich?


Vielen Dank

Answer 1

Hallo,

grundsätzlich ja, aber der Nachbau deiner Tabelle ist aufwendig, besteht die möglichkeit eine Beispieltabelle zur Verfügung zu stellen

Gruß

Helmut

Answer 2

Hallo Helmut,

die excel tabelle kann ich gerne per email schicken
weiss nur nicht wohin. oder kann ich eine datei hier hochladen?

Danke

Answer 3

Hallo Mira123,
du kannst deine Datei hier hochladen:
file-upload

Gruß
fedjo

Answer 4

Vielen Dank für den Link,

hier ist meine Excel Datei
ich hoffe irgentjemand kann mir weiterhelfen

http://www.file-upload.net/download-1395665/Test.xls.html

Grüße Mira

Answer 5

Hallo Mira,
wenn ich deine Angaben richtig verstanden habe dann könnte es mit VBA in deiner Datei Test so funktioniern.

Gruß
fedjo

Answer 6

Ist ja Irre - Es funktioniert wirklich.
Vielen Vielen Dank -

Jetzt habe ich aber noch eine Frage und hoffe da kannst du mir
eventuell auch helfen. Dies ist nicht so dringend also
kannst du dir mal in einer Ruhigen Minute Gedanken machen.

Die Excel Datei Test hab ich noch modifiziert

Die Tabelle1 heißt jetzt Ausleihe
Eine Neue Tabelle2 heißt jetzt Rücknahme
Tabelle3 heißt Artikel
Tabelle 4 heißt Allgemein

Jetzt möchte ich in Tabelle1 (Ausleihe) wenn ich D12 die Artikelnr. eingebe und unten dann in C18 - D18 und I18 die
Bezeichnung usw reinkopiert wird, das in K18 das aktuelle
Datum eingetragen wird. Bei der nächsten Eingabe in D12 soll das ganze natürlich in K19 ... usw. reinkopiert werden.
Ich weiß das geht mit =heute() aber
das Datum ändert sich wenn ich die Datei speichere und am
nächsten Tag wieder öffne.
Das Datum muß aber bleiben.

Eventuell kannst du mir auch da noch einmal helfen
Ich habe die Datei nochmal hochgeladen :)))

http://www.file-upload.net/download-1400920/Test2.xls.html

Vielen Dank

Mira

Answer 7

Hallo Mira,
das Datum in VBA = Now oder = Date.
Gruß
fedjo
Test2

Answer 8

Jetzt hab ich mich extra registrieren lassen um dir
eine Gute Bewertung zu hinterlassen.

Vielen Vielen Dank

Du hast mir sehr geholfen.

Gruß Mira

Answer 9

Hallo

eine Frage habe ich noch hinterher. Ich habe bei meiner
Datei jetzt den Blattschutz aktiviert und dort nur
die - nicht gesperrte Zellen auswählen - angeklickt
Meine einzige nicht gesperrt Zelle ist die D12 als die Zelle
in der ich die Artikelnummern eingebe.

Jetzt funktioniert der VBA Code leider nicht mehr.
Er zeigt folgenden Fehler an:
Laufzeitfehler 1004 - Anwendung oder Objektbedingter Fehler

wenn ich jetzt auf debuggen klicke markiert er folgende Zeile gelb
Range("C16").End(xlDown).Offset(1, 0) = Range("D12").Value

Ist das nur ein Einstellungsfehler oder muß hier auch was
im Code geändert werden?

Gruß und Vielen Dank
Mira123

Answer 10

Hallo Mira,
bin kein registriertes Mitglied, habe in diesem Forum auch viel Hilfe erhalten und möchte nach meinen Möglichkeiten auch immer wieder dazu beitragen.

Tabellen "Ausleihe, Rücknahme" habe ich mit einem Blattschutz versehen. Kennwort "Mira"
Der Blattschutz wird durch eine Auswahl in der Zelle "D12" aufgehoben ( Sheets("Rücknahme").Unprotect "Mira") und nach dem eintragen der Daten wieder gesperrt. ( Sheets("Rücknahme").Protect "Mira")
In der Tabelle "D" habe ich die Formel mit einer "Wenn Abfrage" erweitert.

Test2