Re: Suchen
30.12.2002 10:52:54
Hajo
Hallo Andreich habe Dein Beispiel nur Teilweise nachgebaut. Mir ist nun bloß eine Variante mit Activat eingefallen.
Option Explicit
Private Sub CommandButton1_Click()
Dim SuBe As Range
Dim firstAddress As String
Dim Mldg As Byte
With Columns("B")
Set SuBe = .Find(TextBox1, LookAt:=xlWhole)
If Not SuBe Is Nothing Then
Label1.Caption = Cells(SuBe.Row, 5).Value
' Label7.Caption = Cells(SuBe.Row, 11).Value
' Label34.Caption = Cells(SuBe.Row, 9).Value
' Label37.Caption = Cells(SuBe.Row, 10).Value
' Label38.Caption = Cells(SuBe.Row, 14).Value
' Label41.Caption = Cells(SuBe.Row, 15).Value
' Label40.Caption = Cells(SuBe.Row, 16).Value
' Label39.Caption = Cells(SuBe.Row, 17).Value
' Label50.Caption = Cells(SuBe.Row, 8).Value
' Label30.Caption = Cells(SuBe.Row, 3).Value
' Label52.Caption = Sheets("Tabelle1").Range("L2500")
firstAddress = SuBe.Address
Do
Mldg = MsgBox("Soll weiter gesucht werden.", vbYesNo + vbQuestion, "Abfrage", "", 0)
If Mldg = 6 Then
SuBe.Activate
Set SuBe = .FindNext(After:=ActiveCell)
If Not SuBe Is Nothing Then
' falls letzter angezeigter Satz bleiben soll und nicht der erste
' If SuBe.Address = firstAddress Tehen Exit do
Label1.Caption = Cells(SuBe.Row, 5).Value
' Label7.Caption = Cells(SuBe.Row, 11).Value
' Label34.Caption = Cells(SuBe.Row, 9).Value
' Label37.Caption = Cells(SuBe.Row, 10).Value
' Label38.Caption = Cells(SuBe.Row, 14).Value
' Label41.Caption = Cells(SuBe.Row, 15).Value
' Label40.Caption = Cells(SuBe.Row, 16).Value
' Label39.Caption = Cells(SuBe.Row, 17).Value
' Label50.Caption = Cells(SuBe.Row, 8).Value
' Label30.Caption = Cells(SuBe.Row, 3).Value
' Label52.Caption = Sheets("Tabelle1").Range("L2500")
End If
Else
Exit Do
End If
Loop While Not SuBe Is Nothing And SuBe.Address <> firstAddress
Else
MsgBox "Der Suchbegriff wurde nicht gefunden", , _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
End With
End Sub
Code eingefügt mit: Excel Code Jeanie
Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein
Gruß Hajo