hallo Frankmann,
ich habe gerade erkannt, daß der Weg über eine Ereignisprozedur
Private Sub Worksheet_Change( ByVal target As Range)
quatsch ist. Sie wird nämlich immer gestartet, wenn sich auf dem Blatt etwas ändert. Das ist bei jedem hinzugefügten Wert so - aber auch bei den Kopiervorgängen des Makros selbst. Auch die Verwendung einer "Function" ändert den Sachverhalt nicht!
Es ist wohl am einfachsten, wenn du den Code -aus meinem ersten Vorschlag- an das gewünschte Tabellenblatt anheftest und das Makro dann laufen lässt, nachdem neue Werte hinzugefügt wurden.
hier der code:
Sub kopieren()
Dim i As Integer
i = 1
Do Until (ActiveSheet.Cells(i, 1) = "")
If (ActiveSheet.Cells(i, 2) = "") Then
ActiveSheet.Cells(i, 1).Copy
ActiveSheet.Cells(i, 2).Activate
ActiveSheet.Paste
Else
End If
i = i + 1
Loop
End Sub
Entschuldigung für meinen Fehler.
Gruß, Jörg
|