Hallo Leute,
ich bräuchte Mal eure Hilfe. Und zwar habe ich ein Makro vor mir, welches Daten aus einer Tabelle liest und in eine andere Tabelle schreibt.
Ich versuche das Makro dazu zu bringen, dass es den Code nur auf Zeilen anwendet, in denen ein bestimmtes Wort steht. Sagen wir das Wort lautet „Apfel“. Das Wort steht immer der gleichen Spalte. Die Spalte heißt immer gleich, in diesem Beispiel „Obstsorte“. Allerdings kann die Spalte „Obstsorte“ aus Gründen der Formatierung immer an einer anderen Stelle stehen, sei es nun Spalte P, V, AA, etc. Ich habe versucht, den Code abbrechen zu lassen, wenn nicht „Apfel“ oder ein Leerzeichen in einer Zelle der Spalte „Obstsorte“ steht, allerdings soll der Code ja weiterlaufen, weil eventuell weiter unten noch relevante Zellen mit „Apfel“ stehen. Meinen Lösungsansatz füge ich mal an und auch eine anonymisierte Tabelle, um es besser zu veranschaulichen.
Also in dieser angehangenen anonymisierten Tabelle soll er die Datensätze mit „Apfel“ am 01.01.2012 und am 23.01.2012 aus der Tabelle nehmen und in die andere Tabelle schreiben. Der Datensatz „Orange“ am 15.01.2012 soll ignoriert werden, genauso wie die leeren Zeilen über dem ersten Datensatz „Apfel“. Die Datumsangaben sind in diesem Beispiel der Spalte K zu entnehmen.
Ich hoffe, dass ich mein Problem gut schildern konnte.
LG Nick
https://www.herber.de/bbs/user/132158.xlsx
' Obstsorten filtern
Dim Treffer1 As Range
With Tabelle1
Set Treffer1 = Rows(2).Find(what:="obstsorte", lookat:=xlWhole)
Dim Obstsorte As Range
Set Obstsorte = .Rows(1).Find(what:="Obstsorte", lookat:=xlWhole)
If Treffer1 "Apfel" Or Treffer1 "" Then
End Sub
Else
End If