ich hoffe, mein Problem verständlich schildern zu können.
Aus einer Tabelle (ein Protokoll) wo in Spalte C eine deklaration in Form von A für Aufgabe, B für Beschluss und I für Information steht filtere ich alle Zeilen auf der Suche nach A und schreibe die komplette Zeile, in der in Spalte C eine A zu finden ist untereinander weg in ein weiteres Tabellenblatt.
Dies realisiere ich auf knopfdruck (Button/Schaltfläche) mit folgendem Skript:
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 2
For Zeile = 15 To ZeileMax
'If .Cells(Zeile, 3).Value = "A" And Not IsDate(Cells(Zeile, 7))
If .Cells(Zeile, 3).Value = "A" Then
.Rows(Zeile).Copy Destination:=Tabelle4.Rows(n)
n = n + 1
End If
Next Zeile
Da es sich wie gesagt um ein Protokoll handelt, muss in der exportierten Tabelle in Spalte G ein umsetzungsdatum eingetragen werden.
Mein Ziel ist es, dass ich bevor ich das obere Skript ausführe, die zweite Tabelle Zeile für Zeile durchsucht wird, und sofern sich in einer Zeile in Spalte G ein A findet, soll dieses Datum in Tabelle 1 in die korekkte Spalte geschrieben werden.
Da ich nun den bisherigen Tag erfolglos damit verbracht habe eine Lösung zu finden und ich ehrlich gesagt keine Idee habe, was ich in google eingeben soll freue ich mich üner jede Hilfe.
Vielen Dank im Voraus!
MfG
Gregy