Vorgänger suchen und eintragen

Hallo zusammen,
wer von euch kann mir helfen? Ich habe ein Problem mit Application Match.
Er meldet Fehler 2042. Aber die Deklarationen habe ich schon angepasst. Nun bin ich mit meinem Wissen am Ende.
Gewünschtes Vorgehen:
Wenn eine Aufgabe einen Vorgänger hat (dann ist der VOrgänger in Spalte B), dann soll das Enddatum des Vorgängers (aus Spalte H) als Startdatum (in Spalte E der Aufgabe) in dem Vorgang hinterlegen werden. Das allerdings als Formelverweis ( z.B. in Zelle E5 sollte dann "=$H$4" stehen) Der Wert wird als Datum angezeigt und löst dann weitere Berechnungen (Enddatum) aus.
Der Code ist im Modul 1 hinterlegt. Das Makro heißt - Sub VorgängerdatumEintragen()
Link zur Datei:
https://www.herber.de/bbs/user/143187.xlsm
Ich bin für jede Hilfe dankbar.
Viele Grüße
Marco M.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'von B5 bis zur letzten Zeile durchlaufen und prüfen auf Ganzzahl For Each Vorg In .Range("B5:B" & loLetzteA) If Vorg.Value "" Then vntRow = Application.Match(Vorg.Value, Columns(1), 0) If Not IsError(vntRow) Then 'Enddatum des Vorgängers als Startdatum in Zelle eintragen (als Formel) If Cells(vntRow, 8) "" Then Vorg.Offset(0, 3).FormulaLocal = "=" & Cells(vntRow, 8).Address End If End If End If Next

Public Sub MeineVersion() Dim i As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("to-do Liste") For i = 2 To .Columns("B").Find(what:="*", LookIn:=xlValues, _ searchdirection:=xlPrevious).Row If .Cells(i, 2) "" Then .Cells(i, "E").FormulaLocal = "=" & .Cells(i - 1, "H").Address End If Next i End With Application.EnableEvents = True End Sub

Hallo, ich konnte es lösen.
Für alle, die vor einem ähnlichen Problem stehen, hier meine Lösung.

Sub VorgängerdatumEintragen()
'Wenn Aufgabe einen Vorgänger hat (Spalte B)
'dann Enddatum des Vorgängers (Spalte H)
'in Startdatum (Spalte E) in dem Vorgang hinterlegen
Dim loLetzteA As Long
Dim Vorg As Range
Dim vntRow
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheets("to-do Liste")
'letzte Zeile auslesen in Spalte C
loLetzteA = .Range("C800").End(xlUp).Row
'von B5 bis zur letzten Zeile durchlaufen
For Each Vorg In .Range("B2:B" & loLetzteA)
'Wenn Vorgang Vorgänger enthält dann Vorgänger suchen und
If Vorg.Value  "" Then
'Zeile finden
Set vntRow = .Columns(1).Find(Vorg.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not vntRow Is Nothing Then
'Wenn Zeile des Fundergebnisses = dem Vorgänger
If Cells(vntRow.Row, 1) = Vorg.Value Then
' dann Formel eintragen für Enddatum
'Enddatum des Vorgängers als Startdatum in Zelle eintragen (als Formel)
Vorg.Offset(0, 3).FormulaLocal = "=" & Cells(vntRow.Row, 8).Address
End If
End If
End If
Next
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Viele Grüße und Danke für die Unterstützung.
Marco M.

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread