clear contents
16.08.2007 13:40:00
Rainer
ich hab schon wieder ein problem mit vba.
ich möchte aus einem beliebigen file ein anderes öffnen und dort drin dann einen bereich löschen.
vorher soll noch gecheckt werden, ob das file das geöffnet werden soll bereits geöffnet ist.
ich habe versucht folgenden code zusammenbasteln.
Sub ClearContents()
' löscht alle Einträge bevor die ganzen Sverweise gemacht werden
Dim wksZiel As Worksheet
Dim WbkZiel As Worksheet
Set wksZiel = Workbooks("TOTAL-Kundenklassifikation_Test.xls").Worksheets("Kundenklassifikation" _
)
' fragt ab ob file schon geöffnet ist
On Error Resume Next
Set WbkZiel = Workbooks("TOTAL-Kundenklassifikation_Test.xls")
On Error GoTo 0
If wksZiel Is Nothing Then
Set WbkZiel = Workbooks.Open("J:\FinanzControlling\Leitung\Kundenrentabilität\Projekt 2007\ _
Daten\TOTAL-Kundenklassifikation_Test.xls")
End If
' löscht Bereich
Sheets("Kundenklassifikation").Select
Range("G2:O20000").Select
Selection.ClearContents
End Sub
er schliesst mir das file und öffnet es immer, ich finde aber nicht heraus wo der hund liegt. könnt ihr mir weiterhelfen?
viele grüsse
rainer