Artikelnummer kopieren in nächste Zeile
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
Antwort schreiben
Antwort 1 von Saarbauer vom 19.01.2021, 21:04 Options
Hallo,
grundsätzlich ja, aber der Nachbau deiner Tabelle ist aufwendig, besteht die möglichkeit eine Beispieltabelle zur Verfügung zu stellen
Gruß
Helmut
Antwort 2 von Mira123 vom 19.01.2021, 21:33 Options
Hallo Helmut,
die excel tabelle kann ich gerne per email schicken
weiss nur nicht wohin. oder kann ich eine datei hier hochladen?
Danke
Antwort 3 von fedjo vom 20.01.2021, 10:51 Options
Hallo Mira123,
du kannst deine Datei hier hochladen:
file-uploadGruß
fedjo
Antwort 4 von Mira123 vom 20.01.2021, 21:26 Options
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
Antwort 5 von fedjo vom 22.01.2021, 09:58 Options
Hallo Mira,
wenn ich deine Angaben richtig verstanden habe dann könnte es mit VBA in deiner Datei
Test so funktioniern.
Gruß
fedjo
Antwort 6 von mira123 vom 22.01.2021, 22:25 Options
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
Antwort 7 von fedjo vom 23.01.2021, 14:27 Options
Hallo Mira,
das Datum in VBA = Now oder = Date.
Gruß
fedjo
Test2
Antwort 8 von mira123 vom 23.01.2021, 18:59 Options
Jetzt hab ich mich extra registrieren lassen um dir
eine Gute Bewertung zu hinterlassen.
Vielen Vielen Dank
Du hast mir sehr geholfen.
Gruß Mira
Antwort 9 von mira123 vom 23.01.2021, 20:51 Options
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
Antwort 10 von fedjo vom 24.01.2021, 09:44 Options
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