Microsoft Excel

Herbers Excel/VBA-Archiv

Text auslesen

Betrifft: Text auslesen von: Torsten K.
Geschrieben am: 03.09.2004 09:46:50

Guten Morgen beisammen,

im Range("A1:A50") habe ich Texte stehen, die ich auswerten möchte.
Und zwar soll in der Spalte B das Wort "DB" eingefügt werden, wenn in dem Text der nebenstehenden Zelle in Spalte A das Wort "Deutsche Bank" vorkommt.
Wer nett, wenn Ihr mir mit einer VBA-Lösung weiterhelfen könntet.
Vielen Dank im voraus.

Gruß
Torsten

  


Betrifft: AW: Text auslesen von: HermannZ
Geschrieben am: 03.09.2004 10:00:18

Hallo Torsten,

ohne VBA,

Text
 ABC
380Deutsche Bank DB
381Gemeinschafts Bank GB
Formeln der Tabelle
C380 : =LINKS(A380;1)&TEIL(A380;FINDEN(" ";A380)+1;1)
C381 : =LINKS(A381;1)&TEIL(A381;FINDEN(" ";A381)+1;1)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  



Gruß hermann


  


Betrifft: AW: Text auslesen von: Torsten K.
Geschrieben am: 03.09.2004 10:03:34

Hallo Herrmann,

vielen Dank für Deine Lösung. Ich kann sie sicher an anderer Stelle verwenden.
Nur für mein oben geschildertes Problem würde ich schon eine VBA-Lösung bevorzugen.
Nochmals schönen Dank.

Gruß
Torsten


  


Betrifft: AW: Text auslesen von: ypsilon
Geschrieben am: 03.09.2004 10:11:37

hi Torsten,
probier mal:

Sub test()
Dim i as Integer
For i = 1 To 50
If InStr(ActiveSheet.Cells(i, 1).Value, "Deutsche Bank") > 0 Then ActiveSheet.Cells(i, 2) = "DB"
Next
End Sub


cu Micha


  


Betrifft: AW: erledigt - mT von: Torsten K.
Geschrieben am: 03.09.2004 10:18:47

Hallo Micha,

perfekt! Genau das, was ich brauchte.
Vielen Dank für Deine Hilfe.

Gruß
Torsten


  


Betrifft: AW: Text auslesen von: HermannZ
Geschrieben am: 03.09.2004 10:33:03

Hallo Torsten,

ohne VBA,

Text
 ABC
380Deutsche Bank DB
381Gemeinschafts Bank GB
Formeln der Tabelle
C380 : =LINKS(A380;1)&TEIL(A380;FINDEN(" ";A380)+1;1)
C381 : =LINKS(A381;1)&TEIL(A381;FINDEN(" ";A381)+1;1)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  



Gruß hermann


 

Beiträge aus den Excel-Beispielen zum Thema "Text auslesen"