Kopieren nur von Werten
20.02.2004 16:39:02
Joerg
leider habe ich gleich mehrere Probleme mit dem unteren Makro. Es dient zum löschen von Zellen, wenn ich eine bestimmte Zelle anklicke.
Jetzt kommt das erste Problem: Nun möchte ich aber, das diese Zellen vor dem löschen in die Tabelle2 kopiert werden, und zwar nur die Werte.(Eine der Zellen wird durch eine Formel berechnet und beim kopieren erhalte ich nur Nonsens Werte).
Das zweite Problem: Die kopierten Werte sollen in das nächste freie Feld der Spalte B in Tabelle 2 kopiert werden.
Danke für Eure Hilfe !!
Joerg
Private Sub Worksheet_SelectionChange(ByVal target As Range)
'Makro für Löschen von Zellen
Dim Antwort As String
If target.Column = 1 Then
Antwort = MsgBox((Cells(target.Row, 3)) & " wirklich löschen?", vbYesNo + vbQuestion)
If Antwort = vbYes Then
ActiveSheet.Unprotect "super"
Range(Cells(target.Row, 3), Cells(target.Row, 8)).Select
Selection.Copy
Sheets("Tabelle2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
' Range("B4").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range(Cells(target.Row, 3), Cells(target.Row, 7)).ClearContents
' ActiveSheet.Protect Password:="super", DrawingObjects:=True, Contents:=True, Scenarios:=True
' ActiveWorkbook.Save
Range("G15").Select
Range("C15").Select
End If
End If
End Sub