Per Eingabeüberwachung Daten aus anderm Workbook

Private Sub Worksheet_Change(ByVal Target As Range) Set Target = Intersect(Target, Range("A1:A600")) If Target Is Nothing Then Exit Sub pfad = ActiveWorkbook.Path If Target.Value "" Then Workbooks.Open Filename:=pfad & "\tm2" For i = 1 To 20 If Cells(i, 1) = Target.Value Then eintrag = Cells(i, 3) End If Next i Workbooks("tm2.xls").Close False Cells(Target.Row, 7) = eintrag End If Set Target = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Kai,
wo ist das Problem bei deinem Code?
"mein leider nicht Erfolgreicher Versuch" ist als Fehlerbeschreibung wenig hilfreich.
Was genau geht nicht? Fehlermdlungen? Wenn ja - in welcher Zeile?
Sollen wir das, was du schon weißt, erst an einem Nachbau ermitteln?
Schau dir das mal an:


Option Explicit               ' immer zu empfehlen!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Not Intersect(Target, Range("A1:A600")) Is Nothing Then
If Target().Value  "" Then
Workbooks.Open Filename:=ActiveWorkbook.Path & "\tm2.xls"
With ActiveWorkbook.Worksheets(1)
For i = 1 To 20
If .Cells(i, 1) = Target.Value Then
Application.EnableEvents = False
Cells(Target.Row, 7) = Cells(i, 3)
Application.EnableEvents = True
Exit For     ' falls Ende nach 1. Treffer
End If
Next i
End With
Workbooks("tm2.xls").Close False
End If
Set Target = Nothing
End If
End Sub

Ein Hauptproblem deines Codes:
Wenn du schreibst Cells(i, 1) oder Cells(i, 3) - welche Zellen sind dann gemeint?
VBA nimmt, da der Code zu einem Tabellenblatt gehört, die Zellen aus diesem Blatt.
Du meinst aber die Zellen in der gerade geöffnetenm fremden Mappe. Das musst du VBA dann auch sagen.
Noch eine Bemerkung:
Zellen gehören zu Blättern. Es reicht i. A. nicht aus, eine Mappe zu öffnen und dann Cells(1,1) zu verwenden.
A1 welches Blatts der Mappe soll es sein? Worksheets(1).Cells(1,1) bringt Klarheit.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Option Explicit ' immer zu empfehlen! Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer If Not Intersect(Target, Range("A1:A600")) Is Nothing Then If Target().Value "" Then Workbooks.Open Filename:=ActiveWorkbook.Path & "\tm2.xls" With ActiveWorkbook.Worksheets(1) For i = 1 To 20 If .Cells(i, 1) = Target.Value Then Application.EnableEvents = False Cells(Target.Row, 7) = .Cells(i, 3) Application.EnableEvents = True Exit For ' falls Ende nach 1. Treffer End If Next i End With Workbooks("tm2.xls").Close False End If Set Target = Nothing End If End Sub

Beliebteste Forumthreads (12 Monate)

Per Eingabeüberwachung Daten aus anderm Workbook

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Per Eingabeüberwachung Daten aus anderm Workbook

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread