1. Sub Test()
  3. Dim currentrow As Byte
  4. currentrow = ActiveCell.Row
  5. Dim Last As Byte
  7. Dim Datum As String
  8. Dim Jahr As String
  9. Dim rBereich As Range
  12. 'rBereich = Range(Cells(Last, "A"), Cells(Last, "U")) Habe versucht die Range so festzulegen und dann mit hilfe von .BorderAround zu umranden, hat aber nicht funktioniert.
  13. Datum = Date
  14. Jahr = Right(Datum, 2)
  15. Last = Sheets("Mappe1").Cells(Rows.Count, 1).End(xlUp).Row + 1
  17. Sheets("Mappe1").Cells(Last, "A").Value = Sheets("Mappe1").Cells(Last - 1, "A").Value + 1 'Nummerierung
  18. Sheets("Mappe1").Cells(Last, "B").Value = Cells(currentrow, "A") 'Hier wird die markierte Zeile aus Mappe2 in die erste freie Zeile von Mappe1 eingetragen
  19. Sheets("Mappe1").Cells(Last, "C").Value = Cells(currentrow, "B")
  20. Sheets("Mappe1").Cells(Last, "D").Value = Cells(currentrow, "C")
  21. Sheets("Mappe1").Cells(Last, "E").Value = Cells(currentrow, "E")
  22. Sheets("Mappe1").Cells(Last, "F").Value = Cells(currentrow, "F")
  23. Sheets("Mappe1").Cells(Last, "G").Value = Cells(currentrow, "A")
  24. Sheets("Mappe1").Cells(Last, "H").Value = Cells(currentrow, "B")
  25. Sheets("Mappe1").Cells(Last, "I").Value = Cells(currentrow, "C")
  26. Sheets("Mappe1").Cells(Last, "J").Value = Cells(currentrow, "F")
  27. Sheets("Mappe1").Cells(Last, "Q").Value = Cells(currentrow, "J")
  28. Sheets("Mappe1").Cells(Last, "L").Value = Cells(currentrow, "H")
  29. Sheets("Mappe1").Cells(Last, "N").Value = Datum
  31. 'Hier brauch ich jetzt einen Befehl, der alle Zellen in der eben eingefügten Zeile umrandet
  34. End Sub