Habe von UN1 folgendes Makro bekommen.
Es läuft aber nicht so richtig.
Könnte es jemand Bitte überprüfen ?
Folgendes wenn ich in C9 eine Nr.eingebe.Zb:11111
Dann sollte er in der Arbeitsmappe "Pfad steht unten" das Tab.Blatt mit dem selben Namen in C19 den Wert vom übereinst.Tab.Blatt von D1 liefern.
Könnte mir Bitte jemand dabei helfen ?
Danke Heinz
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ext_sheets As Object
If Target.Column = 3 Then
If Target.Row = 9 Then
If Sheets("Anzeige").Range("c9").Value <> "" Then
On Error GoTo fehler:
Set ext_sheet = GetObject("C:\Dokumente und Einstellungen\HP_Besitzer\Desktop\Womat\PACKANWEISUNGEN" & Range("c9").Value & ".xls")
Sheets("Anzeige").Range("C19").Value = ext_sheet.Sheets(1).Range("D11").Value
ext_sheet.Close
Set ext_sheet = Nothing
End If: End If: End If
fehler:
MsgBox "Mappe gibts dort net"
End Sub