Probleme mit Code´s
07.09.2017 18:25:51
Guesa
Zwei Fragen an Euch
Folgendes: Nachfolgenden Code habe ich hier gefunden. Dieser müsste in soweit geändert werden, dass nur Werte eingefügt werden. Ich weiß das dies mit pastspezial funktioniert aber ich weiß nicht wo ich diesen Befehl hier einbauen muss. Wäre nett wenn Ihr mir den einfügen würdet.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer, iRowL As Integer
If Target.Column 7 Then Exit Sub 'Hier wenn Spalte G größer nichts ist
If IsEmpty(Target) Then Exit Sub
iRow = Target.Row
With Worksheets("Tabelle2")
If IsEmpty(.Range("A1")) Then
iRowL = 1
Else
iRowL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Range(Cells(iRow, 1), Cells(iRow, 10)).Copy .Cells(iRowL, 1)
'.Columns.AutoFit
End With
End Sub
Zweite Frage. Folgenden Code habe ich gestern vom Gerd bekommen, funktioniert ja auch, nur manche Kollegen haben irgendwie Schwierigkeiten mit dem doppel klick oder auch der rechten Maus. Würde dies auch über ein normales Makro funktionieren den man dann über eine Tastenkombination startet; wenn ja Wie?Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Row > 1 Then Target.Value = Target.Offset(-1, 0).Value
End Sub
Für Eure Mühe schon mal ein recht herzliches Danke schönGruß, Guesa