da kann ich nur wieder schreiben. Wir haben hier keinen Heiligenschein und auch keine Glaskugel (jedenfalls die meisten) woher sollen wir wissen was an Deinem Makro Falsch ist. Ein Posting des Makro wäre schon nicht verkehrt.
Ich mache jetzt erst mal Pause.
Gruß Hajo
Sub Stempel()
Dim Lastzeile As Integer
Lastzeile = Cells(Rows.Count, 3).End(xlUp).Row
With Range("A" & (Lastzeile) + 1 & ":B" & (Lastzeile) + 4)
.Interior.ColorIndex = 0
.Interior.Pattern = xlSolid
.Font.ColorIndex = 1
End With
ActiveWindow.WindowState = xlNormal
Range("A" & (Lastzeile) + 1).FormulaR1C1 = "Datumsstempel"
Range("A" & (Lastzeile) + 2) = Date
Range("A" & (Lastzeile) + 3).Value = Format(Now(), "hh:mm")
Range("A" & (Lastzeile) + 4).FormulaR1C1 = "Hinweis"
With Range("A" & (Lastzeile) + 1 & ":B" & (Lastzeile) + 4)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
With Range("A" & (Lastzeile) + 1 & ":B" & (Lastzeile) + 4)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 0
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 0
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 0
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 0
End With
With Range("A" & (Lastzeile) + 1 & ":B" & (Lastzeile) + 4).Select
End With
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End Sub
unter Version 10 werden eigentlich kein Makro Register mehr verwendet.
Das Makro was Du gepostet hast wird nicht automatisch gestartet, es kann also nicht das Problem sein.
Könntest Du den Fehler nochmal genauer Beschreiben. Das ist mir noch nicht klar.
Gruß Hajo
EintragSub Stempel()
Dim Lastzeile As Integer
Lastzeile = Cells(Rows.Count, 3).End(xlUp).Row
With Range("A" & (Lastzeile) + 1 & ":B" & (Lastzeile) + 4)
.Interior.ColorIndex =......
das wort "Eintrag" hatte ich jedoch getippt, als die mappe1 geöffnet wurde und der zellzeiger in A1 stand.
das ist schon recht merkwürdig.
Was mir noch aufgefallen ist, dass, wenn ich excel starte und mappe1 sich öffnet, die titelleiste grau abgeblendet ist, erst wenn ich in das tabellenblatt klicke wird die titelleiste blau und ich kann in die zellen wie gewohnt die einträge tätigen.
oh, man-ich hoffe, dass ich das jetzt so einigermassen verständlich rübergebracht habe.
Gruß steffen
das Problem ist mir noch nicht ganz klar.
Hast Du mal unter Fenster, Einblenden nachgesehen ob doch noch weiter Dateien sind außer Personl.xls???
Hast Du mal in der Personl.xls nachgesehen ob da Code unter DieserArbeitsmappe ist??
Welche Veränderungen hast Du vorgenommen bevor der Fehler aufgetreten ist???
Hast Du vielleicht unter Extra Add In Manager einen neuen Verweis gemacht???
Gruß Hajo
das Makro habe ich nicht getestet, da es ja von Hand gestartet wird.
Ich bin mit meinem Latein. auch am Ende.
Gruß Hajo