Hallo!
Wie kann ich die Spalte, in der die ActiveCell sich befindet bis zum ende des Dokumentes markieren?
'Suchen
Dim rng As Range
'Nur in 1. Zeile suchen
Set rng = Cells.Find(What:="POST_Strasse")
If Not rng Is Nothing Then
rng.Offset(1, 0).Select
Else
Set rng = Cells.Find(What:="Straße")
'MsgBox "Suchbegriff wurde nicht gefunden!"
If Not rng Is Nothing Then
rng.Offset(1, 0).Select
End If
End If
Hier wird gesucht nach einer Zelle mit Inhalt xxx und markiert
nun möchte ich ab dieser aktiven Zelle die Spalte, in der sie sich befindet, bis zum Schluss (65536) markieren.
Wie mach ich das?
Ich weiß ja die Spalte nicht in der sich die ActiveCell befindet.
Wenn das geschehen ist führe ich nochmals so eine Suche durch und muss wieder eine Spalte, genauso wie beim 1. mal, markieren.
Wie füge ich eine markierung zu einer anderen hinzu?
Es geht darum dass Spalte XXX mit Spalte XXX ab Position X verkettet werden soll ....
bitte helft mir weiter!
Vielen Dank!!!
Liebe Grüße
Daniel