The AnonStar
Grünschnabel
Hi,
schreibe gerade ein VBA Makro in Word für automatisch generierte Vorlagen mit User-Input für regelmäßige Geschäftsvorfälle.
Aber bei der Rechnung, die ich gerade integrieren will, hakts.
Mein Ansatz ist folgender:
Die Fehlermeldung erscheint aber:
und er mahnt den Begriff "Range" an ( Range("B1").Select )
Die oben gesetzten Inputboxen sind natürlich gerade nur als Beispiel und Test gedacht und natürlich NCIHT richtig ebschriftet.
Er soll die Tabelle aber eben richtig ausrichten:
große Spalte links für Produkteingabe, Mengenspalte, Einzelpreisspalte und Gesamtpreis.
Diese soll er dann am Ende der For-Schleife automatisch zusammenrechnen und einen Gesamtbetrag sowie die Mehrwertsteuer (imme r19%) ausweisen.
Danach kommt wieder Text.
Aber ich weiß nciht, wie ichs hinkrieg, weil er Range anmahnt..
Danke für Hilfe! =)
MfG,
Anon
schreibe gerade ein VBA Makro in Word für automatisch generierte Vorlagen mit User-Input für regelmäßige Geschäftsvorfälle.
Aber bei der Rechnung, die ich gerade integrieren will, hakts.
Mein Ansatz ist folgender:
Visual Basic:
Sub rechnung()
'
' rechnung Makro
'
'
Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.12", _
LinkToFile:=False, DisplayAsIcon:=False
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
Application.Run "RechnungTab"
End Sub
Sub RechnungTab()
'
' RechnungTab Makro
'
Dim produkt$, produkt2$, menge$, menge2$, epreis$, epreis2$
produkt = InputBox("1 = im Brief; 2 = Auf Konto", "Art der Gutschrift", "1 = im Brief; 2 = Auf Konto")
menge = InputBox("Gutgeschriebener Betrag in Euro", "Gutschrift", "50,00")
epreis = InputBox("1 = im Brief; 2 = Auf Konto", "Art der Gutschrift", "1 = im Brief; 2 = Auf Konto")
produkt2 = InputBox("Gutgeschriebener Betrag in Euro", "Gutschrift", "50,00")
menge2 = InputBox("1 = im Brief; 2 = Auf Konto", "Art der Gutschrift", "1 = im Brief; 2 = Auf Konto")
epreis2 = InputBox("Gutgeschriebener Betrag in Euro", "Gutschrift", "50,00")
ActiveCell.FormulaR1C1 = "Produkt / Leistung"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Menge"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Einzelpreis"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Gesamtpreis"
Columns("A:A").Select
Selection.ColumnWidth = 32.29
Range("A2").Select
ActiveCell.FormulaR1C1 = produkt
Range("B2").Select
ActiveCell.FormulaR1C1 = menge
Range("C2").Select
ActiveCell.FormulaR1C1 = epreis
Range("C2:D15").Select
ActiveWindow.SmallScroll Down:=-15
Selection.Style = "Currency"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=PRODUCT(RC[-2],RC[-1])"
Range("D2").Select
Selection.Copy
Range("D3").Select
ActiveSheet.Paste
Range("A3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = produkt2
Range("B3").Select
ActiveCell.FormulaR1C1 = menge2
Range("C3").Select
ActiveCell.FormulaR1C1 = epreis2
'Range("D3").Select
'Selection.Copy
'Range("D4").Select
'ActiveSheet.Paste
'Range("A4").Select
'Application.CutCopyMode = False
'ActiveCell.FormulaR1C1 = "TestProdZ3"
'Range("B4").Select
'ActiveCell.FormulaR1C1 = "1"
'Range("C4").Select
'ActiveCell.FormulaR1C1 = "4.95"
Range("A6").Select
ActiveCell.FormulaR1C1 = "Gesamt Betrag"
Range("D6").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Range("A7").Select
ActiveCell.FormulaR1C1 = "Inklusive 19% Mehrwertsteuer"
Range("D7").Select
ActiveCell.FormulaR1C1 = "=PRODUCT(R[-1]C,0.19)"
End Sub
Die Fehlermeldung erscheint aber:
Code:
Fehler beim kompilieren:
Sub oder Function nicht definiert
und er mahnt den Begriff "Range" an ( Range("B1").Select )
Die oben gesetzten Inputboxen sind natürlich gerade nur als Beispiel und Test gedacht und natürlich NCIHT richtig ebschriftet.
Er soll die Tabelle aber eben richtig ausrichten:
große Spalte links für Produkteingabe, Mengenspalte, Einzelpreisspalte und Gesamtpreis.
Diese soll er dann am Ende der For-Schleife automatisch zusammenrechnen und einen Gesamtbetrag sowie die Mehrwertsteuer (imme r19%) ausweisen.
Danach kommt wieder Text.
Aber ich weiß nciht, wie ichs hinkrieg, weil er Range anmahnt..
Danke für Hilfe! =)
MfG,
Anon
Zuletzt bearbeitet: