Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Abfrage = Zelle enthält

Forumthread: VBA Abfrage = Zelle enthält

VBA Abfrage = Zelle enthält
05.09.2007 11:21:47
kai
Hallo,
kann mir mal jemand sagen, wie ich folgende Abfrage ins VBA bringen kann.
Es soll damit eine if Abfrage gemacht werden.
Mit Autofilter:
Selection.AutoFilter Field:=6, Criteria1:="=*Transmission*", Operator:=xlAnd
Ich möchte also mit einer Schleife immer in die Zeile=SchleifeNr, Spalte=F gucken,
ob das Wort "Transmission" enthalten ist, dann soll in Spalte=Z das Wort "ja" geschrieben werden.
Vielleicht kann mir einer das ins VBA umsetzen.
Gruß Kai

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wieso VBA,wenn...
05.09.2007 11:28:00
Renee
Diese einfache Formel genügt ?

=WENN(ISTFEHLER(FINDEN("Transmission";F1));"";"ja")


Greetz Renee

AW: Wieso VBA,wenn...
05.09.2007 11:31:00
kai
Hallo Rene,
ich brauche keine Formel, sondern das ganze ins VBA gebracht.
Schau dir doch mal meinen gescheiterten Versuch an.
Gruß Kai

Anzeige
AW: Wieso VBA,wenn...
05.09.2007 11:38:00
Renee
Hallo Kai,

Sub Test()
Dim schleife As Long
For schleife = 2 To 20
If InStr(Cells(schleife, 6), "Transmission") > 0 Then
Cells(schleife, 26) = "ja"
Else
Cells(schleife, 26).ClearContents
End If
Next schleife
End Sub


GrteetZ Renee
P.S. Formeln sind fast immer sicherer als VBAsteleien!

Anzeige
AW: Wieso VBA,wenn...
05.09.2007 11:52:20
kai
Hallo Rene,
das sieht ja klasse aus. Kannst du mir vielleicht noch verraten, wie die Zeile
If InStr(Cells(z, 6), "Transmission") > 0 Then
aussehen müßte, wenn die Fragestellung "enthält nicht Transmission" lauten würde.
Gruß Kai

Statt >0 , =0 owT
05.09.2007 11:54:00
Renee

Super, vielen Dank (owT)
05.09.2007 11:57:17
kai

Anzeige
AW: Wieso VBA,wenn...
05.09.2007 21:08:00
Daniel
Hallo Kai
wenn du es unbedingt als VBA brauchst, dann machs doch so:

Sub Formeleinfügen()
With Range("F2:F20")
.FormulaR1C1Local = "=WENN(ISTFEHLER(FINDEN(""Transmission"";ZS(-1)));"""";""ja"")"
.Formula = .Value
End With
End Sub


das ist praktisch die Formellösung nach VBA transferiert und in der Geschwindigkeit der Schleifenlösung um ein vielfaches überlegen. (ok fällt bei 20 Zeilen nicht so auf, aber bei grösseren Datenmengen macht es sich schon bemerkbar)
Gruß, Daniel

Anzeige
Mein gescheiterter Versuch
05.09.2007 11:28:43
kai
Das wäre mein eigener Ansatz, der aber leider nicht funktioniert.

Sub Test()
For schleife = 2 To 20
If Cells(schleife, 6).Criteria1 = "*Incident*" Then
Cells(schleife, 26) = "ja"
End If
Next schleife
End Sub


;

Forumthreads zu verwandten Themen

VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 Beiträge
Wenn Zelle 'NV' enthält, dann führe Befehl nochmal
Peter

Hallo zusammen,
nächster Schritt.
ich lasse meine Daten per Webaktualisierung einlesen.
Nun kann es vorkommen, daß die Daten nicht richtig oder vollständig eingelesen werden. Dann taucht in beispielsweise Zelle s2 ein Fehler "#NV" auf.
Ich möchte nun, daß für diesen Fall, die Da...
08.08.2014 12:31:16
Thread-ID: 1375253
6 Beiträge
VBA Wenn Datum in Zelle, dann summieren...
Susanne

Hallo,
in Spalte A habe ich Rohdaten mit Datum (ein Datum kommt immer mehrmals vor). In einem zweiten Tabellenblatt habe ich das Datum für jeweils einen Tag in einer Spalte aufgelistet.
Nun möchte ich, dass wenn z.B. der 20.10.2014 mehrmals im ersten Tabellenblatt ist, diese Zeilen gezä...
18.12.2014 10:36:32
Thread-ID: 1398826
6 Beiträge
Wenn Zelle best. Datum enthält, dann
Excel

Hallo,
bei mir ist ist ein Datum gegeben in Spalte B im Format TT.MM.JJJJ und ich suche eine Formel, die mir das Datum nach Monaten ordnet.
Ein Beispiel wäre:
14.04.2015 Umwandlung in Apr 15.
kann mir da jemand weiterhelfen?
17.03.2015 12:01:31
Thread-ID: 1415446
7 Beiträge
Anzeige
Makro: Wenn Zelle Wert dann Spalten ausblenden
Herr

Hallo Zusammen,
ich brauche dringend Hilfe bei Makros!
Zum Thema:
In C7 soll ein Wert eingetragen werden, der das ein-/ausblenden von Spalten beeinflusst.
Bedingung 1: Wenn C7="" oder C1=1 dann soll Spalte H bis S ausgeblendet sein
Bedingung 2: Wenn C7=2 dann soll lediglich...
11.01.2016 23:14:08
Thread-ID: 1468313
3 Beiträge
Anzeige
Makro: Wenn Zelle Wert dann Spalten ausblenden
Herr

Hallo Zusammen,
ist es möglich in unten aufgeführten Makro eine Zeilenabhängigkeit zu integrieren? Sprich das Ein- und Ausklappen der u.a. Spalten soll nur für die Zeilen 9-214 stattfinden. Alle anderen Zeilen bleiben von dem Ein-/Ausklappen unberührt?
Und wie müsste dann der unten steh...
08.02.2016 17:11:04
Thread-ID: 1474134
2 Beiträge
Makro:Wenn in Zelle K..Bedingung wahr dann
Andre´

Hallo alle zusammen,
ich habe in den Zellen K1 bis K5000 eine Wenn Bedingung stehen. Wenn die Bedingung wahr ist, dann wird eine 3 angezeigt.
Nun möchte ich gern wenn die Bedingung wahr ist, dass dann 4 Spalten nach links und eine Zeile tiefer ein W erscheint.
Wenn sich die Bedingun...
08.05.2006 08:31:14
Thread-ID: 761795
3 Beiträge
Anzeige
VBA Code Hilfe, wenn Wert in Zelle, dann
Avgoustatos

Hallo zusammen
Ich probiere gerade mit rudimentären Kentnissen und dem Kopieren von VBA Scripts folgendes Problem zu lösen...
Ich habe ein Excel Sheet, siehe Screenshot:
https://ibb.co/wMZd77v
Nun möchte ich aus der IST Situation die SOLL Situation erstellen. D.h. wenn in der Sp...
30.03.2020 10:57:09
Thread-ID: 1749199
5 Beiträge
Wenn Zelle enthält dann Wert schreiben
Martin

Hallo,
Ich möchte eine bestimmte Spalte (immer Spalte G), durchsuchen, wenn in einer Zelle ein X enhalten ist dann soll eine 0 dazugeschrieben werden. Bsp HausX dann HausX0
Hier ist mein Code, ich hab hier leider etwas vergessen so funktioniert er nicht.
Dim spalte As Long
Dim...
15.06.2020 08:26:45
Thread-ID: 1765668
7 Beiträge
Anzeige
VBA Wenn Zelle voll dann/leer dann
Tim

Hallo an alle,
ich hab diesmal gleich 2 Probleme zu den ich keine Lösung finden konnte die mein Problem beschreibt.
Ich möchte Daten aus einem Formblatt in eine Tabelle übertragen.
Problem hierbei ist, dass bei den einzelnen Personen einige Eigenschaften durchs Formblatt vorgegeben...
16.12.2020 11:48:24
Thread-ID: 1800011
6 Beiträge
VBA wenn Zellen leer, dann...
Marko
Hallo in die Runde,
wie kann ich in diesen Code folgende Abfrage einbauen?
Wenn in "Tabelle2" die Zellen "C12:C26" leer / oder null, dann soll das Makro nicht ausgeführt werden und die nächste Mitgliednummer ("Mgl") genommen werden.
Sub allePdf_3() Dim ZAdr As String ZAdr = Worksheets("...
25.08.2021 08:19:24
Thread-ID: 1844978
3 Beiträge
VBA - Wenn Zelle String enthält ersetzen
Tobias G.
Hallo,
ich möchte ein bestehendes Makro erweitern, dieses ersetzt bestimmte Begriffe. Der Code stammt vom Makro-Recorder

Selection.Replace What:=ABC, Replacement:=XYZ, LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False

Wie kann ich diesen Code erweitern bzw. ersetze...
23.05.2023 12:08:12
Thread-ID: 1931710
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA Abfrage: Zelle enthält bestimmten Text

Beliebteste Forumthreads (12 Monate)

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