Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abziehen bis Zelle leer, dann von nächster Zelle

Abziehen bis Zelle leer, dann von nächster Zelle
14.12.2007 15:03:00
nächster
Hallo zusammen,
bräuchte mal wieder Eure Hilfe, um von einer bestimmten Zelle solange abzuziehen, bis sie auf 0 steht.
Bei weiteren Eingaben, soll dann von einer anderen Zelle abgezogen werden, bis auch diese auf 0 steht.
Ich kann das Problem nur schwer beschreiben, deshalb habe ich mal ein Muster hochgeladen:
https://www.herber.de/bbs/user/48461.xls
Es wäre Nett von Euch, wenn mir dabei jemand helfen könnte.
Danke schon mal
Grüsse
Josef

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

Betreff
Datum
Anwender
Anzeige
AW: Abziehen bis Zelle leer, dann von nächster Zelle
14.12.2007 16:04:00
nächster
Hallo Josef,
kopiere das nachfolgende Makro in das Klassenmodul des Tabellenblattes:
Rechtsklick auf den Tabellenblattreiter
Code anzeigen mit linksklick drauf und kopieren.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address  "$B$6" Then Exit Sub
Application.EnableEvents = False
If CInt(Range("B6").Value)


Gruß Peter

AW: Abziehen bis Zelle leer, dann von nächster Zelle
14.12.2007 16:18:04
nächster
Hallo Peter,
Perfekt! Genau so sollte das Makro arbeiten.
Vielen Dank für Deine Arbeit!
Schönen Tag noch
Gruß Josef

AW: Abziehen bis Zelle leer, dann von nächster Zelle
14.12.2007 16:34:00
nächster
Hallo Peter,
mir ist gerade erst aufgefallen, dass in Zelle D2 immer eine 1 stehen bleibt. Wenn ich in B6 eine 1 eingebe
und in D2 noch eine 1 drin steht, erscheint die MsgBox und der Wert wird nicht eingetragen.
Peter, würdest Du bitte das Makro nochmal kurz prüfen.
Danke
Josef

Anzeige
AW: Abziehen bis Zelle leer, dann von nächster Zelle
14.12.2007 17:06:34
nächster
Hallo Josef
dann versuch es bitte einmal so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address  "$B$6" Then Exit Sub
Application.EnableEvents = False
If CInt(Range("B6").Value)


Gruß Peter

AW: Abziehen bis Zelle leer, dann von nächster Zelle
14.12.2007 17:31:00
nächster
Hallo Peter,
Genial, jetzt gehts ab wie ein Zäpfchen.
Danke nochmal für Deine Mühe.
Grüsse, Josef

darf ich ?
14.12.2007 17:07:39
Matthias
Hallo Josef
meinst Du so ?

ElseIf CInt(Range("B6").Value)  CInt(Range("E2").Value) + CInt(Range("D2").Value) Then


ersetze mal im (ElseIf) kleiner durch kleiner / gleich
und nach der MSGBOX: Range("B6").Value = ""
Userbild

Anzeige
AW: darf ich ?
14.12.2007 17:35:08
Josef_T
Hallo Matthias,
Ja, Du darfst immer! Peter hat aber es schon gelöst.
Danke für Deine Anregung.
Schönes Wochenende
Josef

AW: Abziehen bis Zelle leer, dann von nächster Zel
14.12.2007 17:10:33
nächster
Hallo Josef,
da reicht eine kleine Ergänzung, an zwei Stellen im Code (hinter einem If und einem ElseIf).
Wo jetzt steht < CInt(Range("E2"...
schreibe muss <= CInt(Range("E2"...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: hätt' ich aktualisiert... (owT)
14.12.2007 17:12:54
Erich
Wenn du hier trotzdem guckst:
Schönes Wochenende!

AW: Abziehen bis Zelle leer, dann von nächster Zel
14.12.2007 17:41:00
nächster
Hallo Erich,
..da reicht eine kleine Ergänzung, an zwei Stellen im Code (hinter einem If und einem ElseIf).
genau das ist mir aber nicht eigefallen. Peter, hat es aber schon gelöst.
Danke Erich für Deine Anregung und schönes Wochenende
Josef
Anzeige

302 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zelle löschen wenn Formel kein übertrag macht
Roger

Hallo
Ich hab da folgendes Problem das ich gern egelöst hätte.
Auf einem Blatt (übersicht) habe ich in den Zeilen 7 - 210 Formeln eingetragen, die auf andere Blätter (Monate) verweisen. Wenn nun auf dem anderen Blatt z.b. Monat Januar und Monat Dezember etwas eingetragen wird so wird e...
08.10.2008 11:16:00
Thread-ID: 1014963
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
5
7
15
5
4
2
9
7
2
2
9
9
10
4
5
2
7
3
3
10
5
1
7