Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1284to1288
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
Inhaltsverzeichnis

Spalte nach Teilstring durchsuchen mit VBA

Spalte nach Teilstring durchsuchen mit VBA
29.10.2012 18:23:05
Günther
Hallo zusammen,
ich möchte mit VBA in Spalte A nach Teilstrings suchen und alle Treffer fortlaufend in Spalte E ausgeben.
- in Spalte A von A1:A1000 stehen Namen und Zahlen
- in Zelle C2 soll der Suchbegriff eingegeben werden (Teilstring eines Wortes oder eines Wertes)
- in Spalte E von E1:E? sollen alle Treffer der Suche fortlaufend aufgeführt werden
Vielen Dank für eure Hilfe.
Gruß
Günther

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte nach Teilstring durchsuchen mit VBA
29.10.2012 19:19:12
ransi
Hallo
Versuch mal sowas:
Option Explicit


Public Sub test()
    Dim arr
    Dim out
    With Sheets("Tabelle1")
        arr = .Range("a1:A10000")
        arr = WorksheetFunction.Transpose(arr)
        out = Filter(arr, .Range("C1").Value, True, 1) '0 für A<>a,1 für A=a
        If UBound(out) > -1 Then
            .Range("E1").Resize(UBound(out) + 1) = WorksheetFunction.Transpose(out)
        End If
    End With
End Sub


ransi

Anzeige
AW: Spalte nach Teilstring durchsuchen mit VBA
29.10.2012 19:55:17
Günther
Hallo ransi,
Danke für die schnelle Antwort.
Genau so hab ich mir das vorgestellt.
Wie muss ich den Code ergänzen um das Makro durch die Entertaste (Ziffern und Zahlenblock)
zu starten?
Danke nochmals
Gruß
Günther

hat sich erledigt. Danke nochmal. O.T.
29.10.2012 21:07:52
Günther
o.T.

335 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige