Select Range verbessern
09.01.2018 07:48:32
Hans-Jürgen
ich muss vorausschicken: Meine VBA-Programmierung ist selbst beigebracht, eine Mischung aus Basic-Grundwissen und Analyse dessen, was der Aufzeichnungsmodus so bietet. Also: Funktioniert, sieht aber nicht elegant aus.
Gerade durch den Aufzeichnungsmodus habe ich solche Delikte ääh Relikte drin wie sowas hier:
Sheets ("Daten").Select
Range(Cells(y1,x1),Cells(y2,x2)).ClearContents
Ich weiß mittlerweile, dass man besser schreiben kann
Dim SheDat as Excel.Worksheet
Set SheDat = ActiveWorkbook.Worksheets("Daten")
Range (Shedat.Cells(y1,x1)Shedat.Cells(y2,x2))
Ich habe jetzt überall die Positionierung und Range-Bildung so ersetzt. Lediglich in einem Falle nimmt mir das der Debugger nicht ab, denn hier besteht der Range aus nur einem Feld, die angegebenen Koordinaten von-bis sind also gleich: Range (Shedat.Cells(y1,x1),Shedat.Cells(y1,x1))
Es klappt auch nicht, wenn man die zweite Angabe wegfallen lässt. Scheinbar besteht ein Range zwingend aus mehr als einem Feld. Ich muss aber an dieser Stelle nur ein Feld färben und nicht mehrere. Wie kann ich das sauber ausdrücken?
Vielen Dank im voraus
Hans-Jürgen