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 Ivi am 07.04.2005 10:59:10
  - AW: Abfrage - von Tobias Marx am 07.04.2005 11:01:56
    - AW: Abfrage - von Ivi am 07.04.2005 11:07:01
      - AW: Abfrage - von Tobias Marx am 07.04.2005 11:35:49
        
        AW: Abfrage - von Ivi am 07.04.2005 11:41:25
        
        Gern geschehen :-) o.T. - von Tobias Marx am 07.04.2005 11:46:02
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