| |

Visual-Basic EinsteigerRe: Laufzeitfehler 13 Typen unverträglich | |  | Autor: PM-ORD | Datum: 05.11.15 13:54 |
| Nachtrag:
'MsgBox "letzte, befüllte Zeille = " & wletztegefZeile
For c = 4 To wletztegefZeile
With Workbooks("REKLA 2015.xls").Worksheets(wTBName)
If Trim(.Cells(c, 1)) <> "" Then
If (Trim(.Cells(c, 4)) <> "x" And Trim(.Cells(c, 4)) <> "X") Then
'MsgBox "noch nicht gedruckt!! Tabellenblatt = " & wTBName & " Zeile = " & c
Const MissingValue As Long = -10000000
If IsNumeric(.Cells(c, 3).Value) Then woVorgangsNr = CLng(.Cells(c, 3).Value)
Else
woVorgangsNr = MissingValue
End If
woReklaNr = .Cells(3, 1).Value & .Cells(c, 1).Value
woReklaBetrag = Format(.Cells(c, 2).Value, "0.00")
woVorgangsNr = .Cells(c, 3).Value
woKostentraeger = .Cells(c, 8).Value
woKunde = .Cells(c, 9).Value
woRechnungsNr = .Cells(c, 10).Value
woErstelltDatum = .Cells(c, 11).Value
woRueckgabeDatum = .Cells(c, 12).Value
woFilialeKurz = Filialbezeichnung_ermitteln(wTBName)
Call Word_Dokument_von_Excel_aus_steuern(woFilialeKurz, woReklaNr, woReklaBetrag, woVorgangsNr, woKostentraeger, woKunde, woRechnungsNr, woErstelltDatum, woRueckgabeDatum)
.Cells(c, 4).Value = "X"
ActiveWorkbook.Save
Else
'MsgBox "bereits gedruckt" & .Cells(c, 4) & " Zeile = " & c
End If
'Else
'End If
End With
So schaut es aktuell aus:
Allerdings wenn ich die offenen Reklas drucken will kommt nach gefühlten 5min folgende Meldung:
Das Objekt meldet aich nicht. Möglicherweise ist die Quellanwendung ausgelastet |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|