Thema Datum  Von Nutzer Rating
Antwort
09.12.2008 15:54:46 thomas
NotSolved
Blau Aw:rechnungserstellung
 12.12.2008 11:24:08 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
12.12.2008 11:24:08		 Views:
924		 Rating:
     
Antwort:
  Ja
Thema:
Aw:rechnungserstellung
Hallo thomas,
nachstehend musst du das Wort größer durch das entsprechende Zeichen ersetzen. Die Software des Forum verwendet diese vermutlich als Steuerzeichen, was zu Fehlern führt:

Sub Gesamtsumme()
Dim lz, a
lz = Cells(Rows.Count, 5).End(xlUp).Row
a = 0
For i = 2 To lz
a = a + Cells(i, 5)
Next i
Cells(lz + 2, 5) = a
Cells(lz + 2, 4) = "Summe"
Cells(lz + 4, 4) = "Endbetrag"
If a größer 1000 Then 'hier ersetzen
Cells(lz + 3, 5) = Round(a * 0.07, 2)
Cells(lz + 3, 4) = "Skonto 7%"
ElseIf a größer 300 Then'hier ersetzen
Cells(lz + 3, 5) = Round(a * 0.03, 2)
Cells(lz + 3, 4) = "Skonto 3%"
Else
Cells(lz + 3, 5) = 0
Cells(lz + 3, 4) = "kein Skonto"
End If
Cells(lz + 4, 5) = Cells(lz + 2, 5) - Cells(lz + 3, 5)
Cells(lz + 6, 1) = "Bitte überweisen Sie den fälligen Betrag von" & Str(Cells(lz + 4, 5)) & " Euro an das o.g. Konto"
End Sub

Gruß
Holger

thomas schrieb am 09.12.2008 15:54:46:

ich sitze vor folgender aufgabe und habe leider keine ahnung wie ich sie lösen soll:

in einer EXCEL-Tabelle werden Rechnungsdaten gespeichert. Die erste Zeile enthält die Spaltenüberschriften:
Lfd. Nr. Warenbezeichnung Anzahl Einzelpreis Gesamtpreis.
Danach folgen durchnummeriert entsprechende Daten über gelieferte Waren.

Schreiben Sie ein VBA-Modul, das die folgenden Zeilen nach folgenden Vorgaben ausfüllt:

Nach der letzten ausgefüllten Zeile soll eine Leerzeile folgen.
Danach wird in der Spalte Gesamtpreis die Summe aller Gesamtpreise eingesetzt. Bei einem Wert von über 1.000 Euro wird in der nächsten Zeile 7% Skonto berechnet und in der darauffolgenden Zeile von der Gesamtsumme abgezogen.
Bei einem Wert zwischen 300 Euro und 1.000 Euro wird in den entsprechenden Zeilen 3% Skonto berechnet und in der darauffolgenden Zeile von der Gesamtsumme abgezogen.
Bei einem Wert von unter 300 Euro wird kein Skonto gewärt.
Nach einer weiteren Leerzeile folgt der Satz: Bitte überweisen Sie den fälligen Betrag von ... Euro an das o.g. Konto.


natürlich erwarte ich hier keine gesamtlösung dieser komplexen aufgabenstellung (ich wäre dafür zwar überaus dankbar) , aber jeder einzelne step würde mir sicher auch schon weiterhelfen.

tausend mal dankeschön im voraus

vg thomas

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.12.2008 15:54:46 thomas
NotSolved
Blau Aw:rechnungserstellung
 12.12.2008 11:24:08 Holger
NotSolved