Benannter Bereich in Ereignisprozedur

25/08/2008 - 18:59 von Eberhard Funke | Report spam
Hallo,

mit:
Sub test()
Cells(149, 6).Value = WorksheetFunction _
.VLookup("Geldspende", Range("Zuordnung"), 2, False)
End Sub

wird in cells(149,7) der korrekte Wert geschrieben.

Mit:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo fixit
Cells(149, 6).Value = WorksheetFunction _
.VLookup("Geldspende", Range("Zuordnung"), 2, False)
fixit:
Application.EnableEvents = True
End Sub

bleibt cells(149,7) leer.

Mit Haltepunkt auf "On Error" zeigt Intellisence für Range("Zuordnung") an:
Range "Zuordnung" = <Die Methode 'Range' für das Objekt_'Worksheet" ist
feh..." (vermulich: fehlgeschlagen).

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de
 

Lesen sie die antworten

#1 Eberhard Funke
25/08/2008 - 19:52 | Warnen spam
Am Mon, 25 Aug 2008 18:59:50 +0200 schrieb Eberhard Funke:

P. S. Der Code làuft ohne Fehlermeldung durch (s. Thread "Datenübernahme",
Post Peter Schleif 22.08.)

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen