Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 13:34:11
Prozentuale Auswertung
10.05.2024 13:04:04
Stundenberechnung ohne 22:00 - 06:00 & Sonntag
10.05.2024 12:29:14
Alle ActiveX-Optionbuttons aus einem Groupname auf "Fal
10.05.2024 12:14:16
Darunterzellen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenvergleich mehrer Tabellenblätte

Spaltenvergleich mehrer Tabellenblätte
09.09.2003 11:57:57
Thorsten
Hi,

nachdem mich die Recherche nicht weitergbracht hat, hoffe ich, dass ihr mir weiterhelfen könnt:

In Spalte D meines Tabellenblattes 1 stehen Werte, die jeweils mit den Werten der Spalte C der Tabellenblätter 2, 3, 4 und 5 verglichen werden sollen.

Wird der Wert dann gefunden, soll die Zeile k bis o mit den jweils zughörigen Werten aus der anderen Tabelle, die jeweils in i-m stehen, aufgefüllt werden.

Als Bespiel: In der Zelle D1 meines Tabellenbalttes 1 steht 222. Wird dieser Wert dann in Tabellenbaltt 3 in C5 gefunden, dann soll die Zeile i5- m5 kopiert werden und auf dem Tabellenblatt 1 in die Zeile k1- o1 eingetagen werden.

Ich hoffe mir kann jemand helfen, da sämtliche Versuche (Formel, Rechere im Archiv) mich nicht wirklich weitergebracht haben.

Danke, T.

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

Betreff
Datum
Anwender
Anzeige
AW: Spaltenvergleich mehrer Tabellenblätte
09.09.2003 13:01:05
ChrisL
Hi Thorsten

Option Explicit


Sub Thorsten()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, iiZeile As Long, iBlatt As Byte
Set WS1 = Worksheets(1)
For iZeile = 1 To WS1.Range("D65536").End(xlUp).Row
For iBlatt = 2 To 5
Set WS2 = Worksheets(iBlatt)
If Application.WorksheetFunction.CountIf(WS2.Range("C1:C" & WS2.Range("C65536").End(xlUp).Row), Cells(iZeile, 4)) > 0 Then
For iiZeile = 1 To WS2.Range("C65536").End(xlUp).Row
If WS1.Cells(iZeile, 4) = WS2.Cells(iiZeile, 3) Then
WS2.Range("I" & iiZeile & ":M" & iiZeile).Copy WS1.Range("K" & iZeile)
End If
Next iiZeile
Exit For
End If
Next iBlatt
Next iZeile
End Sub


Gruss
Chris
Anzeige
AW: Spaltenvergleich mehrer Tabellenblätte
09.09.2003 14:08:37
Thorsten
Danke, klappt perfekt

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige