Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@Boris (dein VB)

Forumthread: @Boris (dein VB)

@Boris (dein VB)
10.06.2003 23:04:16
B. Schneider
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a4:c4]) Is Nothing Then Exit Sub
On Error GoTo fehler
Application.EnableEvents = False
Select Case Target.Column
Case 2
[d4] = [d4] + Target
Case 3
[d4] = [d4] - Target
End Select
fehler:
Application.EnableEvents = True
End Sub

Das Script Habe ich leicht geändert
wie müsste es abgeändertwerden wenn
der nächste Bestand in zelle a5 bis d5 stehen soll ?

THX Bernd

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
oder an alle anderen SCRIPT könner
10.06.2003 23:44:52
B. Schneider

Dieses Script habe ich bekommen (Lagerhaltung)
es Behandelt eine zeile

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a4:c4]) Is Nothing Then Exit Sub
On Error GoTo fehler
Application.EnableEvents = False
Select Case Target.Column
Case 2
[d4] = [d4] + Target
Case 3
[d4] = [d4] - Target
End Select
fehler:
Application.EnableEvents = True
End Sub

wie müsste es abgeändertwerden wenn
der nächste Bestand in zelle a5 bis d5 stehen soll ?

Grüße Bernd Schneider


Anzeige
Re: oder an alle anderen SCRIPT könner
11.06.2003 05:29:57
PeterW

Hallo Bernd,

statt
Case 2
[d4] = [d4] + Target
Case 3
[d4] = [d4] - Target
schreibe
Case 2
Cells(Target.Row, 4) = Cells(Target.Row, 4) + Target
Case 3
Cells(Target.Row, 4) = Cells(Target.Row, 4) - Target

Gruß
Peter

Re: oder an alle anderen SCRIPT könner
11.06.2003 07:42:10
B.Schneider

leider reagiert die zweite zeile nicht
auf die veränderung :(

Das Script siet jetzt so aus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a4:c4]) Is Nothing Then Exit Sub
On Error GoTo fehler
Application.EnableEvents = False
Select Case Target.Column
Case 2
Cells(Target.Row, 4) = Cells(Target.Row, 4) + Target
Case 3
Cells(Target.Row, 4) = Cells(Target.Row, 4) - Target
End Select
fehler:
Application.EnableEvents = True
End Sub

und in exel so:

Zugänge | Abgänge | Lagerbestand
Maschine 1 | 20 | 10 | 110
Maschine 2 | 20 | 10 | 30

wobei die zweite Zeile nich funzt :(

HILFE !
Danke Bernd


Anzeige
An alle Script Künstler
11.06.2003 08:03:22
B.Schneider

Das Script siet jetzt so aus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a4:c4]) Is Nothing Then Exit Sub
On Error GoTo fehler
Application.EnableEvents = False
Select Case Target.Column
Case 2
Cells(Target.Row, 4) = Cells(Target.Row, 4) + Target
Case 3
Cells(Target.Row, 4) = Cells(Target.Row, 4) - Target
End Select
fehler:
Application.EnableEvents = True
End Sub

und in exel so:

Zugänge | Abgänge | Lagerbestand
Maschine 1 | 20 | 10 | 110
Maschine 2 | 20 | 10 | 30

wobei die zweite Zeile nich funzt :(
wie müsste das Script abgeändert werden
damit auch die untere Zeile geht und evtl
auch noch weiter folgende Zeilen.

HILFE !
Danke Bernd

Anzeige
Re: oder an alle anderen SCRIPT könner
11.06.2003 09:09:48
PeterW

Hallo Bernd,

ersetze die Zeile
If Intersect(Target, [a4:c4]) Is Nothing Then Exit Sub
durch
If Target.Column < 2 or Target.Column > 3 Then Exit Sub

Gruß
Peter

Re: oder an alle anderen SCRIPT könner
11.06.2003 09:22:27
B. Schneider

Jau Funzt
many THX
Bernd :)))

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige