Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1676to1680
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile kopieren

Zeile kopieren
28.02.2019 05:09:40
Thomas
Hallo Excelfreunde,
ich bin auf der suche nach einem Makro das folgendes tut,
Prüfe ob der Wert ( Zahlen ) der aktiven Zeile ( Tabelle 1) in der Spalte A der Tabelle 2 schon vorhanden ist, falls ja überschreibe diese Zeile (den Bereich A bis z). Falls der wert nicht vorhanden ist füge die aktive Zeile ( Spalte a bis Z ) unten mit an. Kopiert werden sollen nur die werte.
Kann mir jemand dabei helfen?
Im netz finde ich leider so ein Beispiel nicht.
habt schon mal recht vielen dank für euer Interesse.
mfg thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile kopieren
28.02.2019 07:32:36
Armin
Hallo Thomas,
es wäre besser Du lädst eine Beispieldatei hoch. Erfahrungsgemäß entstehen dadurch weniger Nachfragen und weniger Missverständnisse.
Gruß Armin
AW: Zeile kopieren
28.02.2019 11:46:04
Thomas
Hallo Armin,
besten dank für dein Interesse.
Ich habe es geschafft und es läuft auch.
Vielleicht kann sich dies mal jemand anschauen um es womöglich zu verbessern.
habt schon mal besten dank für euer Interesse.
mfg thomas
https://www.herber.de/bbs/user/127991.xlsm
Dim wb As Workbook
Dim ws As Worksheet
Dim suchwert
Dim c As Range
'ActiveSheet.Range(ActiveCell.Row, 1) = suchwert
Application.ScreenUpdating = False
suchwert = Cells(Selection.Row, 1)
Set ws = Tabelle2
Set c = ws.Range("A:A").Find(suchwert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
MsgBox "Wert ist vorhanden in der Zeile zeile wird aktualisiert" & c.Row
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 30)).Copy
ws.Cells(ws.Cells(c.Row, 1).Row, 1).PasteSpecial xlPasteValues
Cells(Selection.Row, 1).Select
Else
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 30)).Copy
ws.Cells(ws.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues
MsgBox "Wert ist nicht vorhanden!"
Cells(Selection.Row, 1).Select
End If
Set ws = Nothing
Set c = Nothing
Application.ScreenUpdating = True
Application.CutCopyMode = False
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige