Tabellenkalkulation

VBA (erneut)

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Folgendes: Ich möchte folgendes Problem lösen: Wenn in Zell A das Wort X steht und in Zelle B der dazugehörige Wert dann soll von Zelle C Wert B abgezogen werden vorrausgesetzt es steht Wort X in Zelle A und nicht beispielsweise Wort Y. Danke schonmal im vorraus Ben

Antwort 1 von Hajo_Zi

Hallo Ben,

in Zelle D1
=Wenn(A1="X";C1-B1;"")

Gruß Hajo

Antwort 2 von dauerpenn0r

Danke für die schnelle Antwort da gibt es nur ein Problem ich möchte auch in Zelle "D1" einen Wert schreiben können.

Also in Zelle A1 steht ein Wert Zellen B1 und C1 sind noch leer. schreibt man jetzt in Zelle B1 das wort X und in C1 den dazugehörigen wert soll dieser von A1 abgezogen werden.

Das Problem ist ich kann die Formel zwar in das Feld eintragen, aber wenn ich dann etwas reinschreibe dann ist die F. gelöscht.

Viele Grüße Ben

Antwort 3 von Hajo_Zi

Hallo Benn,

und als VBA Code bei Eingabe in Spalte B

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then
If Target.Offset(0, -1) = "X" Then
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Offset(0, 1) - Target
Application.EnableEvents = True
End If
End If
End Sub

Gruß Hajo

Antwort 4 von Hajo_Zi

Hallo Ben,

Du solltest Dich schon entscheiden was vóbn was abgezogenwird
1. Beitrag B von C
2. Beitrag C von A

Gruß ajo. Da mußt Du den Code eben selber anpassen.

Gruß Hajo