Als erstes ein großes DANKE an onur
Ich bin mit dem Berechnungsblatt fast vertig und konnte mich dank deiner HILFE gut reindenken
Obwohl ich von und mit VBA erst relativ neu bin
Jetzt hab ich eine Neue IDEE die Ich umsetzen möchte
bei Doppelklick soll der Inhalt von einer Zelle eine Zelle Weiterspringen
Das was mein Lösungsansatz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Sheets("Muster_Blatt")
Select Case Target.Address(False, False)
Case "J18"
Range("J18").Copy
.Range("K18").PasteSpecial (xlPasteAll)
Range("J18").Clear
Case "J19"
Range("J19").Copy
.Range("K19").PasteSpecial (xlPasteAll)
Range("J19").Clear
Case "J20"
Range("J20").Copy
.Range("K20").PasteSpecial (xlPasteAll)
Range("J20").Clear
Case "J21"
Range("J21").Copy
.Range("K21").PasteSpecial (xlPasteAll)
Range("J21").Clear
Case "J22"
Range("J22").Copy
.Range("K22").PasteSpecial (xlPasteAll)
Range("J22").Clear
Case "J23"
Range("J23").Copy
.Range("K23").PasteSpecial (xlPasteAll)
Range("J23").Clear
Case "J24"
Range("B24").Copy
.Range("J24").PasteSpecial (xlPasteAll)
Range("J23").Clear
Case "J26"
Range("J26").Copy
.Range("K26").PasteSpecial (xlPasteAll)
Range("J26").Clear
Case "J27"
Range("J27").Copy
.Range("K27").PasteSpecial (xlPasteAll)
Range("J27").Clear
Case "J28"
Range("J28").Copy
.Range("K28").PasteSpecial (xlPasteAll)
Range("J28").Clear
Case "J29"
Range("J29").Copy
.Range("K29").PasteSpecial (xlPasteAll)
Range("J29").Clear
Case "J30"
Range("B30").Copy
.Range("J30").PasteSpecial (xlPasteAll)
Range("J30").Clear
Case "J31"
Range("B31").Copy
.Range("J31").PasteSpecial (xlPasteAll)
Range("J31").Clear
Case "J32"
Range("B32").Copy
.Range("J32").PasteSpecial (xlPasteAll)
Range("J32").Clear
End Select
End With
Application.CutCopyMode = False
End Sub
geht das auch kürzer ?und kann ich das auch wieder als Rückgängig Programmieren ?
Hier mein Beispiel https://www.herber.de/bbs/user/150323.xlsm
Danke an alle die mir noch so SPÄT helfen wollen.