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
1616to1620
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
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range.Find mit mehreren Wörtern

Range.Find mit mehreren Wörtern
28.03.2018 13:25:43
Maxi
Hallo,
ich suche mit folgendem Code nach einem Wort und lösche dan die gesamte Spalte in der das Wort vorkommt:
Dim Such
Set Such = ActiveSheet.Range("A3:FJ3").Find("MeinWort")
If Not Such Is Nothing Then Such.EntireColumn.Delete
Ich will nun genau das gleiche für 40 weitere Wörter machen. Statt den selben Code 40 mal zu kopieren suche ich nach einer alternative.
Am besten wäre natürlich sowas wie: .Find("MeinWort" OR "MeinZweitesWort OR ""DrittesWort" OR ... OR "MeinLetztesWort")
Habt ihr irgendwelche Ideen?
Danke im Voraus.

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

Betreff
Datum
Anwender
Anzeige
AW: Range.Find mit mehreren Wörtern
28.03.2018 13:47:12
Daniel
HI
1. hinterlege die 40 Suchbegriffe in einem eingenen Tabellenblatt in einer freien Spalte (TabelleX!A:A)
2. kennzeichen per formel die entsprechenden Spalten, deren Text in dieser Liste vorkommt (ZählenWenn) und lösche dann die so gekennzeichneten Spalten (Inhalte auswählen)
sieht als Code so aus, der Code suchst sich automatisch die erste Freie Zeile am Tabellenende:
With ActiveSheet.Usedrange
With .Rows(.Rows.Count, 1)
.FormulaR1C1 = "=IF(CountIf(TabelleX!C1,R3C),1,"""")"
if Worksheetfunction.Sum(.Cells) > 0 then
.SpecialCells(xlcelltypeformulas, 1).EntireColumn.delete
end if
.ClearContents
end with
End with
Gruß Daniel
Anzeige
AW: Range.Find mit mehreren Wörtern
28.03.2018 15:04:37
Maxi
Cool danke dir sehr.
AW: Range.Find mit mehreren Wörtern
28.03.2018 15:06:13
Maxi
Cool danke dir sehr.
AW: Range.Find mit mehreren Wörtern
28.03.2018 13:48:13
Peter(silie)
Hallo,
array + schleife.
Option Explicit
Sub test()
Dim sValue() As Variant
Dim i As Long
Dim such As Range
ReDim sValue(1 To 40)
sValue(1) = "1"
sValue(2) = "2"
'... und so weiter
For i = LBound(sValue) To UBound(sValue)
Set such = ActiveSheet.Range("A3:FJ3").Find(sValue(i))
If Not such Is Nothing Then such.EntireColumn.Delete
Next i
End Sub

AW: Range.Find mit mehreren Wörtern
28.03.2018 15:49:56
Maxi
Danke dir sehr.

304 Forumthreads zu ähnlichen Themen

Suchen und finden
oscar

Hallo zusammen, über folgenden VBA-Code suche ich in einer Spalte.
Sub CSVAuslesen() Dim i As Integer Dim s As Variant auswahl = InputBox("Auswahl Spalte 2 = GCode") s = auswahl If auswahl = "" Then Exit Sub For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If Cells(i, 2).Value = s...
07.10.2008 09:46:29
Thread-ID: 1014618
3 Beiträge
Anzeige
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Funktion SUCHEN o.ä. mit mehreren Suchbegriffen
Nico

Morjen,
sacht mal, was ist an der Syntax falsch? Ich will eine Zelle nach mehreren Begriffen durchsuchen und wenn einer dieser Begriffe enthalten ist, soll der Inhalt der Zelle ausgegeben werden.
Folgende Syntax verwende ich bisher für den Teil der Funktion SUCHEN:
=Wenn(Oder(Suchen...
19.05.2009 09:17:25
Thread-ID: 1076059
8 Beiträge
Anzeige
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & „;“ & TextBox2.Text……….
Danke Peter
08.11.2009 19:48:16
Thread-ID: 1115412
2 Beiträge
Texte in mehreren Zellen suchen
Stephan

Hallo,
ich stehe gerade schwer auf dem Schlauch:
In einer Tabelle befinden sich folgende Werte:
Spalte A -- Text1, Text2 .... Text 4000
Spalte B -- Text1, Text2 .... Text 4000
Spalte C -- Zahl1, Zahl2 .... Zahl 4000
Zeile 1 -- die Suchbegriffe, also z.B. Text 2, Text7,...
28.12.2009 18:32:43
Thread-ID: 1126094
3 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 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
2
2
6
7
7
6
2
1
2
5
3
10
3
3
2
8
2
4
4
13
4
9
4
8
4