AW: Aktuelle KW in einer Tabelle suchen
28.04.2015 20:01:08
Jonas Z
Funktioniert leider nicht. Mir wird nur die Msg box angezeigt.
Hier nochmal wie es bisher aussah der Code komplett:
'Pfad auswählen
Workbooks.Open "C:\Users\..."
Sheets("Tabelle3").Select
Set MSppt = CreateObject("PowerPoint.Application")
ppt_slide = 1
Zeile = 1
TabellenZeile = 2
'Spalte gewählt als KW der Vorwoche(muss immer angepasst werden,d.h für jede weitere Woche muss _
bei der Spaltenzahl 2 addiert werden)
Spalte = 28
'Allgemein die aktuelle und vergangene KW in der Tabelle einsetzen
MSppt.ActivePresentation.Slides(ppt_slide).Shapes("Group 189").Table.Cell(1, 2).Shape.TextFrame. _
TextRange.Text _
= Replace(Cells(1, Spalte).Text, Chr(10), Chr(13))
MSppt.ActivePresentation.Slides(ppt_slide).Shapes("Group 189").Table.Cell(1, 3).Shape.TextFrame. _
TextRange.Text _
= Replace(Cells(1, Spalte + 2).Text, Chr(10), Chr(13))
'Füllen des PPT-Slides unter den nachstehenden Bedingungen
While Cells(Zeile, 1).Text <> ""
If (Cells(Zeile, vntReturn) <> "" And Cells(Zeile, Spalte + 2) <> "") _
Or (Cells(Zeile, vntReturn) <> "100%" And Cells(Zeile, Spalte + 2) <> "") Then
With MSppt.ActivePresentation.Slides(ppt_slide)
.Shapes("Group 189").Table.Cell(TabellenZeile, 1).Shape.TextFrame.TextRange.Text = _
Replace(Cells(Zeile, 1).Text, Chr(10), Chr(13))
.Shapes("Group 189").Table.Cell(TabellenZeile, 2).Shape.TextFrame.TextRange.Text = _
Replace(Cells(Zeile, Spalte - 2).Text, Chr(10), Chr(13))
.Shapes("Group 189").Table.Cell(TabellenZeile, 3).Shape.TextFrame.TextRange.Text = _
Replace(Cells(Zeile, Spalte).Text, Chr(10), Chr(13))
.Shapes("Group 189").Table.Cell(TabellenZeile, 4).Shape.TextFrame.TextRange.Text = _
Replace(Cells(Zeile, Spalte + 1).Text, Chr(10), Chr(13))
Danke für eure Hilfe!