VBA code funktioniert unter 2003 nicht korekt
alex
folgender code funktioniert an der stelle activesheet.paste unter 2003 nicht (unter 2007 ohne probleme. ich habe keine ahnung wieso da der befehl der selbe ist den excel 2003 benutzt.
Sub Mängelliste()
' Mängelliste Makro
On Error Resume Next 'überspringt fehler
Workbooks("wartung.xls").Activate
strPath = ThisWorkbook.Path
ChDrive Left(strPath, 2)
ChDir strPath
If Err 0 Then 'schleife mit bedingung (fehler wert ungleich 0) und _
folge
ThisWorkbook.Sheets("KT").Range("c11").Copy
Workbooks.Open ("../../wartung.xls") 'öffnet im darüber liegenden verzeichnis wartung. _
_
xls
Sheets("Mängelliste").Select 'selektiert das arbeitsblatt mängelliste
Range("a" & Range("A65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste 'AN DER STELLE BEKOMME ICH EINEN FEHLER
With Selection.Interior
.Pattern = xlNone 'nimmt die hintergrundfarbe der kopierten zelle raus
End With
ThisWorkbook.Sheets("KT").Range("E3").Copy
Range("B" & Range("B65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste 'AN DER STELLE BEKOMME ICH EINEN FEHLER
With Selection.Interior
.Pattern = xlNone 'nimmt die hintergrundfarbe der kopierten zelle raus
End With
With Selection.Font
.Name = "Arial"
.Size = 10
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Err.Clear 'setzt den fehler wert auf 0
Else
ThisWorkbook.Sheets("KT").Range("c11").Copy
Windows("Wartung.xls").Activate
Sheets("Mängelliste").Select
Range("a" & Range("A65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste 'AN DER STELLE BEKOMME ICH EINEN FEHLER
With Selection.Interior
.Pattern = xlNone 'nimmt die hintergrundfarbe der kopierten zelle raus
End With
ThisWorkbook.Sheets("KT").Range("E3").Copy
Range("B" & Range("B65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste 'AN DER STELLE BEKOMME ICH EINEN FEHLER
With Selection.Interior
.Pattern = xlNone 'nimmt die hintergrundfarbe der kopierten zelle raus
End With
With Selection.Font
.Name = "Arial"
.Size = 10
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End If
Exit Sub
End Sub