markierten Bereich durchsuchen

27/02/2008 - 20:02 von Ralf Dorn | Report spam
Hallo alle zusammen,

ich brauche euere Hilfe. Wie kann ich einen Markierten Bereich (nach
gleichen Werten) durchsuchen.

Ich weiß nicht wie ich das in einer Schleife machen soll oder gibt es da
eine andere Lösung??


Der User markiert einen Bereich und der soll dann nach identischen Werten
durchsucht werden.

In einer Spalte habe ich es schon gelöst. Da ist es ja kein Problem. Aber in
einem markierten Bereich


Ich danke euch


Schönen Gruß


Ralf Dorn
 

Lesen sie die antworten

#1 Ralf Dorn
27/02/2008 - 21:36 | Warnen spam
Hallo Jungs,

habe jetzt eine Weile gebastelt und folgende Lösung erreicht.

Sub Bereich_durchsuchen()
Dim Bereich As Variant
Dim i As Long
Dim a As Integer
Dim START_POS_ZEILE
Dim START_POS_SPALTE
Dim ENDE_POS_SPALTE
Dim ENDE_POS_ZEILE
ENDE_POS_SPALTE = ActiveCell.Column + (Application.Selection.Columns.Count -
1)
START_POS_SPALTE = ActiveCell.Column
START_POS_ZEILE = ActiveCell.Row
ENDE_POS_ZEILE = START_POS_ZEILE + (Application.Selection.Rows.Count - 1)

For i = START_POS_ZEILE To ENDE_POS_ZEILE
For a = START_POS_SPALTE To ENDE_POS_SPALTE
'Hier werte ich jetzt aus.
Next
Next

End Sub

Trotzdem Danke

Schönen Gruß

Ralf Dorn

Ähnliche fragen