Ich möchte in meiner Tabelle eine Zelle suchen, die einen bestimmten Inhalt hat. Ich dachte, das das mit der .find - Funktion machbar sei, aber leider bekomme ich es net hin, kann mir einer Helfen?
Danke
Mfg
Basti
Sub suchen()
Dim Tabelle As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
Dim blatt
blatt = Application.ActiveSheet.Name
SBegriff = InputBox("Bitte Suchbegriff eingeben")
'**********Abbbruch*******
If SBegriff = "" Then
MsgBox "Suche wurde abgebrochen!"
ThisWorkbook.Sheets(blatt).Activate
Exit Sub
End If
'*********Abbruch ende*****
For Each Tabelle In Worksheets
Tabelle.Activate
Set GZelle = Tabelle.Cells.Find("*" & SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weitersuchen?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Tabelle
ThisWorkbook.Sheets(blatt).Activate
MsgBox "Suche beendet - keine weiteren Einträge gefunden !"
End Sub
Sub makro01()
Dim suche1 As Range
Set suche1 = Worksheets(1).Range("A1:IV65535").Find("DeinSuchbegriff")
If Not suche1 Is Nothing Then
Cells(suche1.Row, suche1.Column).Select
End If
End Sub
Sub makro01()
Dim suche1 As Range
Set suche1 = Worksheets(1).Range("A1:IV65535").Find("DeinSuchbegriff")
If Not suche1 Is Nothing Then
Cells(suche1.Row, suche1.Column)="DeinText"
rem bzw uebernahme einer zelle
rem Cells(suche1.Row, suche1.Column)=cells(1,1)
End If
End Sub