Vor Kopieren, Tabelle nach Datensatz durchsuchen

Guten Abend liebe Leute...
Ich hatte heute morgen schon eine tolle Hilfe und hab nachfolgendes Makro umgebastelt und nun hab ich nochmal eine Frage....

Ich erstelle eine Personaltabelle.
Die Daten werden aus den einzelnen Blättern (jeweils Zeile 200) per Makro in die Tabelle ("Mitarbeiterdatenbank") kopiert.
In Zelle "A200" steht ein Name nach welchem die Datenbank durchsucht werden soll bevor der Einfügevorgang startet.
Ist der Name vorhanden, soll die Zeile mit dem gleichen Namen markiert und die Zeile eingefügt bzw. überschrieben werden, wenn nicht soll nachfolgendes Makro ausgeführt werden:
Dim laR As Long
On Error Resume Next
laR = Sheets("Mitarbeiterdatenbank").Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
On Error GoTo 0
ActiveSheet.Rows("200:200").Copy
Sheets("Mitarbeiterdatenbank").Rows(laR + 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Wenn mir jemand helfen kann wäre ich sehr dankbar, kann auch gerne die bisher funktionierende Mappe zur Verfügung stellen..
Ganz lieben Dank...
Lena

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Lena2() Dim SuBe As Range Dim s As String Dim laR1 As Long, lar2 As Long Application.ScreenUpdating = False s = ActiveSheet.Range("A200").Value With Sheets("Mitarbeiterdatenbank") laR1 = .Cells(Rows.Count, 1).End(xlUp).Row Set SuBe = .Range("A1:A" & laR1).Find(s, lookat:=xlWhole) If Not SuBe Is Nothing Then 'überschreiben .Range("A" & SuBe.Row & ":IV" & SuBe.Row).Value = _ ActiveSheet.Range("A200:IV200").Value Else 'anfügen On Error Resume Next lar2 = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row On Error GoTo 0 .Range("A" & lar2 + 1 & ":IV" & lar2 + 1).Value = _ ActiveSheet.Range("A200:IV200").Value End If Set SuBe = Nothing End With End Sub

Hallo Lena,
das Mako habe ich aus meinem Forumsbeitrag zurückkopiert und nochmals getestet. Bei mir läuft es genau so, wie von mir erwartet.
- Der Inhalt der Zelle "A200" des aktiven Blattes wird in der Spalte "A" des Blattes "Mitarbeiterdatenbank" gesucht.
- Wird das Makro dort fündig, so wird die entsprechende Zeile des Blattes "Mitarbeiterdatenbank" mit den Werten der Zeile 200 des aktiven Blattes überschrieben.
- Wird das Makro nicht fündig, so wird im Blatt "Mitarbeiterdatenbank" unten eine neue Zeile mit den Werten der Zeile 200 des aktiven Blattes angefügt.
- Allerdings wird beim Überschreiben die entsprechende Zelle nicht markiert; falls dies notwendig ist, könnte ich Dir das ggf. aber noch einbauen.
Du solltest vielleicht auch darauf achten, dass beim Start des Makros auch das richtige Blatt (das mit der Zeile "200") das aktive Blatt ist, und nicht etwa das Blatt "Mitarbeiterdatenbank".
Wenn das Makro nach diesen Hinweisen bei Dir immer noch nicht läuft, dann solltest Du Deine Mappe doch auf den Forumsserver hochladen, damit ich das Makro quasi am "lebenden Objekt" testen kann.

Gruß
WernerB.

Beliebteste Forumthreads (12 Monate)

Vor Kopieren, Tabelle nach Datensatz durchsuchen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vor Kopieren, Tabelle nach Datensatz durchsuchen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread