Makro auf datei beziehen

TEIL1 Sub Names_copy() ''Es muss sicher gestellt werden, dass WbZiel geöffnet ist. ''Der Name der Zieldatei muss angepasst werden. Dim WbZiel As Workbook Dim n As Long Dim Nc As Long Nc = ThisWorkbook.Names.Count If Nc > 0 Then Set WbZiel = Workbooks("Liste_1.xlsm") For n = 1 To Nc WbZiel.Names.Add Name:=ThisWorkbook.Names(n).Name, _ RefersTo:=ThisWorkbook.Names(n).RefersTo Next End If TEIL2 Range("AK3:AK2001").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Choose_Partnership" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Selection.Locked = False Selection.FormulaHidden = False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sorry Sorry Sorry! Zu früh geschossen. Das ganze soll folgdendermaßen funktionieren.
Makro wird in Datei Liste 1 gestartet und soll zunächst, das Tabellenblatt "Listen" markieren und in die Datei Liste_1 kopieren das wiederum ein Tabellenblatt mit dem Namen "Listen" hat.
In Liste_1 Tabellenblatt "Listen" alles markieren


Cells.Select
Selection.Copy
Windows("Liste_2.xlsm").Activate
Sheets("Listen").Select
Cells.Select
Range("A1").Activate
ActiveSheet.Paste

Namen kopieren aus Liste_1

Dim WbZiel As Workbook
Dim n As Long
Dim Nc As Long
Nc = ThisWorkbook.Names.Count
If Nc > 0 Then
Set WbZiel = Workbooks("Liste_1.xlsm")
For n = 1 To Nc
WbZiel.Names.Add Name:=ThisWorkbook.Names(n).Name, _
RefersTo:=ThisWorkbook.Names(n).RefersTo
Next
End If

Und letzter Step in Liste_2 Im tabellenblatt "Start", den Code ausführen:

Range("AK3:AK2001").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Choose_Partnership"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Selection.Locked = False
Selection.FormulaHidden = False

Hoffe ich habs einigermaßen verständlich erklärt jetzt.
viele Grüsse,
Maris

With Workbooks("Liste_2.xls").Sheets("Start").Range("AK5:AK2001").Validation ith Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Choose_Partnership" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Selection.Locked = False Selection.FormulaHidden = False

Dim WbZiel As Workbook Dim n As Long Dim Nc As Long Nc = ThisWorkbook.Names.Count If Nc > 0 Then Set WbZiel = Workbooks("Liste_1.xlsm") For n = 1 To Nc WbZiel.Names.Add Name:=ThisWorkbook.Names(n).Name, _ RefersTo:=ThisWorkbook.Names(n).RefersTo Next End If

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread