Supportnet / Forum / Tabellenkalkulation

Hallo, ich brauch Eure Hilfe!!! Ich hab folgenden Code erstellt: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 2 Then Cells(5, 5) = Application.WorksheetFunction.VLookup(Cells(1, 2), _ Workbooks("Kundendaten.xls").Worksheets("Tabelle1").Range("A1", "E" & Workbooks _ ("Kundendaten.xls").Worksheets("Tabelle1").Range("A65536").End(xlUp).Row), 3, False) & _ Cells(5, 5) = Application.WorksheetFunction.VLookup(Cells(1, 2), _ Workbooks("Kundendatenxls").Worksheets("Tabelle1").Range("A1", "E" & Workbooks _ ("Kundendatenxls").Worksheets("Tabelle1").Range("A65536").End(xlUp).Row), 4, False) End If End Sub Jetzt hab eich eine Frage dazu: Wie muss man den Code ändern, damit der Zelleninhalt aus den beiden Zellen, der Zelleninhalt in die neue Tabelle in nur eine Zelle eingefügt wird?? Der Inhalt der Zellen aus der Kundendaten.xls ist ist einmal PLZ und Ort. Die beiden Daten sollen in der neuen Datei in nur einer Zelle stehen. Ich danke Euch für Eure Mühe!!!!!!!!!!! Gruß Elhamplo

Hi Elhamplo,

ich gehe mal davon aus, dass Du das mit den in Deinem Beitrag aufgeführten Code schon versucht hast, aber einen Fehler bekommst. Das liegt an dem zweiten "Cells(5, 5) =". Wenn Du die Ergebnisse aus beiden VLookup-Funktionen in Zelle E5, also Cells(5, 5), zusammen ausgegeben haben möchtest, muss der Code folgendermaßen lauten.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 2 Then

Cells(5, 5) = Application.WorksheetFunction.VLookup(Cells(1, 2), _
Workbooks("Kundendaten.xls").Worksheets("Tabelle1").Range("A1", "E" & Workbooks _
("Kundendaten.xls").Worksheets("Tabelle1").Range("A65536").End(xlUp).Row), 3, False) & " " & _
Application.WorksheetFunction.VLookup(Cells(1, 2), _
Workbooks("Kundendatenxls").Worksheets("Tabelle1").Range("A1", "E" & Workbooks _
("Kundendatenxls").Worksheets("Tabelle1").Range("A65536").End(xlUp).Row), 4, False)

End If
End Sub

Ich habe zusätzlich noch einen String für ein Leerzeichen eingebaut.

Ich hoffe, Du hast meine Erklärung verstanden. Wenn nicht oder weiteren Problemen damit, melde Dich bitte.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hey Coros,

Sorry, kaonnte mich erst jetzt melden.

Danke für Deine Hilfe!!!!!!

Habs ausprobiert. Funst einwandfrei. Danke Danke!!!!

Noch eine Frage, was muss ich in den Code einführen, damit ich beim Löschen der Kundennummer in Zelle C1 keine oder falsche Nummer keine Fehlermeldung bekomme???

Ich danke Dir für die ständige Hilfe!!!!

Gruß

Elhamplo

• sverweis - finde meinen Fehler nicht!
• SVERWEIS auf PIVOTTABELLEN mit Namen
• Sverweis starten, wenn Eingabetaste betätigt wird
• SVerweis
• SVERWEIS