BonusListeKunden

Ich habe eine Excel Liste mit Kunden. In dieser Liste gebe ich vier Kriterien manuell eine und danach will ich mit einer Tastenkombination das geforderte Makro starten, das folgendes macht: Ein bestimmtes Feld in dieser Zeile! Spalte P überprüfen ob der Wert grösser 0 ist, wenn nicht größer 0 dann Makro abbrechen und Fenster Zeigen "Werte passen nicht" mit ok zum Schließen. Nichts passiert. Wenn Wert größer 0 dann das Makro ausführen. Beginnend mit dem Aufheben vom Blattschutz, dann den Namen vom Feld in der Spalte F in der aktiven Zeile nach hinten kopieren ins erste frei Feld in diese aktiven Zeile. Danach den Betrag von Spalte G in das nächste frei Feld in dieser Zeile nach rechts kopieren. Dann in der nächsten freien Spalte das Feld (Jetzt) einfügen und fixieren, dass sich Datum und Uhrzeit nicht mehr verändert Danach noch den Wert von Spalte P in Spalte G in dieser Zeile einfügen(Nur Werte übenehmen, keine Formatierung). Dann in dieser aktiven Zeile die Spalten C,D;E,F, Zellen sperren. Dann die ganze Arbeitsmappe mit Passwort schützen und danach automatisch [login to view URL] Makro darf nur einmal für diese gerade aktive Zeile ausgeführt werden. Das Paswort für den Schutz ist aktuell "inandout". Nochmals:das Makro darf nur in der aktiven Zeile ausgeführt werden, in der im Moment das Feld makiert ist. Die Tastenkombination zum Starten vom Makro wäre STRG B --- I have an Excel list of customers. In this list I enter four criteria manually and then I want to start the required macro with a key combination, which does the following: A specific field in this line! Check column P whether the value is greater than 0, if not greater than 0 then cancel macro and window show "Values do not match" with ok to close. Nothing happens. If value is greater than 0 then run the macro. Starting with unprotecting the sheet, then copying the name from the field in column F in the active row back to the first free field in that active row. Then copy the amount from column G to the next free space in that row to the right. Then insert the field (Now) in the next free column and fix that the date and time no longer change. Then insert the value from column P into column G in this line (only accept values, no formatting). Then in this active row columns C,D;E,F, lock cells. Then protect the whole workbook with a password and then save it automatically. The macro may only be run once for this currently active line. The password for protection is currently "inandout". Again: the macro must only be executed in the active line where the field is currently selected. The key combination to start the macro would be CTRL B I prefer German speakers as I'm not 100% familiar with English terms for Excel, but we can work in English too.