Hallo zusammen,
ich habe heute lange gesucht und probiert, aber bekomme eine vernünftige lösung nicht hin.Ich habe eine Tabelle die einen Tagesplan beschreibt:Spalte A: Uhrzeit (8-9),(9,10),…
Spalte B: Anwesende Personen (mehrere gleichzeitg möglich!)
Spalte C: Aufgabe
Mein Ziel ist in einer anderen Datei einen Namen einzugeben und dann nach Möglichkeit nur Zeit und Aufgabe dieser Person in eine zweite Datei zu bekommen. Sodass ich für diese Person einen „persönlichen“ Tagesplan habe.Als Extra, da habe ich allerdings keine Ahnung wie ich das anstellen könnte, würde ich gerne auch im Anschluss überprüfen können, ob zwei bestimmte Personen zur selben Zeit in einer Aufgabe eingetragen sind. (Das gilt es im Anschluss bei bestimmten Personen zu verhindern! Persönliche Tagespläne und das Überprüfen auf Übereinstimmungen können aber ruhig in einer Datei bearbeitet werden.)
Hier mein Code für den Anfang:
Sub Filtern()
Application.ScreenUpdating = False 'Screen off
Dim Name As String
Dim i As Integer
Name = B1
'Excel Datei öffnen
Workbooks.Open Filename:= _
„PFAD\test.xlsx“ _
'Suchlauf nach Namen
Workbooks(„test.xlsx“).Activate
For i = 1 To 50
If Cells(2, i) = Name Then
Cells(2, i).Select
ActiveCell.EntireRow.Select
Selection.Copy
Workbooks(„test2.xlsm“).Activate
Range(„A2“).Select
ActiveSheet.Paste
End If
Exit For
Workbooks(„test.xlsx“).Close
Application.ScreenUpdating = True 'Screen on
End Sub
Man sieht an dem „For“ vermutlich schnell, dass ich mir das ganze aus anderen Beiträgen zusammengebastelt habe. Nach mehrmaligem Ändern funktioniert die o.g. Version gar nicht mehr.
Bin für jede Hilfe dankbar!
Grüße