Zellen in Excel löschen

Computer: Software & Programmierung Visual Basic
#1

Moin

Kommen wir gleich zum wesentlichen:
Ich will dass mir VBA Excel bei Betätigung eines CommandButtons der auf eine sub Funktion zugreift Excel möglichst in den Ursprungszustand zurückversetzt.
Insbesonders geht es dabei um die Hintergrundfarbe der Zellen und die Maße dieser.
Ich weiß zwar wie ich die wieder zurückveränder aber nicht wie ich die Auswahl anstatt mit h und so also mit Buchstaben einfach mit Zahlen wie zb bei cells(1,1) mache (kann man bei Cells einen Bereich auswählen??)
Derzeit ist es nämlich so:

Range(„A1:H8“).Select
Selection.Interior.ColorIndex = xlNone

und

Rows(„1:8“).RowHeight = 13.5
Columns(„A:H“).ColumnWidth = 10.71

Und ich würde gerne nur in einem bestimmten Bereich löschen zb von A1 bis H8 aber dieser Bereich soll sich automatisch ändern wenn bei einer Berechnung eine andere Zahl herauskommt.

Vielen Dank im Voraus

Hänsen

#2

Hallo Hänsen,

Hier der von Dir geschriebene Code etwas modifiziert und dadurch flexibler:

Sub neu()
 ZeileA = 1
 SpalteA = 1
 ZeileB = 8
 SpalteB = 8

 Range(Cells(ZeileA, SpalteA), Cells(ZeileB, SpalteB)).Select
 Selection.Interior.ColorIndex = xlNone

 Range(Rows(ZeileA), Rows(ZeileB)).RowHeight = 13.5
 Range(Columns(SpalteA), Columns(SpalteB)).ColumnWidth = 10.71
End Sub

Die Variablen ZeileA etc. kannst Du Dir so im Programm anpassen.

Gruß
Arnold

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Vielen Vielen Dank!