Thema Datum  Von Nutzer Rating
Antwort
Rot Beliebige Zeile markieren und an beliebiger stelle einfügen
04.09.2020 13:15:51 Roland
Solved
04.09.2020 13:17:32 Gast8577
NotSolved
04.09.2020 13:56:33 Mase
NotSolved
04.09.2020 18:23:51 xlKing
NotSolved
04.09.2020 18:45:42 Mase
NotSolved
06.09.2020 12:32:28 Gast66364
NotSolved
06.09.2020 13:14:55 Mase
NotSolved
06.09.2020 14:05:00 Roland
NotSolved
06.09.2020 16:16:09 Mase
NotSolved
06.09.2020 21:32:28 Roland
Solved

Ansicht des Beitrags:
Von:
Roland
Datum:
04.09.2020 13:15:51
Views:
98
Rating: Antwort:
 Nein
Thema:
Beliebige Zeile markieren und an beliebiger stelle einfügen

ich möchte in einem Arbeitsblattt einen Zeile kopieren und dies dann in einem andern beliegigen Bereich einfügen.

Ähnlich der Funktion CTRL+C und dann CTRL +V

Der Anwender soll nach aktivieren des Macros aufgefordert werden: "makieren sie die Quelle mit Mausklick"

und dann "markieren sie das Ziel mit Mausklick"

die einzelnen schritte können so aussehen:

Sub aaa()
    If ActiveCell.Row > 82 Then
        Quelle = ActiveCell.Row
        Quelle = Quelle & ":" & Quelle
    End If
 
End Sub
 
Sub bbb()
    If ActiveCell.Row > 82 Then
        Rows(Quelle).Copy
        Cells(ActiveCell.Row + 1, 3).Activate
        Application.CutCopyMode = False
    End If
End Sub
 
wie kann ich die beiden Schritte in einem Makro abfragen?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Beliebige Zeile markieren und an beliebiger stelle einfügen
04.09.2020 13:15:51 Roland
Solved
04.09.2020 13:17:32 Gast8577
NotSolved
04.09.2020 13:56:33 Mase
NotSolved
04.09.2020 18:23:51 xlKing
NotSolved
04.09.2020 18:45:42 Mase
NotSolved
06.09.2020 12:32:28 Gast66364
NotSolved
06.09.2020 13:14:55 Mase
NotSolved
06.09.2020 14:05:00 Roland
NotSolved
06.09.2020 16:16:09 Mase
NotSolved
06.09.2020 21:32:28 Roland
Solved