Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Prüfen ob Spalte vorhanden

Forumthread: Prüfen ob Spalte vorhanden

Prüfen ob Spalte vorhanden
01.05.2026 16:05:03
Opalu
Hallo Profix,

ich muß in einer Tabelle A eine Spalte kopieren und in eine andere Datei B kopieren. Dabei soll
geprüft werden ob in Tabell B bereits eine Spalte mit der Kopfzeile aus der Spalte existiert. Wenn Ja
die bestehende in B überschreiben...wenn nein in B als letzte Spalte einfügen.

Ich hoffe ich hab mich einigermaßen klar ausgedrückt.

Gruss Opalu und schon mal herzlichen Dank
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Spalte vorhanden
01.05.2026 17:03:22
Daniel
Ich vermute mal du meinst VBA

Dim x as Range

Dim spn as String
spn = "Überschrift"

With Workbooks("Datei B.xls?").Sheets("???")
Set x = .Rows(1).find(spn, look at:=xlwhole)
If x is nothing then set x = .cells(1, columns.count).end(xltoleft).Offset(0, 1)
End with

Sheets("Tabelle A").Rows(1).find(spn, look at:=xlwhole).entireColumn.copy destination:=x


Gruß Daniel
Anzeige
AW: Prüfen ob Spalte vorhanden
01.05.2026 19:19:05
Opalu
Hallo Daniel

leider kennt meine Exlcel-Version die Zeilen
Set x = .Rows(1).find(spn, look at:=xlwhole) und
Sheets("Tabelle A").Rows(1).find(spn, look at:=xlwhole).entireColumn.copy destination:=x
nicht und markiert mir die rot.
Auch wenn ich die dazugehörigen Tabellennamen und Blattnamen verwalte.

Was mach ich da verkehrt

Gruss Opalu

Anzeige
AW: Prüfen ob Spalte vorhanden
01.05.2026 19:39:01
Daniel
Naja, du musst leider auch die Tippfehler, die meine Autokorrekturvom Handy da einbaut korrigieren, bspw wird das Lookat zusammen geschrieben.

Sie meinen Beitrag bitte als Inspiration zum selber programmieren, nicht als fertige Copy-Paste-Lösung.
lookat statt look at. owT
01.05.2026 23:42:50
Uduuh
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18