Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Bestimmte Zeile in allen Spalten durchsuchen
10.12.2007 09:09:00
Isha
Hallo
Wie kann ich in einer bestimmten Zeile alle verwendeten Spalten nach einem Eintrag in einer Zelle durchsuchen?
Gruss
ISha

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zeile in allen Spalten durchsuchen
10.12.2007 09:38:34
Peter
Hallo Isha,
z. B. so, wenn du das Makro in ein allgemeines Modul kopierst:


Option Explicit
Public Sub Suchen()
Dim rZelle        As Range
Dim sSuchbegriff  As String
Dim lZeile        As Long
   Application.ScreenUpdating = False
   lZeile = 3 ' die abzusuchende Zeile gg. anpassen !!!
   sSuchbegriff = InputBox("Wonach möchten Sie suchen?")
   If sSuchbegriff = "" Then Exit Sub
   With Worksheets("Tabelle1").Rows(lZeile)  ' <== Tabellenblattnamen ggf. anpassen !!!
      Set rZelle = .Find(sSuchbegriff, LookAt:=xlWhole, LookIn:=xlValues)
      If Not rZelle Is Nothing Then
         MsgBox " Der Begriff   """ & sSuchbegriff & """  steht in Zelle " & _
            rZelle.Address(0, 0) & ".", _
            , "   Information für " & Application.UserName
       Else
        MsgBox " Der Begriff   """ & sSuchbegriff & """  wurde NICHT gefunden.", _
           48, "   Information für " & Application.UserName
      End If
   End With
   Application.ScreenUpdating = True
End Sub 


Gruß Peter

Anzeige
AW: Bestimmte Zeile in allen Spalten durchsuchen
10.12.2007 09:56:18
Isha
Vielen Dank. Perfekt.
Gruss
Isha

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige