Vlookup Problem

[atilla]

Hallo Atilla,

selbstverständlich habe ich auch dein Vorschlag getestet mit dem gleichen Ergebniss, aber siehe selbst! :)

[
Dateiupload bitte im Forum! So geht es: Klick mich!
]



Vielen Dank
VG
Alexandra

Hallo Alexander,

und, was soll jetzt nicht funktioniern?
Ich habe die Datei von Dir runtergeladen mit meinem Code darin und es funktioniert alles.
Einzig beim Leeren der Zelle A18 werden die anderen Zellen nicht geleert.

Das kann man noch mit reinnehmen und dann sieht  das Ganze so aus:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
Dim namensBereich As Range
Set namensBereich = Tabelle4.Range("A2:A3")

 If Target(1).Address(0, 0) = "A18" Then
 On Error GoTo fehler
 Application.EnableEvents = False
   Range("A19:A22") = ""
   Range("A27") = ""
   If Target(1) <> "" Then
     x = Application.Match(Target, namensBereich, 0)
     If IsNumeric(x) Then
       With Tabelle4
         Cells(19, 1) = .Cells(x + 1, 2)
         Cells(20, 1) = .Cells(x + 1, 3)
         Cells(22, 1) = .Cells(x + 1, 4) & " " & .Cells(x + 1, 5)
         Cells(27, 1) = .Cells(x + 1, 5)
       End With
     Else
       Target = ""
       MsgBox "Dieser Name existiert nicht in der Namensliste!"
     End If
   End If
 End If


fehler:
 Application.EnableEvents = True
 If Err Then MsgBox "Fehler: " & Err.Number & vbLf & vbLf & Err.Description

End Sub

Ich arbeite statt mit Target.Cells(1) mit Target(1).

[cysu11]

Hallo Atilla,


ich bin die Alexandra :)

Einzig beim Leeren der Zelle A18 werden die anderen Zellen nicht geleert.

Genau das war das Problem bei beiden Codes von Dir und von Uwe, funktioniert haben beide nur das Leeren nicht. Nun tun es beide Codes perfekt. :)
Vielen lieben Dank euch BEIDEN
VG
Alexandra

[atilla]

Hallo Atilla,


ich bin die Alexandra :)

Jaaaaa, das meinst Du. Du glaubst auch alles was Deine Eltern Dir erzählt haben. :19:


Du kannst es auch als späte Rache verstehen.  :05:  
Bei der Gelegenheit habe ich jetzt festgestellt, etwas ähnliches hatten wir schon einmal vor ca 2 Jahren.

Aber es kann ja nie schaden das Gelernte noch einmal aufzufrischen.