mit dem Makrorekorder habe ich mir die Copy-Funktion zusammen gebastelt und mit if then kombiniert.
Warum funktioniert die If-Funktion nicht?
Danke für das Feedback.
Sub MakroKopieTest()
If ActiveSheet.Range("C1").Value = "a" Then
Sheets("Tabelle2").Select
Range("A1").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A5").Select
ActiveSheet.Paste
Range("A1").Select
Else
Sheets("Tabelle2").Select
Range("A2").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A5").Select
ActiveSheet.Paste
Range("A1").Select
End If
End Sub