Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teiltext in einer Zelle finden

Teiltext in einer Zelle finden
14.06.2016 15:10:05
Peter
Hallo Zusammen,
ich bitte um Eure Hilfe.
In einer Spalte (M10:M500) mit ca. 500 Zeilen soll ein Teiltext (z.B. xyz) in einem Kurzbericht, der jeweils in einer Zelle ist, gefunden werden.
Alle Kurzberichte mit dem Stichwort "xyz" sollen dann untereinander in einer separaten Liste (Listenfeld?) ausgegeben werden.
Nach dem Lesen der Kurzberichte soll die Liste (Listenfeld?) wieder gelöscht werden können.
Wie könnte ein VBA-Code (im besten Fall ohne Schleifen) dazu aussehen?
Für jeder Hilfe bedanke ich mich im voraus.
LG, Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teiltext in einer Zelle finden
14.06.2016 15:24:44
UweD
Hallo
so als Hilfestellung:
Ohne Schleife) mit Filter....
Listenfeldsteuerung must du noch einbauen..

Sub Makro2()
Dim TB2, myRng As Range
Set TB2 = Sheets("Tabelle2")
With ActiveSheet
Set myRng = .Range("$M$10:$M$500")
If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten
.Columns("M:M").AutoFilter
myRng.AutoFilter Field:=1, Criteria1:="=*xyz*"
myRng.Copy TB2.Cells(1, 1)
End With
MsgBox "mach was damit"
TB2.Columns(1).ClearContents
End Sub

Gruß UweD

AW: Teiltext in einer Zelle finden
14.06.2016 16:27:54
Fennek
Hallo,
eine Verständnisfrage:
In Uwe's code wird zusätzlich mir myRng.Autofilter gearbeitet, also ein doppelter Filter. Interessant, aber in meinem Nachbau in Spalte F ging es auch "üblicher":

Sub Code_von_Uwe()
Dim rng As Range
With ActiveSheet
Set rng = .Range("F5:F13")
.Columns("F:F").AutoFilter
rng.AutoFilter field:=1, Criteria1:="=*xyz*"
rng.Copy Sheets(2).Cells(4, "b")
.Columns("F:F").AutoFilter
End With
End Sub
Sub test2()
Columns("F:F").AutoFilter field:=1, Criteria1:="=*xyz*"
Columns("F:F").SpecialCells(12).Copy Sheets(2).Cells(1, 4)
Columns("F:F").AutoFilter
End Sub
mfg

Anzeige
AW: Teiltext in einer Zelle finden
14.06.2016 16:46:30
UweD
Du hast recht, die Zeile mit
.Columns("M:M").AutoFilter
ist zu viel.
Das kommt davon, wenn man erst fix versucht und nachher alles schön auf Variable umbiegt, und nicht allen Müll wegräumt.

AW: Teiltext in einer Zelle finden
16.06.2016 13:51:58
Peter
Vielen Dank für Eure Antworten,
lässt sich das auch ohne Filterfunktion lösen?
LG, Peter

AW: Teiltext in einer Zelle finden
16.06.2016 14:45:33
UweD
Ja, mit Schleife...
Jede Zelle einzeln auf den Inhalt prüfen und im Trefferfall die Zeile kopieren.

Sub Makro2()
Dim TB2, myRng As Range, i As Integer, Zelle
Set TB2 = Sheets("Tabelle2")
With ActiveSheet
Set myRng = .Range("$M$10:$M$500")
For Each Zelle In myRng.SpecialCells(xlCellTypeConstants, 2)
If InStr(Zelle, "xyz") > 0 Then
i = i + 1
TB2.Cells(i, 1) = Zelle
End If
Next
End With
MsgBox "mach was damit"
TB2.Columns(1).ClearContents
End Sub
Gruß UweD
Anzeige

354 Forumthreads zu ähnlichen Themen

zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Anzeige
Teile einer Zelle tiefstellen
Larass

Moins!
ich würde gerne Teile einer Zelle tiefgestellt haben, finde aber keine Einstellung dazu.
Bisher bekomme ich das nur hin, indem ich den Text so wie er sein soll von Word aus in die Zelle kopiere.
Geht das nicht auch einfacher?
Gruß, Lars
15.12.2008 09:54:08
Thread-ID: 1032941
6 Beiträge
Ausgabe der ersten 4 Zeichen aus anderer Zelle
Eddie

Mahlzeit an alle,
habe wohl ne ganz einfache Sache .. ich suche ne kleine Formel, womit ich in A1 die ersten 4 Zeichen in der Zelle B1 wieder anzeige, also kopiert wird
Danke und gruß Eddie
05.01.2009 14:39:00
Thread-ID: 1036984
4 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
3
5
3
4
7
4
5
4
6
1
2
3
4
2
9
7
5
4
4
4
2
5
6
5