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

• #20031 Mutt senior tag Latis #19997

  Új Válasz 2014-01-10 20:29:59 #20031

  Ú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

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz Latis #19997 üzenetére

  Hali,

  Azt szeretném hogy egy változóba olvassa ki a : előtti információt.

  Egy makrós válasz már jött erre m.zmrzlina-tól. Itt egy másik:

  Sub Kettopont2()
  Dim vEredmeny
  Dim vTomb
  
  vTomb = Split(ActiveCell, ":")
  vEredmeny = vTomb(0)
  
  End Sub

  üdv

• #20000 m.zmrzlina senior tag Latis #19997

  Új Válasz 2014-01-09 13:10:27 #20000

  Ú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

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz Latis #19997 üzenetére

  Próbáld ezt:

  strSzöveg = Left(ActiveCell.Value, Application.WorksheetFunction.Find(":", ActiveCell.Value) - 1)

  Természetesen a tartományt (Activecell) át kell írnod ha nem a kijelölt cella tartalmából akarsz olvasni.

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