Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1288to1292
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
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen nach unterschiedlichen Werten durchsuchen

Zellen nach unterschiedlichen Werten durchsuchen
20.12.2012 19:57:48
alej
Hallo zusammen,
ich habe eine Tabelle (Bsp. Tabelle 1)
Deb-Nr. Name OP Buch.-Dat. usw
10021
10021
10045
34567
10045
12556
in einer zweiten Tabelle habe ich wieder eine Liste mit Debitorennummern (Bsp. Tabelle 2)
10021
10045
10001
10002
usw.
Wie ich eine Zeile nach einem bestimmten Inhalt z.B. 10021 durchsuche und dann kopiere habe ich an hand von Beispielen rausgefunden. Wie bekomme ich es aber hin, das die Tabelle 2 als Referenz für die Suche genommen wird
wenn tabelle2.wertX = tabelle1.wertX
dann kopiere tabelle1.reiheX
nach tabelle3.reiheX
usw.
Am Ende sollen in Tabelle 3 nur die Reihen "stehen", die auch in Tabelle 2 vorkommen
Grüße
alej

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen nach unterschiedlichen Werten durchsuchen
20.12.2012 23:48:29
fcs
hallo alej,
das Grundgerüst für solch eine Kopieraktion mit Prüfung in einem 2. Blatt sieht wie folgt aus.
Gruß
Franz 
Sub Kopieren_Nach_Tabelle3()
Dim wksQuelle As Worksheet, wksZiel As Worksheet, wksVergleich As Worksheet
Dim varDebNr As Variant
Dim Zeile_Q As Long, Zeile_Z As Long
Dim rngZelle As Range, rngVergleich As Range
Set wksQuelle = ActiveWorkbook.Worksheets(1)
Set wksVergleich = ActiveWorkbook.Worksheets(2)
Set wksZiel = ActiveWorkbook.Worksheets(3)
With wksVergleich
'Zellbereich mit den Debitorennummern im Vergleichsblatt in Spalte A
Set rngVergleich = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
With wksZiel
'letzte Zeile mit Daten in Spalte A der Zieltabelle
Zeile_Z = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
With wksQuelle
For Zeile_Q = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
varDebNr = .Cells(Zeile_Q, 1).Value
'Debitorennummer im Vergleichsblatt suchen
Set rngZelle = rngVergleich.Find(What:=varDebNr, LookIn:=xlValues, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
Zeile_Z = Zeile_Z + 1
.Rows(Zeile_Q).Copy Destination:=wksZiel.Rows(Zeile_Z)
End If
Next Zeile_Q
End With 'wksQuelle
End Sub

Anzeige
AW: Zellen nach unterschiedlichen Werten durchsuchen
21.12.2012 00:05:25
Ass
Hallo alej 
Option Explicit
Sub alej()
Dim w_Tab1 As Worksheet, w_Tab2 As Worksheet, w_Tab3 As Worksheet
Dim arInput, arVergleich, arOutput
Dim i&, j&, k&, l&
Set w_Tab1 = Worksheets("Tabelle1")
Set w_Tab2 = Worksheets("Tabelle2")
Set w_Tab3 = Worksheets("Tabelle3")
arInput = w_Tab1.Range("b2").CurrentRegion
arVergleich = w_Tab2.Range("a1").CurrentRegion
ReDim arOutput(1 To UBound(arInput), 1 To UBound(arInput, 2))
For i = 1 To UBound(arVergleich)
For j = 1 To UBound(arInput)
If arInput(j, 1) = arVergleich(i, 1) Then
k = k + 1
For l = 1 To UBound(arInput, 2)
arOutput(k, l) = arInput(j, l)
Next
End If
Next
Next
w_Tab3.Range("A1").Resize(UBound(arOutput, 1), UBound(arOutput, 2)) = arOutput
End Sub
Gruß
Rudi
Anzeige

325 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Wert in farbiger Zelle addieren
thomas

Hallo,
ich möchte den Wert in farbigen Zellen addieren.
Z.B.
Zelle A1 :C1 Zellfarbe gelb, in jeder Zelle steht der Wert 1 ; Ergebnis soll 3 sein
oder
Zelle A2 = grün Wert =1, B2 = gelb Wert=2, C2 = gelb Wert =2; Ergebnis soll 4 sein
gibt es dafür eine Funktion oder is...
13.08.2008 12:56:00
Thread-ID: 1001497
4 Beiträge
Anzeige
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 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
2
4
8
3
16
7
5
3
3
9
5
3
3
2
1
4
5
14
11
4
2
4
5
1
7