Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Übernehmen Inhalt in Zelle bei doppelklick

Übernehmen Inhalt in Zelle bei doppelklick
Pit
Hallo zusammen,
könntet Ihr mir helfen. Ich hätte gerne eine Lösung zu folgendem Problem.
In Tabelle 1 Habe ich Alphanumerische Inhalte in den Zellen A2:G8 nun hätte ich es gerne egal in welcher Reihenfolge in diesem bereich ein Doppelklick auf einer der Zellen gemacht wird das der Inhalt der ersten doppelgeklickten Zelle aus Tabelle 1 A2:G8 in Tabelle 2 in A1 übernommen wird. Der Inhalt der als zweites doppelgeklickten Zelle aus Tabelle1 A2:G8 soll in Tabelle 2 in Zelle B1. Doppelklick 3 Dann in A2, dann B2, C1, C2, D1, D2 usw.
Vielen Dank im Vorraus
Pit
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Übernehmen Inhalt in Zelle bei doppelklick
02.08.2012 14:08:39
Rudi
Hallo,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("a2:G8")) Is Nothing Then
Else
With Sheets("Tabelle2")
If Application.CountA(.Columns(1)) = Application.CountA(.Columns(2)) Then
.Cells(Rows.Count, 1).End(xlUp).Offset(1) = Target
Else
.Cells(Rows.Count, 2).End(xlUp).Offset(1) = Target
End If
End With
Cancel = True
End If
End Sub

Gruß
Rudi
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige