suchen/ersetzen und werte in andere Spalten kopier

Forumthread: suchen/ersetzen und werte in andere Spalten kopier

Tobi-san

Hallo Wissende
Habe mir ziemlich viele Archiv-Beiträge angeschaut und wollte mir etwas "zusammenbasteln" - leider ist mir das als Anfänger zu komplex geworden...
Mein Problem:
Auf Tabelle1 habe ich in Spalte A die Artikelgruppen eingetragen - z.B. Schraube oder Sicherung etc.
In Spalte B sind die dazugehörigen Zahlen als Datenbankschlüssel - z.B. 1, 10, 52 etc.
In Tabelle2 habe ich eine riesige Bestandsliste, wo ich eine leere Spalte eingefügt habe (Spalte F).
Nun soll die Spalte A1, A2 etc. von Tabelle1 mit den Inhalten der B1 bis Bx verglichen werden und bei einer (teilweisen) Übereistimmung die entsprechende Zahl von Tabelle1 Spalte B in Spalte F von Tabelle2 reinkopiert werden.
Teilweise Übereinstimmung desshalb, weil zur Gruppe Sicherung auch Sicherungshalter oder zu Schraube auch Blechschraube dazugehört! Wie man sieht, darf bei dem Vergleichen auch nicht auf Grossschreibung geachtet werden, da Schraube ja in Blechschraube klein geschrieben wird...
Einfaches Vergleichen würde ich ja vielleicht noch hinbekommen, aber so bin ich masslos überfordert!
Kann mir da jemand ein paar Tipps geben, wie man das lösen könnte?
Wäre SUPER!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Ich bin zu faul...

16.12.2009 17:52:34

ransi

HAllo
...mir ein Tabelle zu basteln die deinen Gegebenheiten entspricht.
;-)
Kannst du mal eine Aussagekräftige Beispieltabelle hochladen ?
ransi

AW: Ich bin zu faul...

17.12.2009 11:27:42

Tobi-san

Hallo ransi
hier ist das File (gekürzte Fassung)...
https://www.herber.de/bbs/user/66654.xls
Danke für das Interesse :-)

AW: Ich bin zu faul...

17.12.2009 11:51:00

ransi

Hallo Tobi
Schau mal ob das in die richtige Richtung geht:
Tabelle2

	A	B	C	D	E	F	G
1	874013345	Blechmutter				#NV
2	870570215	Blechschraube 4.8x16				#NV
3	874006165	Blechschraube 4,8x25				#NV
4	874010735	Blechschraube 4,8x19				#NV
5	85035436	Blechschraube 4.8x32				#NV
6	87401257	Cover-Sicherungshalter MINI FUSE				3
7	87055602	Durchführungstülle Ø 20mm				2
8	87058946	Durchführungstülle Ø 32mm				2
9	87057427	Durchführungstülle Ø 40 mm				2
10	87401098	Durchführungstülle Ø 45mm				2
11	87401089	Durchführungstülle abgewinkelt Ø 40 mm				2
12	87401434	Durchführungstülle 2-fach Ø 40mm				2
13	87401326	Durchführungstülle mit Endstück Ø 40 mm				2
14	87056841	Durchführungstülle Ø 25mm				2
15	87057182	Durchführungstülle mit Schaft Ø 32 mm				2
16	87400043	Durchführungstülle Ø 35mm				2
17	87400035	Durchführungstülle Ø 40mm				2
18	87401327	Durchführungstülle oval abgewinkelt Ø 28 x 60 mm				2
19	87401325	Durchführungstülle oval abgewinkelt Ø 40 x 60 mm				2
20	87400679	Durchführungstülle oval mit Schaft (FIBRAX)				2
21	87057150	Durchführungstülle Ø 18mm				2
22	87057247	Durchführungstülle Ø 18mm				2
23	87057633	Flachsteckabzweiger 3M RT				#NV
24	870574155	Federring A6				#NV
25	87057621	Flachsteck-Sicherung 10A Little Fuse / AVAR/MTA				3
26	87401066	Flachsteck-Sicherung 10A Little Fuse / LITTLEFUSE				3
27	87401250	Flachsteck-Sicherung 10A Mini Fuse / MTA				3
28	87057471	Flachsteck-Sicherung 15A Little Fuse / AVAR/MTA				3
29	87401067	Flachsteck-Sicherung 15A Little Fuse / LITTLEFUSE				3
30	87401251	Flachsteck-Sicherung 15A Mini Fuse / MTA				3
31	87057623	Flachsteck-Sicherung 20A Little Fuse / AVAR/MTA				3
32	87401068	Flachsteck-Sicherung 20A Little Fuse / LITTLEFUSE				3
33	87401252	Flachsteck-Sicherung 20A Mini Fuse / MTA				3
34	87058494	Flachsteck-Sicherung 25A Little Fuse / AVAR/MTA				3
35	87401263	Flachsteck-Sicherung 25A Little Fuse / LITTLEFUSE				3
36	87401519	Flachsteck-Sicherung 25A				3
37

Formeln der Tabelle

Zelle	Formel
F1	=VERWEIS(2;1/(ISTZAHL(FINDEN(Tabelle1!$A$1:$A$10;B1))); Tabelle1!$B$1:$B$10)

Tabelle1

	A	B
1	Schrauben	1
2	Durchführungstülle	2
3	Sicherung	3
4	Verbindungsmaterial	4
5	Schraubenzubehör	5
6	Kabelschuhe	6
7	Sicherungszubehör	7
8	Baugruppen	11
9	Flachsteckergehäuse	9
10	Steckhülsenkontakte	10
11

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi

AW: Ich bin zu faul...

17.12.2009 15:33:48

Tobi-san

Hallo ransi
Das sieht schon mal sehr gut aus!! Nur die "Blechschrauben" müssten noch die Nummer 1 bekommen...
Die Frage wäre da noch, ob z.B. ein "Sicherunghalter", oder "Sicherungsdeckel" die Nummer 7 bekommen würde?
Natürlich müsste ich dann statt "Sicherungszubehör" als Kategorie (als Trick) nur "Sicherungs" nehmen, um
den Unterschied in der Suche hinzubekommen.
Das ist onhne Makro (bzw. VBA) oder?
Danke soweit schonmal :-)

AW: Ich bin zu faul...

17.12.2009 17:24:17

ransi

HAllo Nur die "Blechschrauben" müssten noch die Nummer 1 bekommen... Dann müsstest du in Tabelle1 als Suchbegriff nicht Schrauben nehmen sondern Schraube.
Genauso wie du das schon mit Sicherungs vorhast.
ransi

VBA

18.12.2009 14:12:24

Tobi-san

Hallo ransi
habe hier mal ein Skript "gebastelt":
Option Explicit

Sub Tobias_sortieren()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim String1 As String, String2 As String, String3 As String
Dim m As Integer, i As Integer
'Setze die beiden Tabellen
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
' Alle werte von der Tabelle 2
For m = 1 To 300 Step 1
String1 = ws2.Cells(m, 2).Value
' Alle werte von der Tabelle 1
For i = 1 To 28 Step 1
String2 = ws1.Cells(i, 1).Value
String3 = ws1.Cells(i, 2).Value
' Verlgeiche Werte von Tabelle 1 und 2
If InStr(1, String1, String2, vbTextCompare) Then
' Sind Werte identisch, schreibe entsprechende Zahl in Tabelle 2
ws2.Cells(m, 6).Value = String3
End If
Next i
Next m
End Sub

Funktioniert, aber mit der Anzahl, die zu definieren ist (bei i und m) bin ich nicht zufrieden.
Kannst Du mir sagen wie ich daraus ein "Do Until IsEmpty(Cells(xxxx))" realisieren kann?
Gruss
Tobi

Beliebteste Forumthreads (12 Monate)

suchen/ersetzen und werte in andere Spalten kopier

Forumthread: suchen/ersetzen und werte in andere Spalten kopier

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

suchen/ersetzen und werte in andere Spalten kopier

Forumthread: suchen/ersetzen und werte in andere Spalten kopier

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread