Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1196to1200
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

VBA If Funktion mit Inhaltssuche in Target Feld

VBA If Funktion mit Inhaltssuche in Target Feld
Michael
Hallo zusammen,
ich habe mein erstes kleines VBA Makro geschrieben (siehe unten). Soweit funktioniert auch alles. Allerdings habe ich jetzt das Problem das ich im Target nicht nach einem fest definierten Inhalt sondern nach einem bestimmten Wort ("dedicated") suchen möchte. Vielleicht sollte ich noch sagen dass Target über ein DropDown gefüllt wird. Hier mein Erstlingswerk:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wks As Worksheet
Set Wks = ActiveSheet
If Target.Address = "$B$16" Then
Wks.Unprotect "xxx"
If Target = "no SDE in place (dedicated)" Then 'Zellen B20 bis B28 schreibar
Range("$B$20:$B$28").Locked = False
Else
Range("$B$20:$B$28").Locked = True
End If
Wks.Protect "xxx"
End If

Ich hoffe ihr könnt mir weiterhelfen.
Gruß
Michael

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

Betreff
Benutzer
Anzeige
AW: VBA If Funktion mit Inhaltssuche in Target Feld
28.01.2011 08:09:32
sergiesam
Hallo Michael,
du kannst den Like-Operator oder Instr-Funktion verwenden.
z.B.
if target.value like "*dedicated*" then...
oder
if instr(target.value, "dedicated")>0 then....
lg,
Sam
AW: VBA If Funktion mit Inhaltssuche in Target Feld
28.01.2011 08:21:03
Michael
Hi Sam,
bin begeistert. Habe zwar nicht ganz kapiert was

>0
aussagt, funktioniert aber super.
Danke und schönen Tag.
Gruß
Michael
AW: VBA If Funktion mit Inhaltssuche in Target Feld
28.01.2011 08:30:28
sergiesam
hallo Michael,
die Instr-Funktion gibt dir die Position des Vorkommens deines Textes an.
z.B. bei "Hallo Michael" würde Instr("Hallo Michael", "Michael") den Wert 7 zurückgeben, da Michael ab der 7. Stelle zu finden ist. Wenn ich also nach > 0 abfrage, weiß ich, dass der Wert vorkommt.
Achte aber auf die Groß und Kleinschreibweise.
Wenn diese nicht relevant sein soll musst du folgendes schreiben:
If instr(1, "Hallo Michael", "michael",vbTextCompare) > 0 then
lg,
Sam
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige