Buttons samt Makro kopieren
18.02.2015 02:18:30
Reikmeff
ich bin absoluter excel-neuling und versuche mich gerade an einer Verleihmaske für Filme. Ich habe nun zwei Buttons entworfen, die ich für alle Zeilen kopieren möchte. Ich habe insgesamt knapp 800 Zeilen, weshalb ich es vermeiden möchte, die einzelnen Zellen per Hand einzutippen.
Wäre klasse, wenn mir jemand sagen könnte, wie ich das Problem lösen kann oder ob es allgemein einen einfacheren Weg gibt? Der Code für die Buttons ist folgender:
Sub Ausleihen() Range("C3").Value = "X" Range("D3").Value = "" Range("AC3").Value = Range("AC3").Value + 1 Range("E3").Value = Date Range("F3").Value = Date + 21 MsgBox "Der Verleih wurde registriert." End Sub
Sub Zurückgeben()
Range("E3:K3").Value = ""
Range("C3").Value = ""
Range("D3").Value = "X"
MsgBox "Die Rückgabe wurde registriert, alle Kontaktdaten entfernt."
End Sub
Erklärung zu den Buttons:
Ausleihen In einer Zelle wird durch das anzeigen eines X deutlich gemacht, dass der Film nun verliehen ist. In der anderen Zelle wird ein vorheriges X für nicht-verliehen gelöscht. Zeitgleich wird in einer Zeile gezählt wie oft der Film verliehene wurde. Ebenso wird registriert, wann der Film ausgeliehen wurde, und wann er spätestens zurückgegeben werden sollte. Zuletzt öffnet sich noch die Infobox mit dem Text Der Verleih wurde registriert."
Zurückgeben Die Adressdaten des Entleihers werden gelöscht. Der Status wird mit einem X auf zurückgegeben angezeigt und eine Infobox mit dem Text Die Rückgabe wurde registriert, alle Kontaktdaten entfernt." erscheint.
Vielen Dank schon Mal!!!