Umbenennen eines Loop Bereiches - wie?

Guten Tag Mike,

ich bin ein normaler Informatiker, der mit VBA noch in den Kinderfüßen steckt.

Ja, ich wollte den Code soweit in einer Schleife einfügen, jedoch mache ich ständig was bei den Schleifen und bei den Definierungsbereichen bzw. angeben der Variablen falsch.

Ich weiß, für den ein oder anderen mag dieser Code mehr wie grotesk wirken, aber es ist ja noch nie ein Meister vom Himmel gefallen.

Dim Link As String

Dim Bereich As Range

Dim strUmbennung As String

Dim Hyper As Hyperlink



Bereich = Range ("B:B")

strumbennung = "Test"

Link = "http://www.test.de/"

Rows("1:1").Delete Shift:=xlUp

Do

Set Hyper = ActiveCell.Hyperlinks.Add _

(Anchor:=Range("Bereich"), _

Address:="Link" & Range("Bereich").Value)

Loop Until Bereich = ""

ActiveSheet.Name = strUmbennung

End Sub

Mit freundlichen Grüßen,

Olaf

Was mich überrascht: do... loop ist doch auch eine Schleife, ist das per se performanter?

Nein, die Schleifen an sich sind schnell, egal welche.

Das Problem ist der vielfache Zugriff auf das Objekt, wenn man eine ganze Spalte durchläuft sind das 1 Million mal das Auslesen einer Zelle und der Vergleich... dazu kommt ggf. Datentypen konvertieren... das dauert.

Range.Find muss intern das gleiche machen, allerdings läuft das um ein Vielfaches schneller (weil es auf die Datenstrukturen direkt zugreifen kann) und es durchsucht nur den benutzten Bereich... optimierter Algorithmus.

Andreas.

Hallo Inge,

da du innerhalb eines Bereiches suchen willst, musst du aufpassen.

Denn wenn etwas gefunden wird, wird oRng auf die Fundstelle gesetzt und damit dein Suchrange beeinflusst.

Hier eine Lösung

Sub FindInSection()

Dim oDoc As Document

Set oDoc = ActiveDocument

Dim oRng As Range

Set oRng = oDoc.Sections(2).Range

With oRng.Find

.ClearFormatting

.Style = wdStyleHeading2

.Forward = True

.Text = ""

.Replacement.Font.Shading.BackgroundPatternColor = wdColorDarkGreen

.Execute

Do While .Found = True And oRng.InRange(oDoc.Sections(2).Range)

Debug.Print oRng.Text

oRng.Font.Shading.BackgroundPatternColorIndex = wdDarkRed

.Execute Format:=True

Loop

End With

End Sub

bitte noch an deine Suche anpassen.

Wo ist die Änderung? Es wird in der Do..Loop-Schleife geprüft, ob das Find-Range im Section-Range liegt (InRange-Funktion).

HTH

Christian

Ja, das führt dann zu einem Loop, aber keiner Lösung.

Hallo,

probiere es mal so:

Sub Suche()
Dim LRow As Long, i As Long
Dim varSuche As Variant
Dim c As Range
Dim FirstAddress As String

With Sheets("Prüfungstabelle")
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
varSuche = .Range("A1:B" & LRow)
End With

For i = LBound(varSuche) To UBound(varSuche)
Set c = Sheets(varSuche(i, 2)).UsedRange.Find(varSuche(i, 1))
If Not c Is Nothing Then
FirstAddress = c.Address
Do
c.Interior.Color = vbRed
Set c = Sheets(varSuche(i, 2)).UsedRange.FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
Next
End Sub

Claus