Microsoft Excel

Herbers Excel/VBA-Archiv

VBA MS Project


Betrifft: VBA MS Project von: AKA
Geschrieben am: 12.09.2019 15:20:32

Hallo Zusammen,

ich hoffe auf Eure Hilfe

Habe jetzt erst erste Berührungen mit MS Project
Ausgangspostion:ich habe folgende Spalten

Vorgangsmodus, Vorgangsname, Dauer, Anfang, Ende, Vorgänger (wird später ausgeblentet), Ressourcen & Notizen

Nun möchte ich in der Spalte Vorgangsname herrausfinden ob "Montage Neubau" steht und wenn ja, aus der Stalte Ressourcen die eingetragenen Ressourcen in Notizen erste Zeile übernehmen.

Jetzt meine Frage geht sowas mit VBA und wenn ja wie.

Denn mit Formeln komme ich hier nicht wirklich weiter.

Danke für Eure Hilfe im Voraus

  

Betrifft: AW: VBA MS Project von: 1712732.html
Geschrieben am: 12.09.2019 16:06:00

Hallo AKA,

bei Excel könnte dir die Find-Methode helfen:

Dim Suche as Range

Set Suche = Range("A1").EntireColumn.Find("Montage Neubau", Loolat:=xlWhole)
If Not Suche is nothing then
ErsteSuche= Suche.Adress
 Do
ActiveSheet.Cells(Suche.Row,8).value = ActiveSheet.Cells(Suche.row,7)value

Set Suche = Range("A1").EntireColumn.FindNext(Suche)

Loop While Suche.Adress<>ErsteSuche
End if

Gestzt in Spalte A steht das zu suchende und das oben genannte tatsächlich in Spalte 8 und 7

Allerdings durchsucht er so alle Zeilen, das kann halt dauern.
  

Betrifft: AW: VBA MS Project von: 1712794.html
Geschrieben am: 13.09.2019 08:26:33

Hallo Simon,

ich habe heute mal das VBA ausprobiert,
leider passiert nichts.

Dim copy As Range

Set copy = Range("A1").EntireColumn.Find("Montage Neubau", Loolat:=xlWhole)
If Not copy Is Nothing Then
ErsteSuche = Suche.Adress
Do
ActiveSheet.Cells(Suche.Row,8).value = ActiveSheet.Cells(Suche.row,7)value (das steht in rot)

Set copy = Range("A1").EntireColumn.FindNext(Suche)

Loop While Suche.Adress <> ErsteSuche
End If

kannst du mir vielleicht sagen warum es so ist?
Gruß AKA

  

Betrifft: AW: VBA MS Project von: 1712887.html
Geschrieben am: 13.09.2019 12:54:12

sorry werde langsam ....
kann mir einer helfen bei meinem Problem.
habe jetzt mal mein Problem hier dargestellt=

das gelb markierte soll automatisch in die andere Zelle eingetragen werden nachdem er das Wort "Montage Neubau" gefunden hat