Sammlung ==> #19 VBA: "Angebotsblatt für kleine Unternehmen"
VBA: "Angebotsblatt für kleine Unternehmen":
Gastbeitrag
Dass bereits wenig VBA-Code effiziente Lösungen bringt, zeigt das "Angebotsblatt für kleine Unternehmen", das wir dankenswerterweise von unserem Gastautor zur Verfügung gestellt bekommen haben und hier frei anbieten. Ausgangspunkt ist eine kleine Artikelliste. Es können nun Mengenangaben in ausgewählte Artikelzeilen eingefügt werden. Durch Klick auf die Schaltfläche "Angebot erstellen" werden automatisch alle Artikelzeilen ohne Mengeneintrag gelöscht. Es entsteht ein entsprechend angepasstes Blatt mit den Gesamtpreisberechnungen. Durch den Klick auf "Neues Angebot" wird der ursprünglihce Zustand wieder hergestellt. Zuvor kann man natürlich sein angepasstes Datenblatt unter einem neuen Namen abspeichern.
Das Sheet kann auf individuelle Bedürfnisse schnell angepasst werden. Es richtet sich an kleinste und kleine Unternehmen. Der Gastautor steht für Rückfragen gerne zur Verfügung.
Situation A: Das ursprüngliche Datenblatt:
Situation B: Eintragung einiger Anzahlen bei Artikeln (hier B19/B20/B26):
Situation C: Gelöschte nichtberührte Artikel nach Klick auf "Angebot erstellen":
Der VBA-Code verteilt sich auf 2 absolut kleine aber feine Kompaktmakros:
Sub Makro_1()
' Liste vorbereiten
Sheets("Original").Select
Range("A2:e55").Select
Selection.Copy
Sheets("Angeboterstellung").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select
Sheets("Original").Select
Range("A2").Select
Sheets("Angeboterstellung").Select
End Sub
Sub Makro_2()
' Liste fertigstellen
Sheets("Angeboterstellung").Select
Range("b16").Select
Do While ActiveCell <> "*"
If ActiveCell <> 0 Then
ActiveCell.Offset(1, 0).Activate
Else: Selection.EntireRow.Delete
End If
Loop
ab:
Range("A2").Select
End Sub
Die Makros sind frei und können bei Bedarf angepasst werden.
Wir stellen Ihnen das Sheet als ZIP-File [12 kb] zum herunterladen hier zur Verfügung!
Vielen Dank an Hans Bon. Er ist unter anderem auch Autor des Programms Einstufungstest - basierend auf MS-Excel von Basel & Bon.
excelfunktionen.de | Sep. 2003