Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1708to1712
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

Wert suchen und Zellinhalt in anderer Tabelle ausg

Wert suchen und Zellinhalt in anderer Tabelle ausg
26.08.2019 22:47:54
Joachim
Hallo zusammen,
habe folgendes Problem.
Ich habe eine Excel Datei mit 2 Tabellen.
In der ersten Tabelle (Checkliste) soll die Spalte D nach 2 verschiedenen Werten/Einträgen durchsucht werden. Die Werte sind zum Beispiel "C" und "D/KO".
Wenn die Werte gefunden wurden, dann sollen die Inhalte der Zellen D und F (der jeweiligen Zeile) in die erste freie Zeile in der 2. Tabelle eingefügt werden. Und zwar immer in Spalte C und E.
Wäre suuuuper, wenn mir jemand behilflich ist.
Viiiiiiiiiiielen Dank schon mal.

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

Betreff
Datum
Anwender
Anzeige
AW: Wert suchen und Zellinhalt in anderer Tabelle ausg
27.08.2019 00:26:21
Piet
Hallo
dieses kleine Makro dürfte das Problem lösen. Würde mich freuen wenn es auf Anhieb klappt.
Da wo im Makro Const Wert 1+2 steht, "C" und "D/KO", musst du deine echten Suchbegriffe angeben!
mfg Piet
Option Explicit      '27.8.2019   Piet   Herber Forum
Const Wert1 = "C"
Const Wert2 = "D/KO"
Sub Werte_suchen_kopieren()
Dim AC As Range, lz1 As Long
Dim Tb2 As Worksheet, z2 As Long
Set Tb2 = Worksheets("Tabelle2")
z2 = 2  '1.Zeile in Tabelle2
With Worksheets("Tabelle1")
'LastZell in Spalte D ermitteln
lz1 = .Cells(Rows.Count, 4).End(xlUp).Row
'Schleife zum prüfen und Daten kopieren
For Each AC In .Range("D1:D" & lz1)
If AC = Wert1 Or AC = Wert2 Then
Tb2.Cells(z2, 3) = AC.Cells(1, 1)   'D nach C kopieren
Tb2.Cells(z2, 5) = AC.Cells(1, 3)   'F nach E kopieren
z2 = z2 + 1
End If
Next AC
End With
End Sub

Anzeige
AW: Wert suchen und Zellinhalt in anderer Tabelle ausg
27.08.2019 07:18:32
Joachim
Hallo Piet,
das klappt suuuuper.
Vielen Dank.
VG Joachim

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige