ich habe ein Ausgabeproblem und möchte gerne eine Hilfe von euch,
kann mir einer diesen Code von einer waagrecht in einer senkrechten Ausgabe umschreiben, ich wäre sehr dankbar darüber, Danke.
Gruß waldow
Sub Makro1()
Range("Is1:Is6")
Range("F20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End Sub
.