Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Suchbegriff

Betrifft: Suchbegriff von: Klaus
Geschrieben am: 03.09.2004 10:41:50

Hallo zusammen
ich habe von der CD folgenden Code benutzt:

Sub SuchenUndMarkieren()
   Dim rngFind As Range
   Dim strBegriff As String
   strBegriff = InputBox("Suchbegriff:")
   If strBegriff = "" Then Exit Sub
   Set rngFind = Columns(1).Find(strBegriff, lookat:=xlWhole, LookIn:=xlFormulas)
   If rngFind Is Nothing Then
      Beep
      MsgBox "Suchbegriff wurde nicht gefunden!"
      Exit Sub
   End If
   Rows(rngFind.Row).Select
End Sub


Nun möchte aber nicht die ganze Zeile des gefundenen Wertes markiert haben, sondern nur die ersten acht, also A:H. Kann jemand helfen?
Vielen Dank vorraus
Gruss Klaus
  


Betrifft: AW: Suchbegriff von: Karl-Otto Reimann
Geschrieben am: 03.09.2004 10:53:24

Hallo Klaus
Sub SuchenUndMarkieren()
   Dim rngFind As Range
   Dim strBegriff As String
   strBegriff = InputBox("Suchbegriff:")
   If strBegriff = "" Then Exit Sub
   Set rngFind = Columns(1).Find(strBegriff, lookat:=xlWhole, LookIn:=xlFormulas)
   If rngFind Is Nothing Then
      Beep
      MsgBox "Suchbegriff wurde nicht gefunden!"
      Exit Sub
   End If
   rngFind.Select
    With ActiveCell
         Range(.Offset(0, 0), .Offset(0, 7)).Select
    End With
End Sub

Gruß
KO


  


Betrifft: AW: Suchbegriff von: Ingo
Geschrieben am: 03.09.2004 10:57:51

Range(cells(rngFind.row,1),cells(rndFind.row,8)).select
mfG
Ingo Christiansen


  


Betrifft: AW: Suchbegriff von: Klaus
Geschrieben am: 03.09.2004 11:08:53

Vielen Dank Euch beiden.........Es klappt
Gruss Klaus


 

Beiträge aus den Excel-Beispielen zum Thema "Suchbegriff"