Mehrwertsteuer für ausgewählten Betrag bzw. Zelle

Guten Morgen zusammen,
kann mir jemand den VBA-Code geben, mit dem ich zu dem Wert einer ausgewählten Zelle die Mehrwertsteuer draufrechnen und den Gesamtbetrag dann 2-3 Zeilen tiefer (oder auch durch Zellauswahl) einfügen kann?
Die Zelle, für welche die Mwst-Berechnung stattfinden soll, muss (durch Mausklick) wählbar sein und wenn die gewählte Zelle leer ist, wäre eine MesgBox mit Fehlermeldung nicht schlecht.
Ist eigentlich keine schwere Sache, ich weiss. Aber hab noch Probleme es nicht auf Zellen zu fixieren, also dass die gewählte Zelle (die immer eine andere ist) zur Berechnung genommen wird.
Ich danke euch schon mal im Voraus für alle LÖsungen und es dürfen gerne auch mehr sein.
Liebe Grüße,
Dirk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrwertsteuer für ausgewählten Betrag bzw. Zelle

22.03.2005 10:49:07

Andi

Nachtrag

22.03.2005 11:16:29

Andi

AW: Nachtrag

22.03.2005 13:30:29

Dirk

AW: Nachtrag

22.03.2005 14:12:39

Andi

AW: Nachtrag

22.03.2005 14:25:36

Dirk

AW: Nachtrag

22.03.2005 15:08:17

Andi

AW: Nachtrag

22.03.2005 15:26:46

Dirk

AW: Nachtrag

22.03.2005 15:36:40

Andi

AW: Nachtrag

22.03.2005 16:08:03

Dirk

Gern geschehen... (ot)

22.03.2005 16:43:40

Andi

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo errorhandler If Target.Value = "" Then MsgBox "Die ausgewählte Zelle ist leer" Exit Sub End If Cells(Target.Row + 2, Target.Column).Value = Target.Value * 1.16 Exit Sub errorhandler: If Err = 13 Then MsgBox "Bitte wählen Sie eine Zelle mit einer Zahl aus" Else MsgBox "Unbekannter Fehler" End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo errorhandler Dim ziel As Range If Target.Value = "" Then MsgBox "Die ausgewählte Zelle ist leer" Exit Sub End If Set ziel = Application.InputBox("In welche Zelle soll das Ergebnis geschrieben werden?", Type:=8) ziel.Value = Target.Value * 1.16 Exit Sub errorhandler: If Err = 13 Then MsgBox "Bitte wählen Sie eine Zelle mit einer Zahl aus" Else MsgBox "Unbekannter Fehler" End If End Sub

Hallo Andi.
Ich wusste nicht, dass es eine interne Routine ist, aber hab es jetzt hinbekommen und es funktioniert auch so wie ich es mir vorgestellt habe.
Nur will ich die Funktion erst durch einen Button aufrufen (und nicht immer), doch hab ich das noch nicht ganz hinbekommen. Vielleicht kannst du mir noch weiterhelfen. Momentan sieht es so aus:
=========================================


Private Sub CommandButton1_Click()
'On Error GoTo errorhandler
Dim target As Range
Dim ziel As Range
target = ActiveSheet.Cells  >> Hier gibt es allerdings eine Fehlermeldung!
If target.Value = "" Then
MsgBox "Die ausgewählte Zelle ist leer"
Exit Sub
End If
Set ziel = Application.InputBox("In welche Zelle soll das Ergebnis geschrieben werden?", Type:=8)
ziel.Value = target.Value * 1.16
Exit Sub
errorhandler:
If Err = 13 Then
MsgBox "Bitte wählen Sie eine Zelle mit einer Zahl aus"
Else
MsgBox "Unbekannter Fehler"
End If
End Sub

================================================
Wäre super, wenn du mir da noch helfen könntest.
Gruß, Dirk

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo errorhandler Dim ziel As Range If CheckBox1.Value = False Then Exit Sub If Target.Value = "" Then MsgBox "Die ausgewählte Zelle ist leer" Exit Sub End If Set ziel = Application.InputBox("In welche Zelle soll das Ergebnis geschrieben werden?", Type:=8) ziel.Value = Target.Value * 1.16 Exit Sub errorhandler: If Err = 13 Then MsgBox "Bitte wählen Sie eine Zelle mit einer Zahl aus" Else MsgBox "Unbekannter Fehler" End If End Sub

Beliebteste Forumthreads (12 Monate)

Mehrwertsteuer für ausgewählten Betrag bzw. Zelle

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrwertsteuer für ausgewählten Betrag bzw. Zelle

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread