Code ändern, um Daten aus anderer Datei zu ziehen
29.11.2016 08:11:02
PwnStarr
Ich habe folgendes Problem, für euch sicherlich nur Problemchen:
mit diesem Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vCol
If Target.Row = 11 Then
If Target.Column > 2 Then
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then
Application.EnableEvents = False
Range(Cells(12, Target.Column), Cells(Rows.Count, Target.Column).End(xlUp)). _
Delete
Target.Offset(1).Select
Application.EnableEvents = True
Exit Sub
End If
With Sheets("Parameter")
vCol = Application.Match(Target.Value, .Rows(6), 0)
If Not IsError(vCol) Then
Application.EnableEvents = False
.Range(.Cells(7, vCol), .Cells(Rows.Count, vCol).End(xlUp)).Copy
Target.Offset(1).PasteSpecial xlPasteAll
Target.Offset(1).Select
Application.CutCopyMode = False
Application.EnableEvents = True
End If
End With
End If
End If
End Sub
kopiere ich aus dem Tabellenblatt 'Parameter' Werte. Funktioniert auch tadellos. An dieser Stelle nochmal vielen Dank an Werner.
Wenn nun aber das Tabellenblatt 'Parameter' in einer anderen Datei gespeichert wird, da sie "sensible" Daten enthält und diese Datei "irgendwo" auf meinem Laufwerk liegt, wie schreibe ich den Code um, sodass er immernoch das macht, was er soll? Die Veränderung muss sicherlich in der Zeile 'With Sheets ("Parameter") erfolgen, nur hab ich keine Ahnung wie.
Vielen Dank schon mal für eure Ratschläge.
Adios,
Starr
Anzeige