12.10.2016, 14:27
Hallo Clever-Exel-Forum Community,
ich hätte hier ein eigentlich simples Problem, das mich aber zur Verzweiflung bringt :D
Mit folgendem VBA Code soll bewirkt werden, dass entsprechende Zellen aus Exel in Textfelder meiner PowerPoint übernommen werden. Die einzelnen Textfelder meiner PPP heißen "Rechteck 1"..."Rechteck 30"
Wie kann ich den Indizes meiner Textfelder korrekt hochzählen? Bei folgender Schreibweise bekomme ich eine Fehlermeldung:
Do
Wert = Test.xlsx").Sheets(2).Cells((a), 2)
If Wert = "" Then Exit Do
ActivePresentation.Slides(1).Shapes("Rechteck "(i)).TextFrame.TextRange.Text = "" & Wert & ""
a = a + 1
i = i + 1
Loop
Vielen Dank für eure Hilfe!
Grüße raw90
ich hätte hier ein eigentlich simples Problem, das mich aber zur Verzweiflung bringt :D
Mit folgendem VBA Code soll bewirkt werden, dass entsprechende Zellen aus Exel in Textfelder meiner PowerPoint übernommen werden. Die einzelnen Textfelder meiner PPP heißen "Rechteck 1"..."Rechteck 30"
Wie kann ich den Indizes meiner Textfelder korrekt hochzählen? Bei folgender Schreibweise bekomme ich eine Fehlermeldung:
Do
Wert = Test.xlsx").Sheets(2).Cells((a), 2)
If Wert = "" Then Exit Do
ActivePresentation.Slides(1).Shapes("Rechteck "(i)).TextFrame.TextRange.Text = "" & Wert & ""
a = a + 1
i = i + 1
Loop
Vielen Dank für eure Hilfe!
Grüße raw90