Makro - Verlnüpfung verhindern via vba
30.09.2020 15:46:04
Mirko
ich habe eine Arbeitsmappe A, und eine Arbeitsmappe B.
Arbeitsmappe A ist quasi eine Sammelmappe.
Nun kopiere ich via vba aus A angesteuert ein Sheet aus B in A.
In dem besagten Sheet befinden sich REchtecke,denen ich ein makrozugeweisen habe.
Makros heissen in beiden Arbeitsmappen gleich.
Beim kopieren des Sheets konnte ich die Namen unterdrücken jedoch erstellt er in A eine Verknpüfung zu B.
Wie unterdrücke ich das?
anbei der bisherige Code mit dem ich die Datei auswähle (B) und das Sheet kopiere:
Sub Einlesen()
Dim varDatei As Variant
Dim Datei As Workbook
Dim str, strPfad, str2, strStartCol, strEndCol As String
Dim i As Integer
Dim lLetzteBesetzteZeileAktuell As Long
Dim tabellenNummer As Integer
Dim iAnzahlNeuerZeilen As Integer
Application.ScreenUpdating = False
strPfad = ThisWorkbook.Name
varDatei = Application.GetOpenFilename() 'Hole dir die Inputdateipfad
If varDatei = False Then
MsgBox "Der Benutzer hat abgebrochen.", vbInformation
Else
Set Datei = Workbooks.Open(varDatei)
With Datei.Sheets(1)
tabellenNummer = ActiveSheet.Index
Dim n As Name
Sheets(1).Copy Before:=ThisWorkbook.Sheets("Ende")
For Each n In ActiveSheet.Names ' Löschen der Namen in dem Workbook
n.Delete
Next
Datei.Close True
ThisWorkbook.Activate
End With
End If
End Sub
Vielen DAnk im Voraus.
vg Mirko