Hallo Zusammen,
ich habe ein Problem mit der Adressierung eines bestimmten Bereiches. Leider konnte mir auch die Forumssuche nicht weiterhelfen, jetzt seh ich den Wald vor lauter Bäumen nicht mehr...
Mein Problem:
Um das von Euch verpöhnte "select" zu umgehen (und weils schneller ist), versuche ich die Befehle
...
worbkooks(t_Datei).activate
worksheets(t_Blatt).select
Range(cells(erste_Zeile,erste_Spalte),cells(letzte_Zeile,letzte_Spalte))
Selection.ClearContents
...
mit
With Workbooks(t_Datei).Sheets(t_Blatt). _
Range(Cells(Auswertung__erste_Zeile, Auswertung__Spalte_von), _
Cells(Auswertung__letzte_Zeile, Auswertung__Spalte_bis))
.ClearContents
End With
zu lösen. Das funktioniert aber nur, wenn das Arbeitsblatt "t_Blatt" auch gerade in der Arbeitsmappe aktiv ist. Ist aber aufgrund der Programmierung ein anderes Blatt aktiv, bricht der Code mit der Fehlermeldung "Laufzeitfehler 1004: Anwendungs- und objektfefinierter Fehler" ab.
Die Variablen t_Datei und t_Blatt sind mittels DIM als String deklariert und enthalten auch die richtigen Werte.
Wo liegt mein Denkfehler?
Vielen Dank.
Gruß [ stefan ]