M. Vlookup i. a. geöffneter Arbeitsmappe suchen

Computer: Software & Programmierung Visual Basic
#1

Hallo,

folgenden Code verwende ich in einer Preisliste, um Infos bei Selektion einer Zelle B2:B2000 über eine Textbox zu erhalten:

'Ausgabe Langtext in Textbox, wenn Zelle Artikelnummer markiert wird
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Intersect(Target, Range(„B2:B2000“))
If Target Is Nothing Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub
With Worksheets(„Artikeldatenbank“)
If Application.CountIf(.Range(„A2:A3000“), Target.Value) Then
TextBox1.Text = Application.VLookup(Target.Value, .Range(„A2:E3000“), 5, 0)
Else
TextBox1.Text = „Artikel nicht vorhanden“
End If
End With
End Sub

Jetzt habe ich das Tabellenblatt „Artikeldatenbank“ in einer separaten Arbeitsmappe „TEST_Artikeldatenbank“ und Datei und weiss nicht wie ich das korrekt in den Code bekomme, so Vlookup nur noch in der „externen“ Artikeldatenbank sucht.

Ich hoffe, man versteht das so halbwegs. :wink:

Vielleicht könnt ihr mir weiterhelfen?

MfG
agamemon

#2

kopiere diesen Code in die neue Arbeitsmappe und speichere es dann als ExcelDatei mit Makro ab.

  1. deinen Code markieren und kopieren
  2. die Arbeitsmappe mit der entsprechenden Seite öffnen
  3. Alt-F11 drücken um den Code-Explorer zu öffnen
  4. deinen Code dort einfügen
  5. „Speichern unter“ auswählen - Excel-Arbeitsmappe mit Makros auswählen

nun sollte das in deiner neuen Datei funktionieren.

p.s.: Du hast diese Datei jetzt zweimal (einmal mit der Endung .xlsx und einmal mit der Endung .xlsm) / die mit dem Makro ist die .xlsm - Datei!)

#3

Kann ich Dir leider auch nicht helfen

#4

Hallo

habe leider nicht gerade eine Idee sorry!
evtl. kannst dort Hilfe bekommen

http://www.schmittis-page.de/

#5

Sorry habs gerade getest kreige das auch gerade nicht hin. Sollte ich auf eine Lösung kommen dann poste ich das selbstverständlich.