|
| |

Visual-Basic Einsteiger| Re: 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! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 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
|
|