Office: Wenn Zelle geleert wird, untere Zeile nach oben schieben

Guten Tag,

ich bin ein absoluter Newbie in Sachen VBA und Makro und habe ein Problem, was man vermutlich nur damit lösen kann

Grundsätzlich werden Artikel gescannt und die Artikelnummer automatisch nacheinander in Zellen der Spalte B meiner Tabelle geschickt

Danach wird manuell geprüft, ob der Artikel verfügbar ist.

Ist er es nicht, würde ich gerne folgende Lösung haben:
Ich lösche die Zelle und somit verschwindet automatisch die gesamte Zeile bzw. die Zeile darunter wird eine Reihe nach oben verschoben

Beispiel:
A B C D
1 123 Auto Oldenburg
2 456 LKW Bremen
3 159 Auto Hannover

Lösche ich nun den Inhalt bei B2, soll automatisch folgendes passieren:

A B C D
1 123 Auto Oldenburg
2 159 Auto Hannover


Ist sowas möglich?


Vielen lieben Dank!!

Mit freundlichen Grüßen,
Miriam

:)

 

Hallo,

warum löschst du nicht gleich die ganze Zeile und zählst dann neu durch?

Code:

Code:

Wenn du das Ganze mit einem Ereignis auslösen willst, dann könntest du das Worksheet_Change Ereignis wählen.

Code:

Grüße

Mathieu

 

Hallo abl478,

du scannst etwas ein und nachher wird manuell geprüft, ob der Artikel vorhanden ist!?! Ok, warum denn VBA? Wenn der Artikel nicht da ist, dann ein Rechtsklick auf die Spaltennummer und Linksklick auf Zeile löschen.

Oder wie dachtest du dir, wie das Makro gestartet werden soll?

Wenn du nicht VBA nutzt, hast du auch die Möglichkeit mit Strg+Z die Daten wieder zu holen.

Viele Grüße
rastrans

Wäre es nicht auch möglich gleich bei der Eingabe (scannen) festzustellen, ob Artikel vorhanden sind. Wenn nicht, wird der Artikel erst gar nicht in die Liste geschrieben.

 

Vielen Dank schonmal für die Antworten!

Also der Prozess sieht wie folgt aus:
Der MA scannt die Artikel an den Regal. Am PC muss er über SAP checken, ob die Artikel abrufbar sind im anderen Lager. Erst wenn SAP sagt, dass der Artikel gesperrt ist, dann muss er aus der Liste gelöscht werden.
Demnach wird er auf jeden Fall erstmal mitgescannt.

Und klar: Die Zeile komplett löschen wäre einfach, aber das ist ein fertiges Layout für den Bestellschein. Wenn ich eine Zeile komplett lösche, fehlt dementsprechend eine Zeile unten.

Ich würde es dem Lagerist gerne extrem einfach machen. Das heißt:
Er scannt die Artikel und sie landen direkt im Bestellschein. Dann kann er die Artikelnummer Copy&Paste bei Sap eintragen und wenn sie gesperrt ist, einfach die Zelle mit Entf bei Excel löschen. UND NUN: Würde ich mir wünschen die Zeile verschwindet und die untere rutscht hoch.


Hab ich das nun verständlich ausgedrückt? *eek.gif* *biggrin.gif*

Vielen Dank und freundliche Grüße!

 

Ja, hast du! Der komplette Zellinhalt soll entfernt werden, und der Inhalt der unteren Zellen soll nach oben verschoben werden. Soweit klar!
Aber nun fehlt nur noch eine Beispielmappe. Ich weis nicht, ob Formeln enthalten sind, wie die Formatierung aussieht, welche Inhalte darf ich löschen, welche müssen kopiert werden, kann ich irgendwo einen Löschbutton einsetzten.... bei einer Beispielmappe wären viele Fragen beantwortet!

 

Hab nun ein einfaches Beispiel gemacht *Smilie
Der Scanner würde die Artikelnummern automatisch in die Zeilen tragen und die Bezeichnung wird zugewiesen.

Mein Wunsch: Wenn 789 (Toyota) nicht abgerufen werden kann, soll die Zeile automatisch verschwinden, in dem man einfach die Zelle 789 leert.

Dennoch soll die Nummerierung fortlaufend sein und 20 Zeilen im Layout bleiben.

Danke, dass du dich dem Problem annimmst *Smilie

 

Hallo,

mit einem Beispiel weiss ich doch, was ich zu tun habe.

Diese Prozedur schreibst du in den VBA Bereich von der Tabelle Abruf. Wenn du nun in die erste Spalte, da wo die Positionsnummer steht, einen Doppelklick machst, dann verschwindet die Zeile und die anderen rutschen nach. Die Position 20 ist dann leer!

Solltest du mal mehr Positionen eintragen wollen, dann brauchst du nur dein Formular zu erweitern. Nach unten sind kaum grenzen gesetzt! *mrcool

Viele Grüße
rastrans Code:

 

Ich bin absolut baff *biggrin.gif*

Super!!!! Vielen, vielen Dank *Smilie

 

Mir ist aufgefallen, das hier doch vielleicht etwas schnell Daten gelöscht werden könnten, die nicht gemeint sind. Wenn man sich in der Zeile vertan hat, dann sind die Daten weg.

Hier eine Lösung, die mir besser gefällt. Hier musst du in die Positionsspalte ein x eintragen, also die aktuelle Positionszahl überschreiben. Das erkennt die Prozedur, löscht die Zeile in gewünschter Weise und schreibt die Positionsnummer zurück. Code:

 

Funktioniert auch 1a! *biggrin.gif*

Danke, dass du so mitdenkst *Smilie