Wert vohanden? dann woanders eintragen.
07.04.2008 12:50:00
mtremer
ich habe mir schon durch Eure Hilfe einen Code zusammengebastelt, der grundsätzlich Werte aus der Zwischenablage in der untersten freien Zeile eingügt. Wenn jedoch die erste Seite voll ist (hier Zeile 28), soll erst in Zeile 30 eingefügt werden und die Überschrift von Zeile 14 in 29 (erste Zeile auf Seite 2) kopiert werden.
Hier der Code dazu:
Range("A65536").End(xlUp).Offset(1, 0).Select
Teil 1
If Application.WorksheetFunction.CountA(Rows(28)) > 0 Then
Range("A30").Select
If Application.WorksheetFunction.CountA(Rows(30)) > 0 Then
Range("A65536").End(xlUp).Offset(1, 0).Select
End If
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
If Application.WorksheetFunction.CountA(Rows(31)) > 0 Then
Exit Sub
Else
If Application.WorksheetFunction.CountA(Rows(30)) > 0 Then
Range("A14:M14").Copy
Range("A29").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End If
Nun soll das gleiche mit der zweiten Zeile gemacht werden. Nach der letzten Zeile der zweiten Seite (Zeile 52), soll der Zwischenspeicher in Zelle 54 eingefügt werden. Dann muß noch die Überschrift aus 14 in 53 (erste Zeile Seite 3) eingefügt werden.
Ich verzweiefele bei der Verschachtelung der ganzen Ifs. Könnt Ihr mir bei der Ausarbeitung dieses Codes helfen?
Danke.
Viele Grüße
Marco