markierung
24.07.2006 14:22:32
Max
Ich möchte gerne per Makro nach einem bestimmten Begriff suchen und dann von dieser Zelle aus automatisch den Bereich markieren, der
1) in y-Richtung: die Spalte unterhalb dieser Zelle bis zur nächsten "beschriebenen Zelle" (=Leerzellen bis zur nächsten vollen Zelle)
2) in x-Richtung: die nächsten 3 Spalten im gleichen y-Bereich
ist.
Das Makro möchte ich von einer anderen Mappe aus starten. Ich habe schon meine speziellen Suchbegriffe eingefügt..
Im Internet habe ich folgenden Code gefunden, aber leider funktioniert er nicht:
Sub werte_int_ext()
Windows("Report_OrdersOfApplication.xls").Activate
Dim rng As Range
Dim i As Integer
With Pivot Data.UsedRange
Set rng = .Find("Internal test use", LookIn:=xlValues)
End With
Do
i = i + 1
Loop Until rng.Offset(i, 0) <> ""
Range(rng, rng.Offset(i - 1, 3)).Select
End Sub
Vielleicht fällt euch ja spontan auf woran es liegen könnte.
Danke Max
Anzeige