komplex
29.11.2006 09:35:20
Matthias
ich habe ein komplexeres Problem.
Ich habe eine Liste die ich mittels einer Eingabemaske ausfülle.
Jetzt soll für jede neue Eingabe ein neues Tabellenblatt erstellt werden.
So weit so gut. Ich habe diesbezüglich von Rudi Maintaire folgenden Code bekommen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And _
Target <> "" And _
WorksheetFunction.CountIf(Columns(Target.Column), Target.Value) = 1 Then
Worksheets.Add after:=Target.Parent
ActiveSheet.Name = Target.Value
Target.Parent.Activate
End If
End Sub
Der funktioniert auch einwandfrei.
Nun sollte aber von der Übersichtsseite die Zellen A1:G1 mit ins neuen Blatt kopiert werden und die eingegebenen neuen Werte in die Zellen A2:G2 geschrieben werden.
Ich danke euch schon jetzt für die Rettung meines Kopfes.
lg Matthias