Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
264to268
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
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

@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

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


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

Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige