Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Rechnen wenn

Forumthread: Rechnen wenn

Rechnen wenn
10.05.2007 17:00:24
andre
Hallo,
ich versuche in VBA folgendes zu lösen:
Wenn der Wert einer Zelle (D8) >11 aber 

Private Sub CommandButton1_Click()
If Worksheets("Tabelle1").Range("D8") >11 & Worksheets("Tabelle1").Range("D8")


Gruß Andre

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rechnen wenn
10.05.2007 17:08:17
Rudi
Hallo,
ersetze das & durch AND
ohne If:
Worksheets("Tabelle1").Range("D8") =Worksheets("Tabelle1").Range("D8")+(Worksheets("Tabelle1").Range("D8") >11 And Worksheets("Tabelle1").Range("D8") Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Rechnen wenn
10.05.2007 17:24:02
andre
Hallo Rudi,
vielen herzlichen Dank! Kannst du mir noch kurz erklären, wie die Formel funktioniert?
Gruß Andre

Anzeige
und hier nochmal mit IF ;-)
10.05.2007 19:46:00
Matthias
Hallo,
Mit If gehts aber auch :-)
Dazu brauchst Du nicht einmal ein Button
ins Tabellenblatt der "Tabelle1"
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If .Cells(8, 4) > 11 And .Cells(8, 4)


dann wird direkt nach der Eingabe schon subtrahiert
Gruß Matthias

Anzeige
AW: Rechnen wenn
10.05.2007 22:57:00
Rudi
Hallo,
wenn D8>11 und 11 And Worksheets("Tabelle1").Range("D8") Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.

AW: Rechnen wenn
11.05.2007 16:29:15
andre
Vielen Dank Euch beiden!
Es ist immer gut zu wissen, wie etwas funktioniert. Ich werde das sicher noch öfter einsetzen.
Gruß Andre
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige