Makro til Project 98

Hvad er det du du skal løbe igennem?

En TekstStreng, et recordset, en fil eller hvad?

Hvis det er en streng kan du jo benytte en while som tester på et sluttegn hvor så i løkken tester om * forekommer.

dim counter as integer
dim strTxt as string

counter = 1

  While (Mid(strTxt , counter, 1) <> \"[sluttegn\")
    if (Mid(strTxt, counter, 1) = \"*\" then
      gør sådan og sådan
    end if
    Midcounter = counter + 5
  Wend

Håber du kan bruge dette.

Det er forklaret lidt dumt, for det er ikke mig, men en af mine brugere, der har problemet. Han har importeret en række ting fra Excel over i en Project fil. Hvis du forestiller dig en kolonne, hvor en masse opgaver er listet. Nogle af dem vil han have til at være underopgaver og de er markeret med en stjerne over fra Excel. Han vil så løbe opgavekolonnen igennem vha. vba, og hvis den støder på en stjerne foran en opgave, skal den laves til underopgave (rykkes ind, gøres fed, m.m.) men det er selve løkken han vil have hjælp til.

Jeg har ikke prøvet at arbejde med MS Project, men jeg kan forestille mig at han fra VBA har adgang til opgavekolonnens indhold fra et objects property i VBA-koden. Efterfølgende kan han så konvertere objektets property med CStr() og benytte Mid() funktionen som ovenfor vist.

Vi tjekker lige om han kan bruge det.

Ok, eller skriv tilbage

Ska´vi nok. Du skal jo også ha´lidt points :-)

Tak for hjælpen Mundt. Han vil arbejde videre med det.

Det var så lidt :o}