www.excelfunktionen.de

 

Sammlung | Services | Trainings | xls-Literatur | xls-Links | Anzeigen | Autor + Kontakt | Gästebuch

 

 

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

www.excelfunktionen.de| Impressum | Besucher online: