Hallo Forum , sollte bitte eure Unterstützung haben bei folgendem Wunsch
Ich wähle irgendwo im Tabellenblatt in irgendeiner Spalte irgendwelche Zeilen an , abwärts, egal ob blos eine, oder mehrere ... jedenfalls
soll der CODE dann im ausgewählten Bereich den entspr. Eintrag " u "
eintragen ...
Ein Ansatz von mir ...
Das erste Activecell.row erkennt er als Begin ... aber das zweite eben auch als Beginn ( klar von Begin bis Begin funkt. meine Idee nicht )
Muss ich beim zweiten activecell.row irgendwas noch dazuhängen ( MAX ? )
HAbt ihr eine Idee ? wäre euch sehr dankbar !
LG udo
Dim Bereich As Range
Set Bereich = Range(Cells(ActiveCell.Row, ActiveCell.Column).adress & ":" & Cells(ActiveCell.Row, ActiveCell.Column).adress)
Bereich.Value = "u"