slet data i andet projektmappe [vba]

hej

Dettte sletter din værdi ( øvrige kode fra dit andet åbent spørgsmål)

.Range("a1:a20").Value = ""
.Range("b3:b23").Value = ""

mvh oleelo

Hej
Ok det vil jeg lige prøve
jeg er nemlig kommet frem til denne grimme løsning ;-)
hvor jeg åbner og lukker mappen
Kode:
Sub SletDataP()
'
' Sletter Data i externe xls
'

'
    ChDir "C:\Documents and Settings\Admin\Dokumenter\Pocket_PC My Documents"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Admin\Dokumenter\Pocket_PC My Documents\Pline_ppc.xls"
    Sheets(Array("Paceline nr. 1", "Paceline nr. 2", "Paceline nr. 3", _
        "Paceline nr. 4", "Paceline nr. 5", "Paceline nr. 6", "Paceline nr. 7", _
        "Paceline nr. 8", "Paceline nr. 9", "Paceline nr. 10")).Select
    Sheets("Paceline nr. 1").Activate
    Range("A3:A32").Select
    Selection.ClearContents
    Range("C3:C32").Select
    Selection.ClearContents
    Sheets("Paceline nr. 4").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Paceline nr. 1").Select
    Range("A3").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub
det må kunne gøres smarter og enkler
Mvh/Henrik C

Hej
Smid et svar oleelo

Hej
Tjaa nu trode jeg lige at det virkede
jeg har leget med at rette lidt til, har neden stående kode til at slette externe data med, der kommer ingen fejl, men det sletter heller ikke nogen data.
Hvad mangler der her. ?
Sub SletPline()
dim MitArk as string
dim x as Integer
If MsgBox("Er du sikker på at du vil slette Pline data?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub
On Error Resume Next
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Documents and Settings\Admin\Dokumenter\Pocket_PC My Documents\Pline_ppc.xls", True, True)

Application.StatusBar = "Slet data"
For x= 1 to 10
MitArk="Paceline nr. " & x
    With ThisWorkbook.Worksheets(MitArk)
        wb.Worksheets(MitArk).Range("a3:a32").Value = ""
        wb.Worksheets(MitArk).Range("c3:c32").Value = ""
    End With
Next x   
    wb.Close False
    Set wb = Nothing
    Application.ScreenUpdating = True
    Application.EnableEvents = True

Application.StatusBar = "Pline_ppc data er slettet!"
MsgBox "Pline_ppc data er slettet!"
Application.StatusBar = ""
End Sub

mvh/Henrik C

Hej
Så endelig virker det som det skal, med udgangspunkt i det du lavede til mig i importdata har jeg får nedenstående kode til at virke perfekt. ;-) så oleelo point er dine

kode

Sub SletDataP()

    ChDir "C:\Documents and Settings\Admin\Dokumenter\Pocket_PC My Documents"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Admin\Dokumenter\Pocket_PC My Documents\Pline_ppc.xls"
    For i = 1 To 10
    Sheets("Paceline nr. " & CStr(i)).Select
    Range("A3:C32").Select
    Selection.ClearContents
    Sheets("Paceline nr. " & CStr(i)).Select
    Range("A3").Select
    Sheets("Paceline nr. 1").Select
    Range("A3").Select
  Next i
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Mvh/Henrik C

Hej
Tak,her at svar

Linjen : On Error Resume Next
betyder at du ikke får nogle evt. fejl men at kode bare fortsætter
Hvis du vil se hvad der gik galt så  "fjerne linjen"

Måske skyldes fejlen(manglende sletning) linen: wb.Close False
som lukker wb-regnearket UDEN at gemme ændringer

mvh oleelo

Hej
Det have jeg ikke set
mange tak

Mvh/Henrik c