folgendes Problem sollte mit einer kleinen VBA- Prozedur gelöst werden:
im Tabellenblatt 1 sollen die Daten der Zellen in einer bestimmten Zeile ( in einer bestimmten Zelle dieser Zeile wird ein "x" reingeschrieben; "x" ruft dann die Prozedur auf )in Tabellenblatt 2 VERSCHOBEN werden. ( die Inhalte in der Zeile von Tabellenblatt 1 sind danach leer; Nummer der Quellzeile=Nummer der Zielzeile )
von Martin Beck habe ich eine folgende Super Lösung erhalten ( Danke Übrigens!! ):
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo errorhandler
If Target.Column = 5 And Target.Value = "x" Then
z = Target.Row
Rows(z).Copy Destination:=Worksheets("Tabelle3").Cells(z, 1)
Rows(z).ClearContents
End If
errorhandler:
End Sub
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
ein kleines Problem noch: wie muss man die Prozedur erweitern, damit die Formate der Zielzeile/Zielzellen ( Text, Zellfarbe etc. ) nach dem Verschieben der Daten erhalten bleiben,
und wie kann man es erreichen, dass man nur bestimmte Zellinhalte verschiebt ( z. bsp. die Inhalte von bestimmten Zellen )?
vielen Dank im voraus von jenem, der von VBA- Programmierung praktisch keine Ahnung hat!!