Office: Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden

Homer2302 · 12. Oktober 2010

Hallo zusammen

Ich habe folgendes Problem.
Ich sitze hier und weis im Moment nicht mehr weiter.
Also ich möchte denn Zellen Inhalt in einer Excel Tabelle verschieben (Selection.cut)

Bsp: Inhalt von A1 soll nach Z4 verschoben werden

Aber ich möchte keine fixe Zelle, sondern ich möchte die Ziel Zelle flexibel lassen mit einer Application.InputBox

Wenn ich das Makro mit Selection.Copy laufen lasse läuft es ohne Probleme aber sobald ich Selection.Cut daraus mache kommt die Fehlermeldung (siehe Thread Titel) *frown.gif*

Das Makro soll Anlaufen bei Links oder Rechts klick
Momentan habe ich es auf Rechtsklick laufen

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim rngZelle As Range
'Dim rng As Range

Dim MarkierterBereich As String
MarkierterBereich = ActiveCell.CurrentRegion.Address
If Target = ActiveCell Then

If MsgBox("Sollen die Daten verschoben werden?", vbYesNoCancel) = vbYes Then

'Selection.Copy

'For Each rng In Selection
' msgbox rng.address
' Next

Set rngZelle = Application.InputBox("Wähle bitte die Eingabe Zelle", Type:=8)
Selection.Cut
MsgBox rngZelle(1).Address

rngZelle.PasteSpecial

Else
MsgBox "pause, warum auch immer"

End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich bitte um Hilfe

und vielen Dank voraus *wink.gif*

:)

Backowe · 14. Oktober 2010

Hi,

probiere es mal so:

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rngZelle As Variant
If MsgBox("Sollen die Daten verschoben werden?", vbYesNoCancel) = vbYes Then
rngZelle = InputBox("Wähle bitte die Eingabe Zelle", "Zelleingabe")
Selection.Cut
ActiveSheet.Paste Destination:=Range("" & rngZelle & "")
Application.CutCopyMode = False
Else
MsgBox "pause, warum auch immer"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Homer2302 · 14. Oktober 2010

Erstmal Danke für die schnelle Antwort

Des Makro läuft was so wie ich es mir vorgestellt habe *Smilie

Gibt es eine Möglichkeit für die Eingabe in der InputBox, dass man die Ziel Zelle per Maus wählen kann?

Da die Inhalte der Zellen hin und her springen wie auf einem Schachbrett, da wäre es gut wenn man nicht die Zellen Tippen muss.

Backowe · 14. Oktober 2010

Hi,

per Inputbox geht das nach meinem Wissen nicht.

IngGi · 14. Oktober 2010

Hallo Homer2302,

nimm die InputBox aus deinem eigenen Makro, also vorne mit Application und hinten mit Type:=8.

Gruß Ingolf

Homer2302 · 14. Oktober 2010

Hallo Ingolf

Wenn ich die zeile so Erweitere

rngZelle = Application.InputBox("Wähle bitte die Eingabe Zelle", "Zelleingabe", Type:=8)

Dann kommt die Meldung,

Die Methode 'Range' für das Objekt'_Worksheet' ist fehlgeschlagen

IngGi · 14. Oktober 2010

Hallo Homer2302,

so sollte es funktionieren:

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rngZelle As Range
If MsgBox("Sollen die Daten verschoben werden?", vbYesNoCancel) = vbYes Then
Set rngZelle = Application.InputBox(Prompt:="Wähle bitte die Eingabe Zelle", Title:="Zelleingabe", Type:=8)
Selection.Cut
ActiveSheet.Paste Destination:=rngZelle
Application.CutCopyMode = False
Else
MsgBox "pause, warum auch immer"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

Homer2302 · 14. Oktober 2010

Hallo Ingolf

Das klappt wunderbar, vielen Dank an Alle!

Office: Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden

Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden

Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden

Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden

Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden

Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden - Similar Threads - PasteSpecial Methode Range

Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".

PasteSpecial mit Selection.Insert verbinden

Bewährte Methoden zum Einrichten und Ausführen einer Teams-Besprechung oder eines ...

Bewährte Methoden für Outlook: Schreiben von tollen e-Mails

Laufzeitfehler '-2147221040(800401d0)' Die Methode 'Copy'...

PasteSpecial

Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen