Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1408to1412
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

zellwert suchen und einfügen

zellwert suchen und einfügen
23.02.2015 09:54:49
chaoskalle
Hallo zusammen,
ich möchte für die Arbeit eine Auswertung schreiben. Aus einem Tagesbedarf sollen Werte ausgelesen und in einer Übersicht an bestimmter Stelle eingefügt werden.
Mein bisheriger Code:

Sub Test()
Dim i, ersteZeile, letzteZeile As Integer
Dim Wert1, Wert2 As Integer
Set wsQ = Worksheets("Tabelle1")
Set wsA = Worksheets("Tabelle2")
ersteZeile = wsQ.Cells(7, 2).Row
letzteZeile = wsQ.Cells(ActiveSheet.Rows.Count, 3).End(xlUp).Row
For i = ersteZeile To letzteZeile
'Anfang
If Not wsQ.Cells(i, 40).Value = "" Then
Wert1 = wsQ.Cells(i, 5).Value
Wert2 = wsQ.Cells(i, 40).Value
If Wert1 = Application.WorksheetFunction _
.VLookup(Wert1, wsA.Range("C3:H45"), 1, 0) Then
'Wert1 ist gefunden, aber wie bekomme ich jetzt Wert2 in Spalte 5 eingetragen?
wsA.Cells(1, 1).Value = "gefunden"
End If
End If
Next
End Sub

An dieser Stelle hänge ich nun und hoffe auf Hilfe.
Gruß
chaoskalle

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zellwert suchen und einfügen
23.02.2015 10:58:39
Rudi
Hallo,
Sub Test()
Dim i, ersteZeile, letzteZeile As Integer
Dim Wert1, Wert2 As Integer
Dim vRow As Long
Dim wsQ As Worksheet, wsA As Worksheet
Set wsQ = Worksheets("Tabelle1")
Set wsA = Worksheets("Tabelle2")
ersteZeile = 7
letzteZeile = wsQ.Cells(Rows.Count, 3).End(xlUp).Row
For i = ersteZeile To letzteZeile
'Anfang
If Not wsQ.Cells(i, 40).Value = "" Then
Wert1 = wsQ.Cells(i, 5).Value
Wert2 = wsQ.Cells(i, 40).Value
vRow = Application.Match(Wert1, wsA.Columns(3), 0)
If Not IsError(vRow) Then
wsA.Cells(vRow, 5) = Wert2
End If
End If
Next
End Sub

Gruß
Rudi
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige