Orientierungshilfe in Tabelle
02.06.2007 09:22:35
Mathias
für eine größere Tabelle hatte ich mir überlegt, wäre eine Orientierungshilfe nicht schlecht.
Dazu soll die Zeile und die Spalte der aktiven Zelle selektiert werden (allerdings *nicht* die komplette Zeile / Spalte, sondern nur ein bestimmter Bereich) und die aktive Zelle aktiviert werden.
Folgendes hab ich mal zusammengebastelt, aber es will einfach nicht klappen.
Sub markieren()
Dim bereich1, bereich2, alles, aktiveZelle As Range
Dim zeile, spalte As Integer
spalte = ActiveCell.Column
zeile = ActiveCell.Row
Set bereich1 = Worksheets("Tabelle1").Range(Cells(zeile, 4), Cells(zeile, 100))
Set bereich2 = Worksheets("Tabelle1").Range(Cells(2, spalte), Cells(500, spalte))
Set aktiveZelle = Worksheets("Tabelle1").Range(Cells(zeile, spalte))
Set alles = Application.Union(bereich1, bereich2, aktiveZelle)
Range(alles).Select
Range(ActiveCell).Activate
End Sub
Hat jemand eine Idee, wie falsch läuft. Oder hat vielleicht einer schon eine vergleichbare Lösung gebastelt? Vielen vielen Dank für eure Vorschläge!!!
Viele Grüße
Mathias
Anzeige