Hallo zusammen,
Für einen Verein habe ich ein Excel Liste.
Wenn ein Mitglied sich abmeldet möchte ich gerne diesen heraussuchen und dann mittels Makro diesen Eintrag (einschließlich die gesamte Zeile) aus „Tabelle1“ löschen und dann an letzter freier Stelle in Tabelle2 (gleiche Mappe) einfügen.
Von Hand ist das einfach. Automatisiert?
Können Sie / Ihr mir helfen?
Grüße
Peter
Typischer Fall von Datenbank
Hallo Peter,
mit Ach und Krach wirst Du das in Excel hinbekommen. Die eigentlich dafür prädestinierte Anwendung ist aber eine Datenbank, bei mässiger Mitgliederzahl tut’s Access. Das ist auch am einfachsten zu erlernen.
Im Web gibt es bestimmt 'ne Menge Vorlagen für so eine Mitgliederverwaltung, ist ja ein häufiges Problem.
Gruß, Dennis
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo!
mit dem aufgezeichneten Makro:
Sub Zeilen()
’
’ Zeilen Makro
Selection.Cut
Sheets(„Tabelle2“).Select
Range(„A1“).Select
Selection.Insert Shift:=xlDown
Sheets(„Tabelle1“).Select
Selection.Delete Shift:=xlUp
End Sub
bekomme ich es fast hin, nur ist die Reihenfolge genau andersrum!
Kann mir jemand helfen, dass hinzubekommen?
Grüße
Peter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Wenn ein Mitglied sich abmeldet möchte ich gerne diesen
heraussuchen und dann mittels Makro diesen Eintrag
(einschließlich die gesamte Zeile) aus „Tabelle1“ löschen und
dann an letzter freier Stelle in Tabelle2 (gleiche Mappe)
einfügen.
Von Hand ist das einfach. Automatisiert?
Hi Peter,
probiers mal so:
Option Explicit
Sub veschieben()
Dim ws1 As Worksheet, zei2 As Long
Set ws1 = Worksheets("Tabelle1")
With Worksheets("Tabelle2")
zei2 = .Range("A65536").End(xlUp).Row + 1 ' erste freie Zeile in Tabelle2
ws1.Rows(ActiveCell.Row).Copy .Cells(zei2, 1)
ws1.Rows(ActiveCell.Row).Delete
Range("A2:A" & zei2).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, \_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub
Gruß
Reinhard
Hallo Reinhard!
Klappt hervorragend!
Vielen lieben Dank und einen guten Rutsch ins neue Jahr!!!
Grüße
Peter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]