Sub Übertrag()
Dim Januar as String, Februar as String, März As String
Worksheets("vertikal").Select
Januar = Range("B6")
Februar = Range("B7")
März = Range("B8")
Worksheets("horizontal").Select
Worksheets("horizontal").Range("B5").Select
ActiveCell.Value = Januar
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Februar
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = März
End Sub
|