Herbers Excel-Forum - das Archiv
Abfrage
- Abfrage von Ivi vom 07.04.2005 10:31:31
- AW: Abfrage - von Tobias Marx am 07.04.2005 10:42:26
- AW: Abfrage - von heikoS am 07.04.2005 10:55:26
- AW: Abfrage - von Ivi am 07.04.2005 11:08:57
- ??? - von heikoS am 07.04.2005 11:34:35
- AW: ??? - von Ivi am 07.04.2005 11:42:35
Betrifft: Abfrage
von: Ivi
Geschrieben am: 07.04.2005 10:31:31
Hallo Leute,
kurze Frage,wie kann ich aus eine Zelle die einen Text beinhaltet nach einem
bestimmten Wort suchen?
Bsp. Ich möchte,dass wenn in Zelle A1 der Text steht "Frank ist gerne Eis."
nach dem Namen "Frank" eine Abfrage stellen,d.h. wenn in A1 Frank, dann 1...
mit der wenn Abfrage geht es nicht,da in der Zelle nur das Wort Frank vorkommen sollte damit es funktioniert.
Danke und Gruß
Ivi
Betrifft: AW: Abfrage
von: Tobias Marx
Geschrieben am: 07.04.2005 10:42:26
Servus!
Sub suchen()
If Range("A1").Find ("Frank") Then
'Hier die Anweisungen rein
End if
End Sub
Gruss
Tobias
Betrifft: AW: Abfrage
von: Ivi
Geschrieben am: 07.04.2005 10:59:10
Na ja läuft nicht...
Was muss man tun um dem Makro zu sagen suche spalte A nach Frank ab
und gebe das Ergebnis in Spalte B wieder....
Gruss
Ivi
Betrifft: AW: Abfrage
von: Tobias Marx
Geschrieben am: 07.04.2005 11:01:56
Ja was denn nu, Spalte oder Zelle? Du musst schon sagen, was du willst.
Gruss
Tobias
Betrifft: AW: Abfrage
von: Ivi
Geschrieben am: 07.04.2005 11:07:01
Spalte...er soll Spalte A nach Frank durchsuchen und wenn Frank vorkommt
in spalte B sagen wir mal ne 1 schreiben überall dort wo er Frank gefunden hat.
Betrifft: AW: Abfrage
von: Tobias Marx
Geschrieben am: 07.04.2005 11:35:49
Servus!
Also wenn ich dich richtig verstanden habe:
Er sucht Spalte A nach "Frank" ab, und wenn er z.B. in A16 "Frank" gefunden hat, soll er in B16 ne "1" schreiben. Das saehe so aus:
Sub suchen()
endup = Range("A65536").End(xlUp).Row
For i = 1 To endup
If Range("A" & i).Value Like "*Frank*" Then
Range("B" & i).Value = 1
End If
Next i
End Sub
Fuege diesen Code einem neuen Modul hinzu. Beachte auch, dass die Suche gross-kleinschreibung beachtet.
Gruss
Tobias
Betrifft: AW: Abfrage
von: Ivi
Geschrieben am: 07.04.2005 11:41:25
Super...funktioniert wunderbar....Vielen dank....
gruß
Ivi
Betrifft: Gern geschehen :-) o.T.
von: Tobias Marx
Geschrieben am: 07.04.2005 11:46:02
Servus!
Gruss
Tobias
Betrifft: AW: Abfrage
von: heikoS
Geschrieben am: 07.04.2005 10:55:26
Hallo Ivi,
=finden("Frank";a1) oder
=suchen("Frank";a1) ohne Unterscheidung zwischen Groß-/Kleinschreibung.
Gruß Heiko
Betrifft: AW: Abfrage
von: Ivi
Geschrieben am: 07.04.2005 11:08:57
@ heiko....das hilft nicht wirklich...ich kann keine Bedingung einbauen....
Betrifft: ???
von: heikoS
Geschrieben am: 07.04.2005 11:34:35
Hallo Ivi,
wie wäre es mit:
=wenn(istfehler(finden("Frank";a1));DannMachWas;SonstMachWas)
Oder was ist eine "Bedingung" für Dich?
Gruß Heiko
Betrifft: AW: ???
von: Ivi
Geschrieben am: 07.04.2005 11:42:35
Ja es geht auch so....Vielen Dank
Gruß
Ivi