|
Moin Moin,
ich versuche mich seit 2 Tagen ein wenig in das Thema Makros und VBA einzuarbeiten, bin dementsprechend noch unerfahren.
Jetzt bin ich grade bei meiner ersten Übungsaufgabe und stehe schon vor einem Problem das ich einfach nicht lösen kann.
Es geht einfach nur um das transponieren und ersetzen einer Tabelle durch ein Makro.
In dem Makro wird ein Bereich als Name definiert, um diesen später durch die goto funktion wieder anzuwählen. In der Aufzeichnung klappt das ohne Probleme, aber später wenn ich das Makro abspiele, vergibt er zwar den Namen an den Bereich, doch bei goto werden die Bereiche nicht mit den Namen angezeigt sondern nur der Zellbereich (screenshot). Dadurch kann das Makro seine Aufgabe nicht zuende bringen.
Sub transponieren()
ActiveWorkbook.Names.Add Name:="quelle", RefersToR1C1:=Selection
ActiveWorkbook.Names("quelle").Comment = ""
Selection.Copy
Selection.End(xlToRight).Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="kopie", RefersToR1C1:=Selection
ActiveWorkbook.Names("kopie").Comment = ""
Application.Goto Reference:="kopie"
Application.Goto Reference:="quelle"
Selection.ClearContents
Application.Goto Reference:="kopie"
Selection.Cut
Application.Goto Reference:="quelle"
ActiveSheet.Paste
End Sub
|