Office: Name x ist bereits vorhanden?

Hallo,

ich vergleiche 2 Excel Arbeitsmappen xlSheet3 und xlSheet2 nach gleichen Werten und wenn Sie gleich sind wird die gesamte Zeile kopiert und im Worksheet "MeinTest.xlsm" eingefügt.

Der Code funktioniert eigentlich, da schon mit anderen Excel Dateien getestet.

Leider kommt nun aber der "Fehler", dass irgendein Name bereits existiert:

Der Name 'blabla' ist bereits vorhanden. Klicken Sie auf Ja, um diese Version des Namens zu verwenden, oder klicken Sie auf Nein, um die Version von 'blabla', die Sie verschieben oder kopieren möchten, umzubennen.

Wenn ich NEIN drücke erscheint das Fenster Namenskonflikt, welches mich auffordert einen neuen Namen einzugeben:

Namenskonflikt
Alter Name: blabla
Neuer Name: ______


Kann ich Excel vielleicht mitteilen das es alle gleichen Namen einfach behält, oder habt ihr eine andere Lösung die helfen könnte?

Danke

Hier ein Ausschnitt des relevanten Codes:

For y = 4 To letzteZeile
For a = 6 To letzteZeile2
If xlSheet3.Cells(y, 1).Value = xlSheet2.Cells(a, 2).Value Then

Dim letzte As Long
letzte = Workbooks("MeinTest.xlsm").Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row
letzte = letzte + 1

Application.WindowState = xlNormal
Windows("DatenKop.xlsx").Activate

xlSheet2.Rows(a & ":" & a).Select
Selection.Copy

Windows("MeinTest.xlsm").Activate
Workbooks("MeinTest.xlsm").Worksheets(1).Rows(letzte & ":" & letzte).Select
ActiveSheet.Paste

Columns("A:ZZ").EntireColumn.AutoFit
ActiveSheet.Rows.Hidden = False

End If
Next
Next

:)

 

Hallo,

es dürfte besser sein mit "Range.Find" zu suchen. Damit würde nur 1 anstelle von von 2 verschachteteln Schleifen benötigt.

mfg

 

Danke für den Tipp.
An meinem Problem würde das aber wahrscheinlich nichts ändern oder?


Hat jemand eine Ahnung wie ich dieses Problem lösen kann?

Ich kann echt nicht verstehen warum Excel mir dieses Meldung wirft. Will doch einfach nur die Zeile kopieren und in eine andere leere Zeile einfügen.

 

Hallo,

schau mal unter Formeln/Namensmanager, was sich da alles rumtollt. Hier könnte es einen Konflikt geben.

Ansonsten hilft eine Mustermappe beim Suchen.

Grüße
EarlFred

 

Danke auch für deine Antwort. Das hat geholfen ein paar interessante Dinge herauszufinden.

Im Namensmanager kommt das Wort vor und mir ist nun aufgefallen das es sich hierbei um den "Titel" meines "Dropdown"-Menüs handelt.

In meiner Datei können nämlich die Endanwender per Dropdown aus verschiedenen Möglichkeiten wählen.

Mein Dropdown sieht ungefähr so aus:

Name des Dropdown: blabla
Auswahl:
München
Stuttgart
Berlin
Hamburg

Wenn ich nun die gesamte Zeile kopiere um sie in der anderen Datei einzufügen versucht Excel wahrscheinlich auch das Dropdown Menü mit zu kopieren und es einzufügen.

Ich brauche in der anderen Datei das Dropdown Menü überhaupt nicht.
Mir reicht es vollkommen wenn nur der Text kopiert wird. Also die aktuelle Auswahl des Dropdowns.

Jemand ne Idee wie ich das machen kann?

PS: Wenn ich Selection.PasteSpecial xlPasteValues verwendet, funktioniert es. Allerdings verhaut es mir dan die gesamte Formatierung und die Farben etc.
Andere Möglichkeiten?

 

Vielleicht so:
Code:

 

Damit funktioniert das copy&paste auch, aber die Formatierung ist schlecht, manche Zellen sind nur 5 Millimeter breit obwohl große Wörter drinstehen.

Columns("A:ZZ").EntireColumn.AutoFit hilft leider auch nichts.

 

Du kannst noch diese Zeile ergänzen:
Code:

 

Sehr schön, danke Mc Santa.
Damit lässt sich Arbeiten.


Danke euch allen vielmals.