Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
476to480
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen ob Eintrag schon vorhanden ist

Suchen ob Eintrag schon vorhanden ist
29.08.2004 18:51:34
Michi
Guten Abend,
ich habe zwei Excel-Tabellen, wobei immer etwas aus der zweiten in die erste Kopiert wird. Ist es möglich nun zu schauen ob die Einträge aus Tabelle 2 in der Tabelle 1 bereits vorhanden sind.
Verfahren zu testen wäre entweder die ganze Zeile bereits vorhanden ist, oder ob das Datum bereits vorhanden ist, dabei ist wohl noch wichtig zu sagen, dass das Datum Formatiert ist, sprich normal Datum mit Uhrzeit in einer Zelle ist aber nur das Datum angezeigt wird (nachdem man dann ja auch suchen müsste).
Wenn nun eine Zeile, oder ein Datum, je nach dem, bereits vorhanden ist müsste man das verschieben/kopieren abbrechen.
Ist das irgenwie möglich?
Vielen Dank!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen ob Eintrag schon vorhanden ist
Beni
Hallo Michi,
da Deine Angaben etwas dürftig sind, gehe ich davon aus, dass das Datum sich in der SpalteA befindet und dass die Zeile1 die Ueberschrift ist.
Starte das Makro aus der Tabelle1.
Gruss Beni

Sub suchen_oder_übrtragen()
With Sheets(2).Columns(1)
For i = 2 To .Cells(65536, 1).End(xlUp).Row
datum = .Cells(i, 1)
Set c = Columns.Find(datum, LookIn:=xlValues)
If c Is Nothing Then
ls = Cells(i, 256).End(xlUp).Column
lz = Cells(65536, 1).End(xlUp).Row + 1
Range(.Cells(i, 1), .Cells(i, ls)).Copy Cells(lz, 1)
End If
Next i
End With
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige