Rückschreiben - Zellwert (VBA)
Hallo VB,
ich bin absoluter Anfänger in der Makroprogrammierung
Ich nehme mal an, du kennst dich wenigstens ansonsten etwas mit Excel aus? Im folgenden unterstelle ich einfach, dass du Bereiche mit Namen benennen kannst.
Ich habe das ganze gerade stark vereinfacht bei mir nachgebildet und dabei auch nicht in verschiedenen Workbooks, sondern einfach nur verschiedene Worksheets. Aber wenn du den folgenden Code für deine Zwecke anpasst, sollte das wohl das kleinste Problem sein. Jedenfalls habe ich in Tabelle1 einen Bereich namens "Rohdaten" und Tabelle2 hat einen Bereich "Vorlage" - beide Bereiche nur je eine Spalte breit, aber umfassen jeweils alle Zeilen der Rohdaten bzw des Vergleichs.
Sub finde() Dim i As Integer Dim Rohdaten As Range, Vergleich As Range, Wert As Range Set Rohdaten = ActiveWorkbook.Worksheets("Tabelle1").Range("Rohdaten") Set Vergleich = ActiveWorkbook.Worksheets("Tabelle2").Range("Vergleich") For i = 1 To Rohdaten.Cells.Count 'Gehe einzeln durch die Rohdaten, Set Wert = Vergleich.Find(Rohdaten(i)) 'suche sie beim Vergleich. If TypeName(Wert) <> "Nothing" Then 'Wenn gefunden, Rohdaten(i).Offset(0, 1) = "erledigt" 'schreibe was daneben. End If Next End Sub
Martin
gesamter Thread:
- Rückschreiben - Zellwert -
VB,
19.11.2015, 16:26
- Rückschreiben - Zellwert -
Martin Asal,
19.11.2015, 22:04
- Rückschreiben - Zellwert -
VB,
20.11.2015, 08:09
- Rückschreiben - Zellwert -
VB,
20.11.2015, 08:46
- Rückschreiben - Zellwert -
Martin Asal,
20.11.2015, 19:57
- Rückschreiben - Zellwert -
VB,
21.11.2015, 10:41
- Rückschreiben - Zellwert -
VB,
21.11.2015, 13:04
- Rückschreiben - Zellwert -
Martin Asal,
23.11.2015, 09:10
- Rückschreiben - Zellwert - VB, 23.11.2015, 14:27
- Rückschreiben - Zellwert -
Martin Asal,
23.11.2015, 09:10
- Rückschreiben - Zellwert -
VB,
21.11.2015, 13:04
- Rückschreiben - Zellwert -
VB,
21.11.2015, 10:41
- Rückschreiben - Zellwert -
Martin Asal,
20.11.2015, 19:57
- Rückschreiben - Zellwert -
VB,
20.11.2015, 08:46
- Rückschreiben - Zellwert -
VB,
20.11.2015, 08:09
- Rückschreiben - Zellwert -
Martin Asal,
19.11.2015, 22:04