Suchergebnisse
20.12.2006 10:24:28
Dunrell
hatte gestern Abend noch geantwortet. Komischerweise ist der ganze Vorgang aber dann (wohl über Nacht) archiviert worden. Deshalb konntest Du wahrscheinlich nicht mehr darauf antworten.
Die Sache an sich hat sich eigentlich soweit erledigt. Allerdings fragtest Du mich noch, was ich mit meiner letzten Antwort bezweckte. Hier die Erklärung:
Was ich wollte, war, daß die Zelle, die gefunden wird (der Wert liegt der Variablen SuchenNeu zugrunde) dann auch aktiviert sprich quasi automatisch angeklickt wird. Damit also die betreffende Zelle auch gleich in der Tabelle angezeigt wird. Sollte diese nämlich weiter unten in einem Tabellenteil liegen, der nicht im momentanen Fensterausschnitt zu sehen ist, hätte man immer noch scrollen müssen, um die markierte Zelle zu finden. Das hat sich aber jetzt - wie gesagt - erledigt.
Falls Du aber dennoch etwas behilflich sein möchtest - hier wäre noch `ne Frage. Muß aber nicht unbedingt sein. Geht ja eigentlich jetzt auch so. Am Ende stelle ich dann noch mal den gesamten Code, wie er jetzt aussieht, ein. Dann kannst Du sehen, was ich meine.
Nun aber zu der noch offenen Frage. Wenn die Zelle markiert und als aktiv gekennzeichet (angeklickt) wurde, sehe ich diese ja im Ausschnitt. Was aber muß ich statt einer Zellaktivierung an Code eingeben, das die ganze ZEILE, in der die Zelle sich befindet angeklickt, also aktiviert wird? Sowas hatte ich bis heute noch nicht zu programmieren. Vielleicht weißt Du da ja noch mal Rat.
Ich danke Dir - auch falls jetzt nichts mehr von Dir kommt.
;-)
Ciao
Hier der Code
Private Sub CommandButton1_Click()
ActiveWindow.ScrollRow = 1
Range("A1").Select
Range("B1").Value = ""
Range("B8:L245").Interior.ColorIndex = xlNone
Dim Zelle As Range
Dim SuchenNeu As String, SuchenAlt As String
Dim Farbe As Long
SuchenNeu = InputBox("Suchbegriff", " Suchbegriff", "")
If SuchenNeu = "" Then Exit Sub
Range("B1").Value = SuchenNeu
With ActiveSheet.UsedRange
Set Zelle = .Find(SuchenNeu, LookIn:=xlValues)
If Not Zelle Is Nothing Then
SuchenAlt = Zelle.Address
Do
Farbe = Zelle.Interior.ColorIndex
Zelle.Interior.ColorIndex = 3
If Range("B1").Value = SuchenNeu Then Zelle.Activate
If MsgBox(" Weitersuchen?", vbYesNo + vbQuestion) = vbNo Then
Exit Sub
End If
Zelle.Interior.ColorIndex = Farbe
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address <> SuchenAlt
End If
End With
End Sub