Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zeilen: Copy and Paste mit Dialog

zeilen: Copy and Paste mit Dialog
01.11.2013 12:33:26
Andi
Hallo,
vielleicht kann mir jemand bitte bei folgendem Problem helfen ... Tipps geben:
Ich möchte in einem Berichtsblatt vier zeilen kopieren und der User soll via Dialog entscheiden, wo diese hinkopiert werden sollen.
Das Blatt hat viele aufeinanderfolgende Bereichtszeilen (immer 4 zusammen), die sehr umfangreich sind, versch. Matrixformeln enthalten und auch gruppierte Zellen. Kopiert werden müssen also Inhalte, Formate, Formeln usw ...
Ich bekomme es nicht hin, dass der Inhalt der Variablen an diese Stelle geschrieben wird?
Der Code:
  • 
Sub Copy_and_Paste()
' kopiert die ersten 4 Berichtszeilen
Dim rngCopy As Variant
Range("A10:KG13").Select
rngCopy = Selection
' Benutzdialog für Zielbereich
Dim rngZiel As Range
Set rngZiel = Application.InputBox _
(prompt:="Markiere den Zielbereich", Type:=8)
rngZiel.Select
'Kopierte Zeilen einfügen
rngCopy.Insert Shift:=xlDown ' Problem?!?!
Application.CutCopyMode = False
End Sub

    • 8
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: zeilen: Copy and Paste mit Dialog
    01.11.2013 12:46:40
    Andi
    Nachtrag:
    Mit dem MakroRec. funktioniert es und sieht folgendermaßen aus... Es fehlt nur der Dialog, um die Zieladresse bestimmen zu lassen:
  • 
Sub Makro1()
Rows("10:13").Select
Range("B10").Activate
Selection.Copy
Rows("30:30").Select
Range("B30").Activate
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

    • AW: zeilen: Copy and Paste mit Dialog
    01.11.2013 14:32:35
    fcs
    Hallo Andi,
    zum Kopieren muss das Makro etwa wie folgt aussehen.
    Dabei kann man die Einfügezeile auch vor dem Makrostart auswählen und muss nur per OK das Einfügen bestätigen.
    mfg
    Franz
    Sub Copy_and_Paste()
' kopiert die ersten 4 Berichtszeilen
Dim rngZiel As Range, rngCopy As Range
On Error GoTo Beenden 'wenn Auswahl abgebrochen wird
Set rngCopy = Range("A10:KG13")
' Benutzdialog für Zielbereich
Set rngZiel = Application.InputBox _
(prompt:="Markiere den Zielbereich (Zelle oberhalb der eingefügt werden soll)", _
Default:=ActiveCell.Address, _
Title:="Bereich " & rngCopy.Address & " kopieren und einfügen", Type:=8)
rngZiel.Select
'Zeilen kopieren und einfügen
rngCopy.Copy
ActiveSheet.Cells(rngZiel.Row, rngCopy.Column).Insert Shift:=xlDown
Application.CutCopyMode = False
Beenden:
End Sub

    Anzeige
    AW: zeilen: Copy and Paste mit Dialog
    04.11.2013 08:29:47
    Andi
    Hallo Franz,
    Super!
    Danke für die Lösung.
    Genau so - sollte es sein!
    Gruß zurück
    Andi

    AW: zeilen: Copy and Paste mit Dialog
    04.11.2013 08:29:59
    Andi
    Hallo Franz,
    Super!
    Danke für die Lösung.
    Genau so - sollte es sein!
    Gruß zurück
    Andi

    AW: zeilen: Copy and Paste mit Dialog
    05.11.2013 12:52:08
    Andi
    Nochmal Hallo,
    kann man dafür Sorge tragen, dass die Variable "rngZiel" aus einem bestimmten Bereich in Spalte A kommt?
    Sie darf nur folgenden Inhalt haben:
    von A14 ... A18 ... A22 (also jeweils +4) bis A66
    Muss auch das mit einer Schleife belegt werden?
    DANKE ....

    AW: zeilen: Copy and Paste mit Dialog
    05.11.2013 14:52:49
    fcs
    Hallo Andi,
    hier dein Makro mit Prüfung der selektierten Zeile.
    Für den Defaultwert wird im Dialogfenster wird jetzt die nächstgelegene korrekte Zelle in Spalte A angezeigt.
    mfg
    Franz
    Sub Copy_and_Paste()
' kopiert die ersten 4 Berichtszeilen
Dim rngZiel As Range, rngCopy As Range, strMsgTxt As String
On Error GoTo Beenden 'wenn Auswahl abgebrochen wird
Set rngCopy = Range("A10:KG13")
' Benutzdialog für Zielbereich
Zellauswahl:
Set rngZiel = Cells(ActiveCell.Row, 1)
'ggf. korrekte Zielzelle ober-/unterhalb der aktiven/selektierten Zelle als _
Defaultwert für Auswahldialog ermitteln
Select Case rngZiel.Row
Case Is  66
Set rngZiel = Range("A66")
Case Else
Select Case (rngZiel.Row - 13) Mod 4
Case 1 'korrekte Zeile vorgewählt
Case 0: Set rngZiel = rngZiel.Offset(1, 0)
Case 2: Set rngZiel = rngZiel.Offset(-1, 0)
Case 3: Set rngZiel = rngZiel.Offset(2, 0)
End Select
End Select
'Auswahldialog anzeigen
Set rngZiel = Application.InputBox _
(prompt:=strMsgTxt & "Markiere den Zielbereich (Zelle A14, A18, A22, ... , " _
& "A62, A66) oberhalb dem eingefügt werden soll", _
Default:=rngZiel.Address, _
Title:="Bereich " & rngCopy.Address & " kopieren und einfügen", Type:=8)
rngZiel.Select
'Zeile der selektierten Zelle prüfen
Select Case rngZiel.Row
Case Is  66
strMsgTxt = "Selektierte Zelle liegt außerhalb der Zeilen 14 bis 66!" & vbLf
GoTo Zellauswahl
Case Else
If (rngZiel.Row - 13) Mod 4 = 1 Then
'Zeilen kopieren und einfügen
rngCopy.Copy
ActiveSheet.Cells(rngZiel.Row, rngCopy.Column).Insert Shift:=xlDown
Application.CutCopyMode = False
Else
strMsgTxt = "Es wurde eine Zelle in einer unzulässigen Zeile gewählt!" & vbLf
GoTo Zellauswahl
End If
End Select
Beenden:
End Sub

    Anzeige
    DANKE! : Copy and Paste mit Dialog
    06.11.2013 09:56:30
    Andi
    Hallo Franz,
    wiederholt ein DANKEschön für die Lösung. Läuft einwandfrei!
    Gruß Andi

    AW: zeilen: Copy and Paste mit Dialog
    05.11.2013 14:39:30
    Andi
    Nochmal Hallo,
    kann man dafür Sorge tragen, dass die Variable "rngZiel" aus einem bestimmten Bereich in Spalte A kommt?
    Sie darf nur folgenden Inhalt haben:
    von A14 ... A18 ... A22 (also jeweils +4) bis A66
    Muss auch das mit einer Schleife belegt werden?
    DANKE ....

    304 Forumthreads zu ähnlichen Themen

    ribbons ausschalten, copy and paste verhindern
    manfred

    Mit
    enable control 21, false 'cut
    enable control 19, false 'copy
    enable control 22, false 'pste
    enabel control 755, flase 'paste special
    konnte ich bislang cut, copy und paste in der Menueleiste abschalten
    mit
    commandbars ("ToolBar List").enabled = false
    das...
    23.08.2010 10:57:26
    Thread-ID: 1173683
    2 Beiträge
    Anzeige
    Copy and Paste in Tabelle mit VBA erkennen
    Helmut

    Hallo,
    kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
    Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
    Danke im Voraus
    H...
    21.03.2011 15:17:35
    Thread-ID: 1206677
    7 Beiträge
    copy and paste
    ptonka

    Hallo zusammen,
    ich habe im Rahmen eines größeren Makros u.a. einen einfachen copy and paste - Befehl eines kompletten Blattes (Blattname: "Legende").
    Dieses Blatt enthält in einigen Zellen Textpassagen, die mehrfach mit Zeilenumbruch versehen sind, so das z.B. 15 Zeieln enthalten sind....
    15.04.2011 16:44:11
    Thread-ID: 1210638
    8 Beiträge
    Anzeige
    Markierten Bereich aus Excel in Word einfügen
    Peter

    Hallo liebes Forum,
    ich möchte einen zusammenhängenden markierten Bereich aus Excel per Makro in ein existierendes Worddokument einfügen.
    Einzelne Teile habe ich mir per Makrorekorder oder aus Archiv zusammengbastelt:
    Selection.Copy
    Pfad = ThisWorkbook.Path & "\Dokument1.doc...
    18.11.2011 19:43:13
    Thread-ID: 1238451
    3 Beiträge
    Tabelle in word einfügen
    Carle

    Ahoi!
    Ich möchte eine Excel-Tabelle in ein Word-Dok einfügen. Dabei ging ich zuletzt wie folgt vor: Excel-Bereich markieren, kopieren, Wechsel in Word-Dok, Bearbeiten, Inhalte einfügen, Option Verknüpfung einfügen, MS Office Excel-Arbeitsblatt-Objekt, ok. Es erscheint jedoch nur ein grauer...
    31.01.2012 14:19:35
    Thread-ID: 1248650
    2 Beiträge
    Excel Tabelle in Word einfügen, Laufzeitfehler 594
    Stephan

    Hallo zusammen,
    ich habe via VBA in Excel eine Tabelle kopiert und versuche, diese mit der VBA-Anweisung in Word:
    Selection.PasteExcelTable False, False, False
    in ein Worddokument zu integrieren. Allerdings wird gar nix eingefügt. Wollte gern die Formatierungen aus Excel beibehalten...
    18.01.2013 10:43:54
    Thread-ID: 1294916
    3 Beiträge
    Excel-Tabelle 2007 in Word 2007 einfügen
    Carle

    Liebe Sachverständige!
    Ich kämpfe mal wieder mit dem im Betreff genannten Problem. Ich habe hier ein Buch zu word 2007, auch das Internet und speziell diese Forum habe ich schon bemüht.
    Wenn ich in Word über Einfügen/Objekt/Aus Datei erstellen eine kleine Tabelle aus Excel in mein Word-...
    21.01.2013 15:34:47
    Thread-ID: 1295233
    2 Beiträge
    Exceltabellen in Worddokument einfügen
    Stefan

    Hallo zusammen,
    für unser mtl. Reporting muss ich Worddokumente mit Exceltabellen befüllen.
    Aktuell funktioniert dies über Verknüpfungen. Diese machen mir allerdings v.a. bei den großen Dokumenten immer wieder Probleme (Öffnen dauert sehr lange, teiweise wird keine VK gefunden und muss...
    15.02.2013 08:49:12
    Thread-ID: 1299424
    5 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    InputBox

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    1
    3
    6
    7
    3
    2
    1
    2
    1
    4
    9
    4
    1
    1
    4
    4
    1
    7
    1
    1
    1
    1
    7
    4
    8