Office: Datei einer Excel Datentabelle in die andere Excel Datentabelle übertragen.

Hallo zusammen,

ich habe eine sehr umfangreiche Adressdatenbank mit Excel 2007. die von Zeit zu Zeit erweitert werden. Es sind aber nicht nur Zugänge zu notieren, sondern auch Abgänge von Todes wegen. Diese Dateien sollen von der "Hauptdatenbank" in eine identische Datenbank in ein neues Tabellenblatt übertragen werden.
Beide Datenbanken fangen mit einer Mitgliedsnummer an. Nun ist mein Gedanke wenn ich die Mitgliedsnummer des Verstorbenen in der Verstorbenendatenbank anklicke, dann soll die Datei in die "verstorbenen-Datenbank" automatisch übertragen werden. Nach der Übertragung soll die zu ändernde Datenzeile in der Hauptdatenbank gelöscht werden. Ist das überhaupt machbar.

MfG, Rodias

 

Hi,

ich würde aus Sicherheitsgründen das Doppelklick-Ereignis des Tabelenblattes verwenden und nicht die Zelle nur anklicken, denn falls du die falsche Zelle anklickst sind die Daten dann übertragen und du müsstest mühselig alles wieder rückgäng machen.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim rngZelle As Range
    If Target.Column = 1 Then '<== Doppelklick in Spalte A
        ' bezogen auf die Hauptdatenbank - Namen anpassen!!
        With Workbooks("Hauptdatenbank.xls").Worksheets("Tabelle1")
            ' suche die Mitgliedsnummer der doppelgeklickten Zelle in Spalte A
            Set rngZelle = .Columns(1).Find(Target, lookat:=xlWhole)
            ' Mitgliedsnummer wurde gefunden
            If Not rngZelle Is Nothing Then
                ' gefundene Zeile in die Doppelklick-Zeile kopieren
                .Rows(rngZelle.Row).Copy Target
                ' gefundene Zeile löschen
                .Rows(rngZelle.Row).Delete
            End If
            Set rngZelle = Nothing
        End With
        Cancel = True
    End If
End Sub

Der Code gehört in das Tabellenblatt der Verstorbenen-Datenbank.

Bis später,
Karin

 

Hallo Karin,
vielen Dank für Deine Hilfe, leider kenne ich mich mit dieser Programmierung nicht aus. Bitte sage mir doch an welcher Stelle diese Formel eingegeben wird. Und wird die Formel in einer Zelle eingegeben.
MfG. Rodias

 

Hi,

das ist keine Formel sondern VBA-Code. Mache einen Rechtsklick auf den Tabellenreiter in der Verstorbenen-Datenbank -> Code anzeigen, kopiere den kompletten Code in das rechte (obere) Codefenster und speichere die mappe im Format XLSM ab. Sobald du nun in Spalte A auf eine Zelle einen Doppelklick ausführst, werden die Daten übertragen.
Die genaue Bezeichung deiner Hauptdatenbank-Mappe und den des Tabellenblattes musst du an deine Bedingungen anpassen.

Achtung!! Lege dir vorher eine Sicherheitskopie beider Datenbanken an, bevor du alles testest, denn einmal ausgeführter Code (also verschobene Daten) kann nicht rückgängig gemacht werden - geht dann nur händisch.

Bis später,
Karin

 

Hallo Karin,
Bitte sag mir doch wie ich den VBA-Code und Deine Erklärung auf den Desktop kopieren kann. Eswill einfach nicht klappen???

 

Hi,

???? Was willst du damit auf dem Desktop???? Der Code muss in die Arbeitsmappe - einfach hier im Beitrag markieren, kopieren und (wie bereits beschrieben) einfügen...

Bis später,
Karin

 

Liebe Karin, ich will Dich nicht nerven, aber leider geht die kopirerei nicht. Ich mache es wie sonst auch aber das Einfügen erscheint nicht. Übrigens um de VBA-Code aufzurufen muss ich die linke Taste nehmen, rechts passiert nichts. Es ist kein böser Wille.
MfG aus dem sturmgepeitschten Norden, Rodias

 

Hi,

man kann auch Einfügen mittels Strg-V.

Bis später,
Karin

 

Hallo Karin, ich habe den VBA-Code mit strg-V kopiert und habe die Namen der beiden Tabellen im Code ausgetauscht (Haupttabelle = "Mitglied"; Nebentabelle = "verstorbene". Nun finde ich in den System-Zeilen keinen Hinweis "speichern unter" um den VBA-Code Mitgliederliste.XLSM zu speichern! Dann ist immer eine Zeile im Code.

Haupttabelle "Mitglied"
1 Mitglied 2 Anghg. 3 Grup. 3 a Grup 4 Anrede 5 Name 6 Vorname 7 Straße + Nr. 8 PLZ 9 Ort
15423 0 Frau Ahrens Karin Eickedorfer Straße 30 28879 Grasberg
15423 A 0 Herr Ahrens Albert Eickedorfer Straße 30 28879 Grasberg

Nebetabelle "verstorbene"
1 Mitglied 2 Anghg. 3 Grup. 3 a Grup 4 Anrede 5 Name 6 Vorname 7 Straße + Nr. 8 PLZ 9 Ort

um Verständnis die beiden Tabellen, in gekürzter Form

MfG, rodias

 

Hi,

handelt es sich nun um Tabellen in ein und derselben Arbeitsmappe oder um 2 getrennte Arbeitsmappen (Dateien)?

Was meinst du hiermit:

Ich meinte, du musst deine Arbeitsmappe, die derzeit sicher unter dem Dateiformat .XLSX abgespeichert ist, mittels Speichern unter und Auswahl "Excel-Arbeitsmappe mit Makros" in das Dateiformat .XLSM "umwandeln".

Bis später.
Karin

 

Hallo Karin, natürlich sind die beiden Tabellenblätter Bestandteil der Arbeitsmappe. Diese Arbeitsmappe, mit beiden Tabellen und dem VBA-Code habe ich mit dem Macrobefehl gespeichert. Leider konnte ich den XSLM-Befehl nicht entdecken. Nun hoffe ich dass die Endung automatisch übernommen wurde. Dann habe ich den Test voller Erwartung gemacht, doch leider kam eine Fehlermeldung: Laufzeitfehler "Y" Index außerhalb des gültigen Bereichs. Beenden / Debuggen.

Dann kam eine gelbe Zeile mit folgendem Inhalt:With Workbooks("mitglieder.xls"). (Worksheet ("verstorbene")

 

Hi,

meine Frage war, ob die Tabellenblätter Bestandteile "ein und derselben" Arbeitsmappe (Datei) sind, denn ich hatte aus deinen vorhergehenden Ausführungen geschlussfolgert, dass es sich um 2 unterschiedliche Arbeitsmappen (Dateien) handelt und den Code auch dahingehend erstellt. Da es nun aber doch so ist, dass es sich im ein und dieselbe Arbeitsmappe (Datei) handelt, löst der Code selbstverständlich einen Fehler aus, da er die (andere) angesprochene Arbeitsmappe nicht findet.
Lösche in der fraglichen Zeile diesen Teil: Workbooks("mitglieder.xls").

Beachte, dass der Punkt (.) am Ende des rot markierten Ausdrucks ebenfalls dazugehört und weg muss.
Anstelle "verstorbene" muss jedoch der Name der Tabelle stehen, AUS dem kopiert wird (also "Mitglieder") und der Code selbst muss sich im Codemodul der Tabelle "verstorbene", denn du willst - so habe ich deine Anfrage interpretiert - im Tabellenblatt "verstorbene" das zu übertragende Mitglied anklicken bzw. doppelklicken.


Wenn man beim Speichern den Dateityp "Excel-Arbeitsmappe mit Makros" auswählt, wird die Arbeitsmappe korrekt mit der Dateiendung XLSM erstellt.

Bis später,
Karin

 

Hallo Karin, ein gedämptes Hurra, es geht aber nur eingeschränkt. Wenn ich auf der Haupttabelle auf eine Mitgliedsnmmer Doppelklick mache und auf die Nebentabelle "verstorbene" in Salte "A" den Doppelklik mache, wird eine andere Adresse ausgegeben als gewählt. Meine Idee war, wenn ich in der Tabelle "Mitglieder" eine Mitgliedsnummer Doppelklicke wird diese mit dem Datensatz in die Tabelle "verstorbebe" kopiert. Denn die Tabelle "verstorbene" ist ja im Ursprung leer. Die kopierten Datensätze sollen dann von oben nach unten die Tabelle ohne Leerzeilen beschriften.

Erst einmal vielen Dank für Deine geduldige Hilfe, Rodias

 

Hi,

das ist aber jetzt eine andere Aufgabenstellung als zu Beginn - da stand, dass beide Tabellen identisch aufgebaut sind. Nun ist aber die zweite Tabelle leer und soll erst gefüllt werden: es soll also nun genau anders herum sein - Doppelklick in der Tabelle "Mitglieder"?

Kopiere den folgenden Code ins Codemodul des Tabellenblattes "Mitglieder":

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim lngZeile As Long
    If Target.Column = 1 Then
        With Worksheets("verstorbene")
            lngZeile = Application.CountA(.Columns(1))
            If lngZeile = 0 Then lngZeile = 1
            Rows(Target.Row).Copy .Cells(lngZeile, 1)
            Rows(Target.Row).Delete
        End With
        Cancel = True
    End If
End Sub

Ich würde dir dringend empfehlen, künftig deiner Aufgabenbeschreibung mehr Aufmerksamkeit zu widmen und sie so zu formulieren, dass sie auch einem Außenstehenden eindeutig verständlich ist.


Bis später,
Karin

 

Hallo Karin, es tut mir leid wenn ich mich unverständlich ausgedrückt habe, ich war der Meinung es wäre verständlich. Denn diese Lösung war meine Wunschvorstellung, dass es so kompliziert ist habe ich gar nicht geahnt. Mit VBA hatte ich bisher noch nie zu tun, deshalb ist es auch so schwierig es zu verstehen und bin Dir für Deine Geduld sehr dankbar!
Aber nun zu Deinem neuen Vorschlag. Wenn ich in Tabelle1 Mitglieder in Spalte A die Mitgliedsnummer doppelklicke passiert nichts, und wenn ich in Tabelle2 verstorbene in Spalte A auch doppelklicke passiert auch nichts. Muss evtl. im Code2 Tabelle2 erwas geändert werden