Új hozzászólás Aktív témák

• vilag tag

  #1591

  #1588 Homer

  2012-01-20 07:32:37

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  #1588 Homer

  #1588 Homer

  Vagy pl:

  Public Sub test()
  Dim Keresett As String
  Keresett = "Keresettoszlopszövege"
  oszlop = 1
  Dim megvan As Boolean
  megvan = False
  While Worksheets("Munka1").Cells(1, oszlop) <> Keresett And Not megvan And _ Worksheets("Munka1").Cells(1, oszlop) <> ""
  oszlop = oszlop + 1
  If Worksheets("Munka1").Cells(1, oszlop) = Keresett Then megvan = True
  Wend
  If megvan Then MsgBox (Keresett & " megvan, a következő oszlopban: " & oszlop) Else MsgBox ("Nincs meg")
  End Sub

  Mondjuk ha a keresett oszlop pont az első akkor nem működik, de nem tartana sokáig módosítani, hogy azzal is működjön. (Neked is hagyok gondolkodni valót )

  Üdv!

  Ez akár jó is lehetne, de túl hosszú és ha jól látom akkor minden egyes (keresett) oszlopfejléc szövegre meg kéne írni, ami több fáradtság lenne, mint ha minden egyes változáskor (ami mondjuk ritkán fog változni ha egyszer elkészült az egész) kézzel újraszámozom a megfelelő kódrészletet.

  Nincs esetleg valami rövidebb megoldás?

  Én gondoltam a vlookup-ra, de aztán elvetettem, minthogy meg kéne adni melyik oszlopban keresse a keresési értéket, de ha ezt tudnám akkor már nem volna szükség az egészre.

  Tulajdonképpen nekem az is elég lenne, ha találnánk valami olyan megoldást ami megmondja, hogy a keresett szöveg milyen számú oszlop milyen számú sorában van (persze elég csak az oszlop száma is). Innen már nyert ügyünk lenne.

  Egyébként köszönöm az eddigi ötletelést is!

Új hozzászólás Aktív témák