Supportnet / Forum / Tabellenkalkulation
Bereich Markieren
Frage
Hallo an alle
Brauche mal wieder Hilfe
Kann man von einer unbekannten Startzelle (ActiveCell) einen Bereich markieren,der immer von der Startzelle aus gesehen 5 Spalten nach rechts und 20 Zeilen nach unten reicht?
ActiveCell wird durch eine andere Codezeile festgelegt.
Beispiel: ActiveCell ist A1 Dann heißt der markierte Bereich als Code
Range(“A1:F21“).Select
Verwendet wird das ganze in einer Tabelle in der eine Zelle mit einem bestimmten Wert per VBA gesucht wird,um dann von dieser Zelle ausgehend,den Bereich 5 Spalten nach rechts und 20 Zeilen nach unten zu markieren.Die Markierung soll dann Gedruckt werden.
Ich hoffe das mir jemand einen entsprechenden Code mitteilen kann
Gruß
Antwort 1 von nighty
hi all :)
fuer die markierung :)
gruss nighty
Sub test()
Dim zelle As Range
Set zelle = ActiveCell
Range(Cells(zelle.Row, zelle.Column), Cells(zelle.Row + 20, zelle.Column + 5)).Select
End Sub
fuer die markierung :)
gruss nighty
Sub test()
Dim zelle As Range
Set zelle = ActiveCell
Range(Cells(zelle.Row, zelle.Column), Cells(zelle.Row + 20, zelle.Column + 5)).Select
End Sub
Antwort 2 von Anno2005
Moin
So hatte ich mir das vorgestellt!
Code ist Perfekt
Vielen Dank für die Hilfestellung
Ich wäre wahrscheinlich dran verzweifelt
Gruß an alle SN - User
So hatte ich mir das vorgestellt!
Code ist Perfekt
Vielen Dank für die Hilfestellung
Ich wäre wahrscheinlich dran verzweifelt
Gruß an alle SN - User

