Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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


22 Forumthreads zu ähnlichen 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
Anzeige
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 habe folgendes Makro zum bedingten Ein-/Ausblenden von Spalten, bereits durch das Forum erhalten:
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address(0, 0) = "C7" Then Range("H:S").EntireColumn.Hidden = False Select Case .Value...
20.01.2016 11:12:14
Thread-ID: 1469954
4 Beiträge
VBA - wenn Wert in Zelle dann Zeile verschieben
noctu21

Hallo Leute,
ich habe in einer Excel einmal eine Tabelle zu Maßnahmen und einmal eine Tabelle zum Archiv. Wenn bei den Maßnahmen nun in der Spalte M 100% ausgewählt wurden, verschiebt sich die gesamte Maßnahme (also die Zeile) ins Archiv. Andersrum funktioniert es genauso. Falls jemand der...
25.01.2016 08:34:53
Thread-ID: 1470846
3 Beiträge
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
VBA wenn bestimmter Wert in Zelle dann schreiben
Florian

Hallo Zusammen,
ich benötige eure Hilfe. Ich bin in VBA leider nicht mehr wirklich fit und stehe nun echt auf dem Schlauch bei meiner Excel Tabelle.
Zur Erläuterung:
Ich habe eine Tabelle in welcher ich Daten aufnehmen will, ähnlich wie ein Ticketsystem. Bekomme ich also ein Ticket...
15.10.2018 13:36:38
Thread-ID: 1651295
2 Beiträge
VBA: Text löschen, wenn andere Zelle Wert enthält
Nik

Hallo zusammen,
ich brauche einmal einen VBA Befehl, um folgendes zu realisieren:
Ich habe in der Zelle "B3" eine Liste, mit den Auswahlmöglichkeiten "Technik" Und Wirtschaft".
In Zelle "E3" steht "Wähle Technikprodukt".
Wenn in Zelle "B3" nun "Technik" ausgewählt ist, soll mit...
22.11.2018 07:22:31
Thread-ID: 1658858
3 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
5
5
6
2
3
2
1
1
2
2
10
6
2
4
4
6
5
2
7
1
4