Fehler von Excel 2010 auf Excel 365

Sub searchInForms() Dim objShp As Object, objWS As Worksheet Dim strSearch As String strSearch = InputBox("Suchbegriff eingeben") If Len(strSearch) Then For Each objWS In ThisWorkbook.Worksheets For Each objShp In objWS.Shapes If InStr(1, objShp.TextFrame.Characters.Text, strSearch, vbTextCompare) Then Application.Goto objShp.TopLeftCell, True If MsgBox("Weitersuchen?", vbYesNo) = vbNo Then Exit Sub End If Next Next End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub searchInForms() Dim objShp As Object, objWS As Worksheet Dim strSearch As String strSearch = InputBox("Suchbegriff eingeben") If Len(strSearch) Then For Each objWS In ThisWorkbook.Worksheets For Each objShp In objWS.Shapes If objShp.Connector = msoFalse Then If InStr(1, objShp.TextFrame.Characters.Text, strSearch, vbTextCompare) Then Application.Goto objShp.TopLeftCell, True If MsgBox("Weitersuchen?", vbYesNo) = vbNo Then Exit Sub End If End If Next Next End If End Sub VBA/HTML - CodeConverter für Office-Foren AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann Projektbetreuung durch mumpel Code erstellt und getestet in Office 12

Hallo Resus,

Sub searchInForms()
  Dim objShape As Shape
  For Each objShape In ActiveSheet.Shapes
    If objShape.Connector = msoFalse Then
      Dim objShp As Object, objWS As Worksheet
      Dim strSearch As String
      strSearch = InputBox("Suchbegriff eingeben")
      If Len(strSearch) Then
        For Each objWS In ThisWorkbook.Worksheets
          For Each objShp In objWS.Shapes
            If objShp.TextFrame2.HasText = msoTrue Then
              If InStr(1, objShp.TextFrame.Characters.Text, strSearch, vbTextCompare) Then
                Application.Goto objShp.TopLeftCell, True
                If MsgBox("Weitersuchen?", vbYesNo) = vbNo Then Exit Sub
              End If
            End If
          Next
        Next
      End If
    End If
  Next
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Beliebteste Forumthreads (12 Monate)

Fehler von Excel 2010 auf Excel 365

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler von Excel 2010 auf Excel 365

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread