%Rechnung Ausarbeitung; EtoPHG oder wer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Günter,
als Makro müsste es etwa wie folgt aussehen.
Mir erschließt sich aber der Sinn nicht.
Weiteres Problem: Einige Zellen im Auswahlbereich haben den Prozentwert als Text enthalten. Dadurch stimmt ggf. die Berechnung nicht.
Die Inputbox kann man nicht verkleinern. Wenn das wichtig wäre, dann müsste man ein Userform für die Eingabe verwenden.
Gruß
Franz

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range, varEingabe
Dim Z
' Eingabebox wird bei benutzen der Rechten Maustaste (Bereich C11-L24) geöffnet
'   Bereich der Wirksamkeit
Set Bereich = Range("C11:L24")
If Intersect(Target, Bereich) Is Nothing Then Exit Sub  ' Abbruch, wenn Aktion nicht im  _
Zielbereich
Cancel = True
' !!!! (Feld könnte von der Breite etwas kleiner sein! etwa so:[ -99,50 ]).
varEingabe = Application.InputBox("%-Wert:", "Eingabe", 0, , , , , 1)
If varEingabe = False Then 'Abbrechen und Eingabe = 0 sind identisch
Else
'prüfen, ob Wert in Spalte M = 0
If Cells(Target.Row, 13).Value = 0 Then
Target.Value = 0
Else
Target.Value = varEingabe / 100 + Cells(Target.Row, 13).Value
End If
End If
' Eingabewert in % soll mit Wert aus Spalte M (aktive Zeile) "verrechnet" werden und in aktive  _
Zelle eingetragen werden
' wenn Wert Spalte M aktive Zeile) = 0 dann 0 der kein Eintrag in aktive Zelle !!
End Sub

Hallo Franz,
Das mit "Zellen im Auswahlbereich haben den Prozentwert als Text" hatte ich gar nicht bemerkt?
Die Ergebnisse in Spalte M werden eigentlich auch nicht durch addieren der Summen erstellt, aber
mein Hauptdokument wäre zu umfangreich gewesen.
Schade, das eine Inputbox nicht verkleinert werden kann :(
Aber es hat geklappt ;) !!
Durch deine Hilfe läuft das "Ding" jetzt wie am Schnürrchen.
Musste nur noch etwas ändern (unprofessionell, wie ich so bin):
Target.Value = varEingabe / 100 + Cells(Target.Row, 13).Value
habe ich durch
Target.Value = Cells(Target.Row, 13).Value - ((Cells(Target.Row, 13).Value / 100)) * (-varEingabe)
ersetzt, und so läufts. (Formeln, besonders das Aussehen sind nicht so mein Ding!)
Ich möchte mich herzlich bedanken,
Günter

Beliebteste Forumthreads (12 Monate)

%Rechnung Ausarbeitung; EtoPHG oder wer

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

%Rechnung Ausarbeitung; EtoPHG oder wer

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread