Makro Spalte einfügen und Spaltentitel beschriften
15.07.2015 07:51:04
Paddy
Ich scheitere an einem Makro welches folgende Aufgaben durchführen soll:
1. zuerst wird ein Filter Aus- und wieder eingeschaltet, damit stelle ich sicher, dass kein Filter mehr aktiv ist.
1. Kopieren einer x-Anzahl Zellen in einer Spalte im Tabellenblatt "A"
2. Einfügen von einer neuen Spalte in formatierter Tabelle im Tabellenblatt "DB". Die Schwierigkeit besteht darin, dass die neue Spalte jeweils am Ende der formatierten Tabelle eingefügt werden soll. Die Position verändert sich nach jeder eingefügten Spalte. Eine Definition der Spalte ist deshalb zu vermeiden.
3.Einfügen der Werte gem. Pos 1 in neu eingefügter Spalte
4. Die neu eingefügte Spalte hat eine Spaltenüberschrift. Diese sollte idealerweise mit einem Titel versehen werden können. Auch hier besteht das Problem des Zellbezuges welcher veränderlich ist.
Nachfolgend das Makro wie es sich momentan präsentiert. Dieses enthält leider immer die Zell- und Spaltenbezüge. Der Befehl zum einfügen einer Spalte fehlt ebenso.
Sub MatBuchen()
' MatBuchen Makro
Range("O14:CX14").Select
Selection.AutoFilter
Selection.AutoFilter
Range("O16:O673").Select
Selection.Copy
Sheets("DB").Select
Range("Tabelle2[[#Headers],[MatCode]]").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("AU45").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Tabelle2[[#Headers],[Projekt A]]").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Projekt A"
Range("AU45").Select
Sheets("Materialkonfiguration").Select
Range("O15").Select
End Sub