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

Hi,

ich kann das nicht nachvollziehen - bei mir funktioniert alles korrekt.

Bis später,
Karin

 

Hallo Karin,
es wäre doch schade bei Deinen Bemühungen wenn es jetzt so bliebe. Ich sage Dir was ich gemacht habe:

In Tabelle1 (Mitglieder) habe ich den VBA-Code kopiert und bei Worksheets "verstorbene" eigetragen.

In Tabelle2 (verstobene) habe ich den VBA-Code kopiert und bei worksheets "Mitglieder" eingtragen

Vielleicht hast DU ja auch für mich die Lösung, es kann doch nur eine Kleinigkeit sein

MfG, Rodias

 

Hi,

mir scheint, du hast meine Mappe nicht genau angeschaut - da gibt es nur 1 Code, und zwar im Codemodul des Tabellenblattes "Mitglieder". Sobald du in diesem Tabellenblatt in Spalte A einen Doppelklick machst, wird die relevante Zeile gelöscht und steht in Tabelle "verstorbene".
Was DU gemacht hast, kann ich nicht sehen, da ich deine Mappe nicht kenne. Lade sie doch mit ein paar wenigen (anonymisierten) Daten hoch, damit man sich das bei dir mal anschauen kann.

Bis später,
Karin

 

Hoffentlich ist es so richrig?


Tabelle1 "Mitglieder"
1 Mitglied 2 Anghg. 3 Grup. 3 a Grup 4 Anrede 5 Name 6 Vorname 7 Straße + Nr.
15423 0 Frau Ahrens Karin Eickedorfer Straße 30
15423 A 0 Herr Ahrens Albert Eickedorfer Straße 30
15353 5 Frau Albers Felizitas Leipziger Straße 96
22077 A 2 Herr Albrecht Bärbel Antwerpener Straße 19


Tabelle2 "verstorbene"
1 Mitglied 2 Anghg. 3 Grup. 3 a Grup 4 Anrede 5 Name 6 Vorname 7 Straße + Nr.

Diese Liste ist am Anfang leer, sie wird aus Tabelle1 versorgt

 

Hi,

ändere diesen Codeteil

Code:

        With Worksheets("verstorbene")
            lngZeile = Application.CountA(.Columns(1))[B][COLOR=#ff0000] + 1[/COLOR][/B]
            [I]If lngZeile = 0 Then lngZeile = 1[/I]  '<== diese Zeile komplett löschen
            Rows(Target.Row).Copy .Cells(lngZeile, 1)
            Rows(Target.Row).Delete
        End With

Bis später,
Karin

 

Hallo Karin,
Ich habe alles noch einmal in Ruhe bearbeitet, aber es klappt einfach nicht. Dieser Zustand ist wirklich bedauerlich. Ich denke ich kann Dich auch nicht weiter in Anspruch nehmen und möchte mich für Deine Bemühungen ganz herzlich bedanken. Falls Du es trotzdem noch einmal versuchen willst, lass es mich wissen.
MfG, Rodias

 

Hi,

WAS klappt nicht? Solche nichtssagenden Aussagen wie "es klappt nicht" sind bei der Findung der Ursachen überhaupt nicht hilfreich. Da es bei mir klappt und bei dir nicht, muss in deiner Mappe etwas anders als in meiner sein und solange du deine Mappe nicht hochlädst, kann ich dir leider auch nicht weiterhelfen.

Bis später,
Karin

 

With Worksheets("verstorbene")
lngZeile = Application.CountA(.Columns(1)) + 1
If lngZeile = 0 Then lngZeile = 1 '<== diese Zeile komplett löschen
Rows(Target.Row).Copy .Cells(lngZeile, 1)
Rows(Target.Row).Delete
End With

Danke für Deine Meldung1
Meinst Du das mit hochladen? Dieser Code ist in der Tabelle "Mitglieder" gepeichert mit Code anzeigen und im rechten oberen feld einfügen.

Gruß Rodias

 

Die ersten drei Zeilen lassen sich nicht hierher kopiern?

 

Hi,

mit Hochladen meine ich, dass du deine Datei hier im Forum anhängen sollst - so wie ich das im Beitrag #16 gemacht habe.

Bis später,
Karin

 

ich bekomme das Anhägen nicht hin, was muss ich machen welche Befehle sind nötig. Diese Form von EXCEL-VBA ist für mich ganz neu.

 

Gehe auf den Schalter "Erweitert" unterhalb des Antwortfensters - dann siehst du unten zusätzliche Einstellungen, auch einen Schalter "Anhänge verwalten". Gehe dann bei "Datei von deinem Computer hochladen" auf den Schalter "Durchsuchen" und wähle deine Mappe aus (sie darf dabei nicht geöffnet sein). Sobald du sie ausgewählt hast gehst du auf den Schalter "Hochladen" und die Mappe wird an deinne Beitrag angehängt. Anschließend schickst deinen Beitrag im Forum ab.

Bis später,
Karin

 

Code: für Geburtstagsliste

Hoffentlich ist es richtig?

 

Hi,

du hast nicht den aktuellen Code in der Mappe, deshalb funktioniert es auch nicht.

Bis später,
Karin

 

Code: für Geburtstagsliste

jetzt habe ich die Liste, die DU mir nach gereicht hast. Ich habe auch die eine Zeile gelöscht, wie im Code beschrieben