ich weiß nicht, wie ich Dich anders erreichen kann. Hier nun dieser Versuch.
Wenn auch etwas verspätet, aber eine Erkältung hat mich niedergerafft. Hier die versprochene Rückkopplung. Ich habe aufgrund meiner nicht vorhandenen VBA-Kenntnisse viel testen müssen. Doch durch Deine Vorgaben habe ich die Ansätze für mein Problem gefunden. Ich weiß zwar nicht, was die einzelnen Befehle bedeuten, aber ich habe durch lesen vieler Makros eine gewisse Logik rausgefunden.
Hier meine Test-Variante zum Kopieren der Zellen einschließlich dem angehängten Kommentar:
Sub Makro2()
Datei = ActiveCell.Offset(0, 3).Value
ActiveCell.Offset(0, 4).Select
If ActiveSheet.Range("a5").Value = 1 Then
Sheets("Blatt mit Rohdaten").Select
Range("d8").Select
Selection.Copy
Sheets("Blatt mit Eingabe").Select
Range("f5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Else
If ActiveSheet.Range("a5").Value = 2 Then
Sheets("Blatt mit Rohdaten").Select
Range("d9").Select
Selection.Copy
Sheets("Blatt mit Eingabe").Select
Range("f5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End If
End Sub
Ich bin begeistert und auf diesem Wege noch einmal vielen Dank dafür.
Viele Grüße
Karl-Heinz