MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 16.04.2018, 15:07   #1
JanBam
Neuer Benutzer
Neuer Benutzer
Standard VBA - 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
JanBam ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2018, 15:22   #2
Fennek11
MOF Profi
MOF Profi
Standard

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
Fennek11 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2018, 10:00   #3
JanBam
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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.
JanBam ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2018, 10:05   #4
EarlFred
MOF Guru
MOF Guru
Standard

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

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 5 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,037% per 04.04.2018) - eine tolle Geste!
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2018, 13:23   #5
JanBam
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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?

Geändert von JanBam (17.04.2018 um 13:32 Uhr).
JanBam ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2018, 13:38   #6
Mc Santa
MOF Meister
MOF Meister
Standard

Vielleicht so:
Code:

    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
                
                ' Was bewirkt die folgende Zeile?
                Application.WindowState = xlNormal
                
                xlSheet2.Rows(a).Copy
                With Workbooks("MeinTest.xlsm").Worksheets(1).Rows(letzte)
                    .PasteSpecial xlPasteValuesAndNumberFormats
                    .PasteSpecial xlPasteFormats
                    .PasteSpecial xlPasteColumnWidths
                End With
            End If
        Next y
    Next a
    With Workbooks("MeinTest.xlsm").Worksheets(1)
        .Columns("A:ZZ").EntireColumn.AutoFit
        .Rows.Hidden = False
    End With

__________________

Nützliches
Wie erstelle ich eine Pivot-Tabelle? (Link)
Alternative (Link ohne YouTube)

Du kannst hilfreiche Beiträge bewerten (Symbol unten links)

Geändert von Mc Santa (17.04.2018 um 14:01 Uhr). Grund: in blau zusätzlich eingefügt
Mc Santa ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2018, 13:57   #7
JanBam
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard @Mc Santa

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.
JanBam ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2018, 13:59   #8
Mc Santa
MOF Meister
MOF Meister
Standard

Du kannst noch diese Zeile ergänzen:
Code:

.PasteSpecial xlPasteColumnWidths

__________________

Nützliches
Wie erstelle ich eine Pivot-Tabelle? (Link)
Alternative (Link ohne YouTube)

Du kannst hilfreiche Beiträge bewerten (Symbol unten links)
Mc Santa ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2018, 14:02   #9
JanBam
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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


Danke euch allen vielmals.
JanBam ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:46 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.