es funkt nicht richtig es führt zwar das MAcro korrekt aus aber es kommt Laufzeitfehler 13 "Typen unverträglich"
gruss geri
falls du es mal sehen möchtest kann ich dir File zusenden
PS.; wegen länge ist klar aber ich benötige höchstens 12 Seiten
zeile = Target.Row
If Int((zeile - 1) / 48) = (zeile - 1) / 48 And _
LCase(Target.Text) = "yes" Then Call page_2(zeile)
End Sub
das einfügen-makro (für alles):
Sub page_2(zeile)
'
Sheets("Blanko für Copy").Select
Range("A5:I52").Select
Selection.Copy
Sheets("Arbeit").Select
Cells(zeile + 4, 1).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Cells(zeile + 50, 1).Select
Selection.RowHeight = 18.75
Cells(zeile + 52, 1).Select
End Sub
am anfang des einfügen-makro musst du zeile prüfen und wenn grösser xxxxx dann arbeit umbenennen in arbeit_alt ?? und neues blatt mit name arbeit ??
gruss andre
für Lvira falls Interesse:
von Samstag Abend das Problem --> und die Lösung
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "I49" And _
LCase(Target.Text) = "yes" Then Call page_2
If Target.Address(False, False) = "I97" And _
LCase(Target.Text) = "yes" Then Call page_3
If Target.Address(False, False) = "I145" And _
LCase(Target.Text) = "yes" Then Call page_4
If Target.Address(False, False) = "I193" And _
LCase(Target.Text) = "yes" Then Call page_5
End Sub
aber auch Dir vielen DAnk für die Bemühungen
gruss geri