Hallo maluca,

wie sieht denn der Rest des Makros aus? Denn mit den 3 Zeilen kann keiner etwas anfangen. Auch glaube ich nicht, dass es an den 3 Zeilen liegt, denn das ist kein ungewöhnlicher Code, der nur unter Excel2007 läuft, sondern auch unter Excel2003 laufen sollte.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Der Anfang schaut so aus.

Sub eRstellen()
Dim iRow As Range
Dim strMeld As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Daten").Visible = True
Main = Sheets("Gruppe").Name

Sheets(Main).Select
lol = 17
biba = Cells(1, 1).End(xlDown).Row
Range(Rows(11), Rows(biba - 2)).Select
Selection.Delete Shift:=xlUp
Sheets("Daten").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets(Main).Select
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("12:12").Insert Shift:=xlDown
Range("14:14").Insert Shift:=xlDown

Sheets("Daten").Visible = False
ersteSpalte = Sheets(Main).Range("A11").End(xlToRight).Column
letzteSpalte = Sheets(Main).Range("IV11").End(xlToLeft).Column
For i = letzteSpalte To ersteSpalte Step -1
Cells(15, i).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
With Selection.Borders()
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Font
.Name = "Arial"
.Size = 15
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Selection.ColumnWidth = 22
Selection.RowHeight = 110

Columns(i).Select
Selection.Insert Shift:=xlToRight
Selection.ColumnWidth = 5
Next i

Hallo Maluca,

sorry, aber was soll denn das Makro machen? Bis jetzt sehe ich erst mal nur, dass Du eine Menge Variablen benutzt, diese aber nicht deklariert hast. Das solltest Du erst mal nachholen.
Ansonsten wäre es nicht schlecht, wenn Du Deine Datei z.B. bei http://www.file-upload.net/ mal hochladen und den Link, den Du dann erhältst, uns hier mitteilen könntest.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hier ist es..
Das Makro Maperstelle ist das problem.
http://www.file-upload.net/download-1921909/test1.xls.html

Danke.

Hallo Maluca,

lösche mal in der xls-Datei das Blatt "Map" und erstelle danach ein neues Blatt mit dem Namen "Map". Danach sollte funktionieren.

Ich vermute, dass in der xlsm-Datei irgendwo ein Objekt vorhanden ist, dass in einer Spalte, die nach der Spalte IV folgt. Da beim Speichern der Datei das Blatt auf 256 Spalten reduziert wird, ist dieses Objekt nicht sichtbar, aber Excel scheint es zu merken, denn es kommt ja die Meldung, das Objekte nicht über das Blattende hinaus verschoben werden können.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

coros,

hab während dessen auch bisschen getüftelt..bei mir gab es beim Farbformat von 2007 zu 2003 Probleme..

lag bei mir daran, dass ich alle cellen weiß gefärbt habe.

danke