Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1704to1708
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
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten vergleichen und dann kopieren

Spalten vergleichen und dann kopieren
06.08.2019 10:14:28
Sammy
Hallo,
Kopieren, wenn Wert von Tabelle B und Spalte B mit einem Wert von Tabelle A und Spalte B übereinstimmt.
ich bräuchte noch ein letzes mal eure Hilfe...
Ich muss die Spalte B der Tabelle A ("Kopie 4 (2).xlsx") mit Tabelle B ("Kopie 3 (1).xlsx"). Wenn eine Übereinstimmung erfolgt, dann soll Zelle G, der übereinstimmenden Werte aus Spalte B, von Tabelle B in Tabelle A kopiert werden. Und das am besten in einer Schleife, bis alle Spalten B mit der andern Tabelle vergliechen wurden.
Ich würde mich freuen, wenn ihr mir helfen könntet.
Gruß
Sammy :)

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Keine Reaktion, dafür neuer Thread? (owT)
06.08.2019 10:18:39
EtoPHG

AW: Keine Reaktion, dafür neuer Thread? (owT)
06.08.2019 10:21:09
Sammy
die anderen Threads kann man vergessen xD
Mir ist ein viel leichterer Weg eingefallen, wie oben beschrieben
sry...
Dann schreib das bitte in letztere! (owT)
06.08.2019 10:22:24
EtoPHG

AW: Dann schreib das bitte in letztere! (owT)
06.08.2019 10:23:44
Sammy
kannst du mir eventuell trotzdem helfen?
Erst wenn aufgreräumt ist! (owT)
06.08.2019 10:25:44
EtoPHG

AW: Erst wenn aufgreräumt ist! (owT)
06.08.2019 10:28:41
Sammy
wie kann ich den threads löschen?
Gar nicht, das Netzt vergisst nie! (owT)
06.08.2019 11:13:59
EtoPHG

AW: Gar nicht, das Netzt vergisst nie! (owT)
06.08.2019 11:16:04
Sammy
kannst du mir jetzt helfen? :(((
AW: Crossposting
06.08.2019 11:00:47
Sammy
ich brauche doch nur hilfe :(
AW: Crossposting
06.08.2019 11:03:14
SF
Hola,
http://www.excel-ist-sexy.de/crossposting/
Hilfe brauchen hier fast alle. Fragst du in mehreren Foren nach, ohne das mitzuteilen, erhälst du uU die gleichen Lösungen. Es hat also jemand völlig umsonst gearbeitet. Arbeitest du gerne umsonst?
Gruß,
steve1da
Anzeige
AW: Crossposting
06.08.2019 11:04:27
Sammy
ja sorry, kannst du mir trotzdem helfen?
AW: Crossposting
06.08.2019 11:12:23
Sammy
So weit bin ich ja schon:
Sub vergleiche()
Dim BereichA As Range, ZelleA As Range
Dim BereichB As Range, ZelleB As Range
Dim Wert, AlleWerte
Dim Vergleich As Boolean
Set BereichA = Workbooks("Kopie 4 (2).xlsx").Sheets("SRS").Range("B4:B130")
Set BereichB = Workbooks("Kopie 3 (1).xlsx").Sheets("SRS").Range("B4:B130")
For Each ZelleA In BereichA
Wert = ZelleA.Value
For Each ZelleB In BereichB
Vergleich = False
If ZelleB.Value = Wert Then
Workbooks("Kopie 3 (1).xlsx").Sheets("SRS").Range("G4:G130").Copy
Workbooks("Kopie 4 (2).xlsx").Sheets("SRS").Range("G4:G130").PasteSpecial  _
xlPasteValues
Exit For
End If
Next
Next
MsgBox AlleWerte
End Sub
ich muss es nur noch hinbekommen, dass der Inhalt von G an die richitge Stelle reinkopiert wird, aber ich weiß nicht wie...
Anzeige
Was verstehst du unter "richtige Stelle" ? (owT)
06.08.2019 11:30:08
EtoPHG

AW: Was verstehst du unter "richtige Stelle" ? (owT)
06.08.2019 12:33:17
Sammy
wenn zum Beispiel der inhalt er Zelle B10 mit B20 der anderen Tabelle übereinstimmt, soll z.B: G10 (aus Kopie 3) in G20 (Kopie 4) eingefügt werden.
AW: Was verstehst du unter "richtige Stelle" ? (owT)
06.08.2019 13:01:49
peterk
Hallo

Workbooks("Kopie 3 (1).xlsx").Sheets("SRS").Range("G" & ZelleA.Row).Copy _
Workbooks("Kopie 4 (2).xlsx").Sheets("SRS").Range("G" & ZelleB.Row)

AW: Was verstehst du unter "richtige Stelle" ? (owT)
06.08.2019 13:09:45
Sammy 

Sub vergleiche()
Dim BereichA As Range, ZelleA As Range
Dim BereichB As Range, ZelleB As Range
Dim Wert, AlleWerte
Dim Vergleich As Boolean
Set BereichA = Workbooks("Kopie 4 (2).xlsx").Sheets("SRS").Range("B4:B130")
Set BereichB = Workbooks("Kopie 3 (1).xlsx").Sheets("SRS").Range("B4:B130")
For Each ZelleA In BereichA
Wert = ZelleA.Value
For Each ZelleB In BereichB
Vergleich = False
If ZelleB.Value = Wert Then
Workbooks("Kopie 3 (1).xlsx").Sheets("SRS").Range("G" & ZelleA.Row).Copy _
Workbooks("Kopie 4 (2).xlsx").Sheets("SRS").Range("G" & ZelleB.Row)
Exit For
End If
Next
Next
End Sub
Vielen Dank für die Antwort, nur werden trotzdem die falschen Inhalte in die falschen Spalten eingefügt, könntest du dir den ganzen code nochmal angucken?
Gruß
Sammy :)
Anzeige
AW: Was verstehst du unter "richtige Stelle" ? (owT)
06.08.2019 13:33:59
peterk
Hallo
Ich hab ZelleA und ZelleB vertauscht :-(

If ZelleB.Value = Wert Then
Workbooks("Kopie 3 (1).xlsx").Sheets("SRS").Range("G" & ZelleB.Row).Copy _
Workbooks("Kopie 4 (2).xlsx").Sheets("SRS").Range("G" & ZelleA.Row)
Exit For
End If

AW: Was verstehst du unter "richtige Stelle" ? (owT)
06.08.2019 13:37:21
Sammy
Funktioniert nun einwandfrei... Vielen herzlichen Dank
Gruß
Sammy :)))
Ganz einfach: SVERWEIS(...)
06.08.2019 11:28:17
EtoPHG
Hallo Sammy,
Es ist eine Gepflogenheit, der Netiquette und den Forumsregeln zu folgen. Dazu gehören u.a.
  • Kein Crossposting, wenn doch, ein Hinweis in jedes Forum

  • Anrede, Inhalt, Grussformel

  • Keine Ungeduld, keiner wartet auf deine Probleme!

  • Eine Reaktion/Antwort auf Beiträge und eine Rück-/Endemeldung zum Abschluss.

    • Dein Problembeschreibung ist mangelhaft. Eine Beispielmappe mit der Datenstruktur, Problembeschreibung und erwarteten Resultaten macht es den Helfern wesentlich einfacher einen Lösungsvorschlag zu erstellen.
    Dein Problem dürfte sich mit einer SVERWEIS-Formel lösen lassen. Sieh dir dazu die Hilfe für diese Funktion in Excel/Netz an. Ansonsten, siehe vorhergehender Absatz!
    Gruess Hansueli
    Anzeige

    306 Forumthreads zu ähnlichen Themen

    Zwei Spalten in jeweils zwei Tabellen miteinander
    Lutz

    Liebe Leute,
    ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
    In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
    08.08.2008 15:56:55
    Thread-ID: 1000336
    4 Beiträge
    Anzeige
    VBA--Zellen finden/vergleichen/kopieren
    Christian

    Hallo
    einen Beispieldatei ist anbei!!
    Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
    Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
    07.10.2008 10:15:00
    Thread-ID: 1014634
    3 Beiträge
    Zwei Werte Vergleichen....
    chrissey

    Hallo Leut,
    hätte ne easy Frage:
    Habe in Zelle A1 einen Wert, sagen wir mal "HANS", stehen und möchte nun eine Mtrix nach diesen Wert absuchen
    sagen wir mal die Zellen
    B10 bis B100 (gefüllt mit Namen: PETER; DIETER; ...... ; HANS; usw.)
    wie mach ich des? Vergleich gibt mir...
    10.10.2008 15:09:52
    Thread-ID: 1015606
    3 Beiträge
    Anzeige
    zwei Spalten vergleichen
    Schmidt

    Guten Tag,
    ich bin langsam am verzweifeln, was Excel angeht. Jetzt habe ich endlich meine 2000-Zeilen Tabelle fertig und da fällt doch glatt auf, dass es noch eine Tabelle gibt, die parallel geführt wurde.
    Das Problem: es könnte sein, dass einzelne Komponenten nicht in beiden Tabellen e...
    28.10.2008 10:38:01
    Thread-ID: 1019838
    6 Beiträge
    Formel zum Abgleich zweier Spalten
    Tina

    Nabend.
    Ich habe in Spalte A ganze viele Auftragsnummern und in Spalte B ebenso. Ich möchte mit einer Formel die beiden Spalten vergleichen und alle die in Spalte A sind und in Spalte noch noch sollen in Spalte C von Zelle a1 an abwärts ausgwiesen werden. geht das? danke für hilfe.
    tinc...
    28.11.2008 17:14:00
    Thread-ID: 1028749
    2 Beiträge
    Spalten vergleichen, löschen und zählen
    Micky

    Hallo Ihr Excel Ritter,
    ich habe folgendes Problem, in 2 Spalten stehen Nummern teilweise doppelt,
    nun darf jede NR. nur 1x auftauchen entwerder in Spalte a oder b.
    Pro Nr. soll in einer 3. Spalte dann der Wert 1 ausgebeben werden oder 0 für
    keine Nummer. Zeilen dürfen nicht g...
    10.12.2008 10:17:50
    Thread-ID: 1031594
    11 Beiträge
    Doppelte über zwei Spalten - vergleichen
    Wolfgang

    Hallo,
    in einer Mappe befinden sich zwei Tabellenblätter. Gibt es eine Chance, beide Tabellenblätter abzugleichen, ob Datensätze doppelt vorkommen? - Schwierigkeit dabei mag aber sein, dass für die Suche sowohl die Spalte D, als auch Spalte E zu Grunde zu legen wären. Nur also, wenn die Dat...
    09.01.2009 17:26:12
    Thread-ID: 1038283
    5 Beiträge
    Spalten vergleichen und kopieren
    edie

    Hallo zusammen,
    mit dem nachfolgenden Code wird die Spalte C mit der Spalte J verglichen, wobei in
    der Spalte C der String nur einmal vorkommt in der Spalte J aber mehrfach.
    Bei Übereinstimmung werden die Werte der Spalten K, L und M in die Spalten S, T und U
    übernommen.
    ...
    22.01.2009 20:43:26
    Thread-ID: 1042727
    3 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    3
    2
    2
    2
    3
    5
    1
    10
    4
    2
    6
    4
    2
    13
    3
    4
    13
    1
    3
    4
    1
    5
    5
    8
    4