ich bin es schon wieder! Ich möchte von einer Datei in eine andere, alle grauen Zellen kopiert haben, dies funktioniert!
Mein Zielblatt soll folgende Funktion besitzen und zwar soll es, wenn mehr Zeilen > ("A19") eingefügt werden, automatisch Zeilen eingeschoben werden!
Habe von Euch ein Spitzenprogramm bekommen, welches separat auch perfekt funktioniert, nur hier in meiner Anwendung zeigt er immer --> LAUFZEITFEHLER 13 , Typen unverträglich!
Hat hier jemand eine Idee, an was es liegen könnte!?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 And Target.Row > 19 Then
If Target.Value <> "" Then --> LAUFZEITFEHLER 13
Rows(Target.Row + 1).Insert
Else
Rows(Target.Row).Delete
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count > 1 Then
MsgBox "Mehfachauswahl ist nicht gestattet.", 48, "Hinweis"
Cells(Target.Row, Target.Column).Select
End If
End Sub
Danke im Voraus
LG Chris