![]() |
| VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
| Von |
Torsten |
| E-Mail |
Kontakt@torstenschrimper.de |
| Datum |
25. Februar 2015 um 11:04:45 |
| Frage |
Hallo,
wir haben hier einen Programmcode, der Unter Excel 2003 läuft, aber unter 2010 leider nicht mehr. Es kommt folgende Fehlermeldung:
"Laufzeitfehler'-2147188160 (800482240)':
OLEFormat (unknownmember): Invalid request. This property only applies to OLEobjects"
Nummer = .Presentations(1).Slides("Planumsatz").SlideNumber 'U_JÜ_J1"
With .Presentations(1).Slides(Nummer).Shapes("Object 3").OLEFormat.object '.'Application.DataSheet
.range("A0") = "Jan" 'Monate eintragen
.range("B0") = "Feb"
.range("C0") = "März"
.range("D0") = "April"
.range("E0") = "Mai"
.range("F0") = "Jun"
.range("G0") = "Jul"
.range("H0") = "Aug"
.range("I0") = "Sep"
.range("J0") = "Okt"
.range("K0") = "Nov"
.range("L0") = "Dez"
.range("A1") = Worksheets(aktuell).range("GE_Jan_1").Value ' 1. Reihe Umsatz das muss flexibel werden
.range("b1") = Worksheets(aktuell).range("GE_Feb_1").Value ' dazu wurden per update neue Namen eingetragen
.range("c1") = Worksheets(aktuell).range("GE_Marz_1").Value
.range("d1") = Worksheets(aktuell).range("GE_April_1").Value
.range("e1") = Worksheets(aktuell).range("GE_Mai_1").Value
.range("f1") = Worksheets(aktuell).range("GE_Jun_1").Value
.range("g1") = Worksheets(aktuell).range("GE_Jul_1").Value
.range("h1") = Worksheets(aktuell).range("GE_Aug_1").Value
.range("i1") = Worksheets(aktuell).range("GE_Sep_1").Value
.range("j1") = Worksheets(aktuell).range("GE_Okt_1").Value
.range("k1") = Worksheets(aktuell).range("GE_Nov_1").Value
.range("l1") = Worksheets(aktuell).range("GE_Dez_1").Value
.range("A2") = Worksheets(aktuell).range("JU_Jan_1").Value ' 2. Reihe JÜ das muss flexibel werden
.range("b2") = Worksheets(aktuell).range("JU_Feb_1").Value
.range("c2") = Worksheets(aktuell).range("JU_Marz_1").Value
.range("d2") = Worksheets(aktuell).range("JU_April_1").Value
.range("e2") = Worksheets(aktuell).range("JU_Mai_1").Value
.range("f2") = Worksheets(aktuell).range("JU_Jun_1").Value
.range("g2") = Worksheets(aktuell).range("JU_Jul_1").Value
.range("h2") = Worksheets(aktuell).range("JU_Aug_1").Value
.range("i2") = Worksheets(aktuell).range("JU_Sep_1").Value
.range("j2") = Worksheets(aktuell).range("JU_Okt_1").Value
.range("k2") = Worksheets(aktuell).range("JU_Nov_1").Value
.range("l2") = Worksheets(aktuell).range("JU_Dez_1").Value
End With
' frmProgress.lblProgress.Width = 30
' frmProgress.Repaint
Ich bräuchte hier bitte Hilfe. Vielen lieben Dank. Torsten |
|
| [ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
|
| Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|
Zum Seitenanfang