Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("C:C"), Range("E:E"), Range("G:G"))) Is Nothing Then
Cancel = True
Cells(Target.Row, 1) = Trim$(Replace(Cells(Target.Row, 3) & " " & _
Cells(Target.Row, 5) & " " & Cells(Target.Row, 7), " ", " "))
End If
End Sub
so sollte es funzen ...
Ich hab mal noch eine Meldung eingebaut, sollte die letzte mögliche Zelle in Spalte A schon beschrieben sein.
Ich hoffe es war im Sinne von Kurt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Or Target.Column = 5 Or Target.Column = 7 Then
On Error GoTo SHIT
Application.EnableEvents = False
If IsEmpty([a1]) Then
[a1] = Target.Cells(1)
Else
'Zelle A65535 checken (letzter möglicher Eintrag!)
If IsEmpty(Cells(65535, 1)) Then
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Target.Cells(1)
Else
MsgBox "Überlauf ! die letzte mögliche Zelle in Spalte A ist beschrieben", vbCritical, " _
Abbruch ..."
End If
End If
SHIT:
Application.EnableEvents = True
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen