AW: Hallo Gregor,..Der VB-Editor,..
23.03.2013 23:15:40
Matze
Hallo Gregor,
na klar sollte das gehen, :
Option Explicit '
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 Then
If Cells(Target.Row, 15) = "x" Then
'Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'Spalte P ausblenden
Columns("P:P").EntireColumn.Hidden = True
'kopiere 7 to 16
Cells(Target.Row, 7).Select
Cells(Target.Row, 7).Copy
'einfügen in 16 Inhalte nur Werte
Cells(Target.Row, 16).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Abbruch kopieren
Application.CutCopyMode = False
'lösche 7
Cells(Target.Row, 7).ClearContents
'ausschneiden 16 und in 7 einfügen
Cells(Target.Row, 16).Cut Destination:=Cells(Target.Row, 7)
'7 format datum, format Center
Cells(Target.Row, 7).NumberFormat = "m/d/yyyy"
Cells(Target.Row, 7).HorizontalAlignment = xlCenter
Cells(Target.Row, 7).VerticalAlignment = xlCenter
'15 Status "erledigt" setzen
Cells(Target.Row, 15).Value = "erledigt"
Cells(Target.Row, 7).Select
'Bildschirmaktualisierung an
Application.ScreenUpdating = True
End If
End If
End Sub
hat denn soweit alles geklappt mit dem einfügen des Codes?
lösch den alten und kopiere den hier neu rein.
Matze