Target Row

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Target Row von: Ernst Dunkel
Geschrieben am: 22.02.2005 18:10:18

Hallo Forum

Habe wieder mal ein Problem!
Mit dem untenstehenden Code funktioniert was nicht.
Eingabe erlaubt ab Zeile 5 bis 10 in der Spalte 3.
Bei Eingabe eines Wertes in Spalte 3 der Tabelle 2 soll der zugehörige Wert aus der Tabelle "Daten" in Spalte 4 und 5 geschrieben werden.

Bitte um Hilfe.

mfg
Ernst Dunkel


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row < 5 Then Exit Sub
If Target.Row > 10 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
  Application.EnableEvents = False
On Error GoTo Fehler
     Cells(Target.Row, 4) = WorksheetFunction.VLookup(Target, Worksheets("Datenbank").Range("B2:D20"), 2, 0)
     Cells(Target.Row, 5) = WorksheetFunction.VLookup(Target, Worksheets("Datenbank").Range("B2:D20"), 3, 0)
      
  Application.EnableEvents = True
Exit Sub
Fehler:
MsgBox "Wert nicht vorhanden"
  Cells(Target.Row, 3) = "  "
   Application.EnableEvents = True
End Sub

Bild


Betrifft: AW: Target Row von: PeterW
Geschrieben am: 22.02.2005 19:00:36

Hallo Ernst,

kannst du bitte erklären, was mit dem Code (der i.O. ist) nicht funktioniert?

Gruß
Peter


Bild


Betrifft: AW: Target Row von: Ernst Dunkel
Geschrieben am: 22.02.2005 19:35:04

Hallo Peter

In einem anderen Projekt funktioniert dieser Code. Habe ihn in eine neue Arbeitsmappe eingefügt und die Bezüge geändert. Der Code findet keine Daten (keine Fehlermeldung).

Mfg
Ernst Dunkel


Bild


Betrifft: AW: Target Row von: Ernst Dunkel
Geschrieben am: 22.02.2005 19:43:01

Hallo Peter

Es erscheint die Meldung Wert nicht gefunden!

mfg


Bild


Betrifft: AW: Target Row von: PeterW
Geschrieben am: 22.02.2005 19:49:15

Hallo Ernst,

dann ist zu überprüfen, ob Zahlen als Text vorhanden sind oder Texte Leerzeichen am Anfang/Ende haben.

Gruß
Peter


Bild


Betrifft: AW: Target Row von: Ernst Dunkel
Geschrieben am: 22.02.2005 20:45:15

Hallo Peter

Komischerweise funktioniert es jetzt!

Vielen Dank

mfg
Ernst Dunkel


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz"