Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
436to440
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
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchen und eintragen

Suchen und eintragen
10.06.2004 13:18:58
Gerald
Hallo
Ich habe zwei Tabellenblätter. Im Tabellenblatt2 stehen ca. 1000 Artikel. In Tabellenblatt1 (wird aus einem Textfile ausgelesen) ca. 50 Artikel Spalte A und die Anzahl Spalte B. Nun soll aus Tabelle1 die Artikelanzahl in Tabelle2 Spalte B eingetragen werden. Dafür bräuchte ich eine Makrolösung.
Wäre schön, wenn mir jemand helfen könnte. Im Voraus vielen Dank
Gerald

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

Betreff
Datum
Anwender
Anzeige
AW: Suchen und eintragen
Beni
Hallo Gerald,
Gruss Beni

Sub Suchen_und_eintragen()
Dim i As Integer
Dim Wert As Variant
Dim c As Range
Sheets("Tabelle1").Select
For i = 1 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(i, 1).Value
With Sheets("Tabelle2").Columns(1)
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then c(1, 2) = Cells(i, 2).Value
End With
Next i
End Sub

AW: Suchen und eintragen
10.06.2004 23:45:47
Gerald
Hallo Beni
Tausend Dank. Danach habe ich schon Tage gesucht.
Schönen Abend noch Gerald
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige