Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aufhebung der Suchstringbegrenzung von 255 Zeichen

Gruppe

Zeichenfolge

Problem

Excel findet über das Suchen-Feature keine Texte, die länger als 255 Zeichen sind. Gesucht wird eine VBA-Lösung als Behebung des Problems.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub SuchenFinden()
   Dim sTxt As String
   Dim iRow As Integer
   sTxt = Worksheets("Tabelle2").Range("A1").Value
   For iRow = 1 To WorksheetFunction.CountA(Columns(1))
      If Cells(iRow, 1).Value = sTxt Then
         MsgBox Cells(iRow, 1).Address
      End If
   Next iRow
End Sub