Bereich auswählen zum üben
05.10.2017 13:12:30
Nadine
zum üben habe ich mir mal wieder eine kleine Aufgabe gestellt.
Ausgangslage: Ich habe eine Tabelle mit unbestimmten Zeilen und Spalten,
in den ersten 3 Zeilen stehen meine Titel, ab der 4. Zeile nur noch werte.
Jede Spalte ist gleich lang.
Mein Makro soll die 2. Zeile nach einem bestimmten Wort durchsuchen.
Spalten, die dieses Wort in der 2. Zeile besitzen werden von der 4. Zeile bis zum Ende ausgewählt, dieser Bereich dann irgendwie weiter verwendet.
Bisher bin ich hier:
Public Sub Search_Select_FunctionX()
Dim letztezeile As Integer
Dim Suchwort As String, Titelzelle As Range
Dim Funktionsbereich As Range
'Search
Suchwort = "Sortieren"
Set Titelzelle = Rows(2).Find(Suchwort, _
lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
'select
Titelzelle.Select
letztezeile = Sheets(1) _
.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Set Funktionsbereich = Range("4.Zeile der aktiven Spalte:letztezeile dieser Spalte")
'Beispielfunktion
Funktionsbereich.ClearContents
End Sub
Das Suchen des Wortes funktioniert, ebenso wie das bestimmen der Spaltenlänge.
Wie kann ich jetzt die Range meines "Funktionsbereiches" festlegen?
In diesem Beispiel wird der Inhalt dieses Bereiches danach nur gecleared.
Möchte ich danach noch alle weiteren Spalten durchsuchen lassen, müsste das mit einer einfachen for Schleife zu lösen sein oder? :)
LG
Nadine