Fehler im Macro...... WO?
03.10.2005 15:52:40
Thomas
Also ich versuch es noch einmal.....
Folgendes Macro habe ich:
<pre>
Sub Erfassung_Rechnung_speichern()
Rem Makro 02-10-05 Sichern von Erfassung
Dim ZeileA As Long
Dim ZeileB As Long
Dim ZeileC As Long
Dim ZeileD As Long
Dim ZeileE As Long
Dim ZeileF As Long
Dim ZeileG As Long
Dim ZeileH As Long
Dim ZeileI As Long
Dim ZeileJ As Long
Dim ZeileK As Long
Dim ZeileL As Long
Dim ZeileM As Long
Dim ZeileN As Long
Dim ZeileO As Long
Dim ZeileP As Long
Dim ZeileQ As Long
Dim ZeileR As Long
Dim ZeileS As Long
Dim ZeileT As Long
Dim ZeileU As Long
Dim ZeileV As Long
Dim ZeileW As Long
Dim ZeileX As Long
Dim ZeileY As Long
Dim ZeileZ As Long
Dim ZeileAA As Long
Application.ScreenUpdating = False
Rem Anreisedatum aus B3 nach Spalte A in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(3, 2).Copy
ZeileA = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("A65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileA, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Abreisedatum aus B4 nach Spalte B in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(4, 2).Copy
ZeileB = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("B65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileB, 2).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Erwachsener 12,00 aus B5 nach Spalte C in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(5, 2).Copy
ZeileC = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("C65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileC, 3).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Erwachsener 13,00 aus B6 nach Spalte D in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(6, 2).Copy
ZeileD = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("A65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileD, 4).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Erwachsener 15,00 aus B7 nach Spalte E in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(7, 2).Copy
ZeileE = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("E65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileE, 5).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Kind aus B8 nach Spalte F in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(8, 2).Copy
ZeileF = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("F65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileF, 6).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Preis für das Kind aus C8 nach Spalte G in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(8, 3).Copy
ZeileG = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("G65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileG, 7).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Frühstück aus B9 nach Spalte H in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(9, 2).Copy
ZeileH = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("H65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileH, 8).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Endreinigung aus B10 nach Spalte I in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(10, 2).Copy
ZeileI = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("I65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileI, 9).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Bier aus B11 nach Spalte J in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(11, 2).Copy
ZeileJ = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("J65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileJ, 10).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Mineralwasser aus B12 nach Spalte K in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(12, 2).Copy
ZeileK = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("K65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileK, 11).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Frische Tageseier aus B13 nach Spalte L in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(13, 2).Copy
ZeileL = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("L65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileL, 12).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Telefoneinheit aus B14 nach Spalte M in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(14, 2).Copy
ZeileM = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("M65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileM, 13).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem internet aus B15 nach Spalte N in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(15, 2).Copy
ZeileN = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("N65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileN, 14).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Rabatt aus C16 nach Spalte O in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(16, 3).Copy
ZeileO = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("O65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileO, 15).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Sonstiges aus B17 nach Spalte P in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(17, 2).Copy
ZeileP = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("P65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileP, 16).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Preis Sonstiges aus C17 nach Spalte Q in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(17, 3).Copy
ZeileQ = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("Q65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileQ, 17).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Name aus B18 nach Spalte R in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(18, 2).Copy
ZeileR = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("R65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileR, 18).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Vorname aus B19 nach Spalte S in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(19, 2).Copy
ZeileS = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("S65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileS, 19).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Anrede aus B20 nach Spalte T in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(20, 2).Copy
ZeileT = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("T65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileT, 20).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Firma aus B21 nach Spalte U in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(21, 2).Copy
ZeileU = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("U65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileU, 21).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Straße/Hausn. aus B22 nach Spalte V in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(22, 2).Copy
ZeileV = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("V65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileV, 22).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem PLZ aus B23 nach Spalte W in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(23, 2).Copy
ZeileW = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("W65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileW, 23).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Ort aus B24 nach Spalte X in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(24, 2).Copy
ZeileX = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("X65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileX, 24).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem E-Mail aus B25 nach Spalte Y in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(25, 2).Copy
ZeileY = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("Y65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileY, 25).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Bemerkung aus B26 nach Spalte Z in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Erfassung").Cells(26, 2).Copy
ZeileZ = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("Z65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileZ, 26).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rem Rechnungsnummer aus B3 nach Spalte AA in Archiv
Workbooks("Vati-Rechnung.xls").Sheets("Rechnung").Cells(22, 3).Copy
ZeileAA = Workbooks("Vati-Rechnung.xls").Sheets("Archiv"). _
Range("AA65536").End(xlUp).Offset(1, 0).Row
Workbooks("Vati-Rechnung.xls").Sheets("Archiv").Cells(ZeileAA, 27).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub</pre>
Fehler an der Geschichte:
Jedes Feld wo keine Eingabe gemacht wurde, wird auch nicht gespeichert. Somit entsteht eine dauerhafte Lücke im Archiv. Wie erreiche ich es nun, dass sich das Macro beim kopieren in die Archiv-Tabelle nur an einem Feld orientiert und dies dann für alle Copys bezieht?
Gruß,
Thomas