Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Worksheet_Change

Worksheet_Change
04.05.2019 08:33:06
Franky
Hallo zusammen,
kann man diesen Code so umbauen das er auf diese externe, geschlossene Datei zugreift?
L:\HalleVertrieb\LUL_Intralogistik_Allgemein\Warenausgang\Tageslisten\Info.xlsx Tabelle1
Wenn ja, könnte mir jemand helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column  5 Then Exit Sub
If Target.Cells.Count > 5 Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
With Worksheets("Test")
If Not IsEmpty(Target) Then
var = Application.Match(Target.Value, .Columns(1), 0)
If Not IsError(var) Then
Target.Offset(0, 1).Value = .Cells(var, 2).Value
Target.Offset(0, 2).Value = .Cells(var, 4).Value
Target.Offset(0, 3).Value = .Cells(var, 5).Value
End If
Else
Range(Target, Target.Offset(0, 7)).ClearContents
End If
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub

Vielen Dank und ein schönes Wochenende.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Change
04.05.2019 09:00:05
Hajo_Zi
auf eine geschlossene Datei kannst Du nicht zugreifen.
Datei öffnen.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Worksheet_Change
06.05.2019 11:06:16
Franky
Danke.......

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige