Doppelklick Zelleninhalt kopieren
19.08.2020 13:35:17
speednetz
Ich habe folgendes mit einem Makro, welches ich im Netz gefunden habe.
Das Makro an sich läuft soweit einband frei.
Nun mein Problem:
Es macht mir alle Einträge Im Tabelle1 an die richtige stelle solange ich den Doppelklick In Übersichtstafel in Spalt F mache.
Mache Ich aber denn Doppelklick in Spalte G über nimmt er mir auch erst ab spalte G die Werte.
Kann mir jemand helfen das es so läuft das egal, wo in der Zeile der Doppelklick gemacht wird, immer die Werte ab Zeile F eingetragen werden.
Hier mein Code mit Tabelle
https://www.herber.de/bbs/user/139706.xlsm
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Tabelle1").Range("C20:C21,C22:C24,C30").ClearContents
Sheets("Übersichtstafel").Select
If Intersect(Target, Me.Columns("F:J")) Is Nothing Then Exit Sub
With Worksheets("Tabelle1")
If .Range("C20") = "" Then .Range("C20") = Target.Text: .Range("C21") = Target.Offset(, 1) _
.Text: .Range("C22") = Target.Offset(, 2).Text: _
.Range("C24") = Target.Offset(, 3).Text: .Range("C30") = Target.Offset(, 4).Text:
End With
'MsgBox Target & " wurde eingetragen", vbInformation, "Datenübertrag ..."
Cancel = True
Range("C21").Select
End Sub
Besten Dank schonmal!
speednetz
Anzeige