Befüllen von Zellen die 2te

10/09/2008 - 10:04 von Andreas H. | Report spam
Hi Excelianer !

Derzeit nutze ich:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Intersect(Target, Range("D10,D12")) Is Nothing _
Or Target.Count > 1 Then Exit Sub

Select Case Target.Row

Case 10
Target.Offset(2, 0) = Target * 1.19
Case 12
Target.Offset(-2, 0) = Target / 1.19

End Select

erfolgreich. Nun habe ich auf der gleichen Seite, aber in einer
anderen Row eine gleiche Berechnung
meine Bemühungen bis jetzt waren erfolglos...das gleiche nochmal, bloß
mit anderen Zellen hat nicht geklappteinmal komplett, einmal nur
von "If Intersect..." aus

Beide berechnungen sollen seperat laufen

Kann mir jmd noch mal helfen?

Danke
 

Lesen sie die antworten

#1 Peter Schleif
10/09/2008 - 10:29 | Warnen spam
Andreas H. schrieb am 10.09.2008 10:04 Uhr:

Nun habe ich auf der gleichen Seite, aber in einer
anderen Row eine gleiche Berechnung
Beide berechnungen sollen seperat laufen



Wenn das gleiche in Zeile 20 und 22 passieren soll:

Peter

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ende
Application.EnableEvents = False

If Target.Count = 1 And Not Intersect( _
Target, [D10,D12,D20,D22]) Is Nothing Then

Select Case Target.Row
Case 10, 20: Target.Offset(2, 0) = Target * 1.19
Case 12, 22: Target.Offset(-2, 0) = Target / 1.19
End Select
End If

ende:
Application.EnableEvents = True
End Sub

Ähnliche fragen