Hallo,
ich habe in Excel mehrere Tablen (Rahmenlinien mit Daten) untereinander, diese sollen mit einem ActiveX-Steuerelemenz (Button) geleert werden.
Bei meinen ersten versuchen habe ich mit dem Befehl Clear gearbeitet, hier waren aber dann die Rahmenlinin verschwunden, und ich müsste zig Male den Clear Befehl eingeben, da immer wieder Zwischenräume sind die nicht gelöscht werden dürfen. Daher habe ich mir gedacht es könnte auch in einer Schleife funktionieren. Hier meine Überlegung:
Sub löschen()
Dim oben As Integer
Dim unten As Integer
oben = 8 'Zeile 8 als Anfangszeile
unten = 32 'Bis Zeile 32 soll gelöscht werden
'Schleife beginnen
(oben,0 - unten,7).clear '(oben,Spalte A bis unten, Spalte G) soll gelöscht werden, aber Rahmenlinien beibehalten -> A8:G32
oben = oben + 31 'oben um 31 Zeilen nach unten verschieben
unten = unten + 31 'unten um 31 Zeilen nach unten verschieben
(oben,0 - unten,7).clear '(oben,Spalte A bis unten, Spalte G) soll gelöscht werden -> A39:G63
oben = oben + 32 'oben um 32 Zeilen nach unten verschieben (unregelmäßiger Abstand: 31, 32, 31, 32, ...)
unten = unten + 32 'unten um 32 Zeilen nach unten verschieben (unregelmäßiger Abstand: 31, 32, 31, 32, ...)
'Schleife wieder von vorne ohne "oben = 8 , unten = 32"
End Sub
Wäre das so möglich und wenn ja, könnt mir da jemand unter die Arme greifen?
Mfg
Simon
|