Tabelle select variabel
06.12.2007 10:33:00
Adrian1977
ich habe in einer excel-Datei auf unterschiedlichen Tabellenblättern Bereichen Namen vergeben.
Die Namen der Bereiche stehen in der Tabelle1. Startzelle ist "F3". Die Liste wird nach unten fortgesetzt.
In meinem Beispiel sollen die definierten Bereiche farblich markiert werden.
Das Problem ist nun, dass ich die Programmierzeile " With Tabelle2" variabel gestalten werden muß.
Kann mir jemand weiter helfen? Eigentlich sollte es nicht so schwer sein, komme jedoch im Moment nicht auf die Lösung.
Sub Beispiel()
i = 3
While Not Tabelle1.Cells(i, 6) = ""
With Tabelle2
.Select
.Range(Tabelle1.Cells(i, 6)).Select
Selection.Interior.ColorIndex = 40
End With
i = i + 1
Wend
End Sub
Danke im Voraus!
Grüße
Adrian