Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formula

Formula
08.02.2009 13:30:08
Chris
hallo Leute
Habe eine Frage zu formula
Wenn ich in einer Spalte A von A2:A30 und im darunterfolgenden Blatt A50:A80 Zahlen eingebe darf der Gesamte Wert aller eingegeben Zahlen nicht grösser sein als der Wert in Zelle B1.
Falls der Wert grösser wird soll eine Meldung kommen, daß die Einkaufsumme übersteigt.
Wie kann ich das per VBA erstellen?
Gruß
Chris

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
das geht doch auch mit Formeln
08.02.2009 13:43:00
Matthias
Hallo
Userbild
Gruß Matthias
AW: das geht doch auch mit Formeln
08.02.2009 13:56:00
Chris
hallo Matthias
Danke für die Formel.
Wenn ich es aber trotzdem über VBA machen will wie geht denn das?
Möchte mich auch in VBA ein wenig vertiefen. Sonst bleibe ich ständig immer nur bei den Formeln
und so ist der Lerneffekt nicht besonders hoch.
Gruß
Chris
AW:VBA
08.02.2009 14:15:00
hary
Hallo Chris
versuch mal dies.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If WorksheetFunction.Sum(Range("A2:A30"), Range("A50:A80")) > Range("B1") Then
MsgBox "Überschritten"
End If
End Sub


Gruss Hary

Anzeige
AW: AW:VBA
08.02.2009 14:27:20
Chris
Hallo Hary
Die Meldung kommt aber sie hängt sich auf.
Auch wenn ich auf Ok drücke kommt die Meldung immer wieder, kann nur noch mit Taskmanager die Anwendung beenden.
Gruß
Chris
AW: beispiel
08.02.2009 14:52:41
Chris
Hallo Hary
Sorry habe nicht die Funktion As Excel.Range mitkopiert.
es funktioniert.
danke
Gruß
Chris
Bitte, danke fuer Rueckmeldung owT
08.02.2009 14:57:51
hary
.
Daten > Gültigkeit
08.02.2009 13:52:15
Josef
Hallo Chris,
dazu brauchts kein VBA.
Markiere alle Zellen in A2:A30 & A50:A80 und gib unter > Daten > Gültigkeit > Benutzerdefiniert folgende Formel ein.

=SUMME($A$2:$A$30;$A$50:$A$80)


Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige