Einfügen mit Zeilenhöhe u Spaltenbreite

Sub SuperKopieren() Dim rngSource As Range, rngTarget As Range Dim iCounter As Integer Set rngSource = Worksheets("Tabelle1").Range("B4:D9") Set rngTarget = Worksheets("Tabelle2").Range("B5:D10") rngSource.Copy rngTarget For iCounter = 1 To rngSource.Rows.Count rngTarget.Rows(iCounter).RowHeight = _ rngSource.Rows(iCounter).RowHeight Next iCounter For iCounter = 1 To rngSource.Columns.Count rngTarget.Columns(iCounter).ColumnWidth = _ rngSource.Columns(iCounter).ColumnWidth Next iCounter End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kopieren() Dim rngSource As Range, rngTarget As Range Dim iCounter As Integer 'angepasst Set rngSource = Application.InputBox _ ("Kopierbereich auswählen:", Type:=8) Worksheets("Tabelle1").Select Set rngTarget = Application.InputBox _ ("Zielbereich eintragen:", Type:=8) If rngTarget.Cells.Count > 1 Then If rngTarget.Rows.Count rngSource.Rows.Count Or _ rngTarget.Columns.Count _ rngSource.Columns.Count Then Beep MsgBox "Quell- und Zielbereich " & _ "müssen die gleiche Grösse haben!" Exit Sub End If End If rngSource.Copy rngTarget 'mx angepasst For iCounter = 1 To rngSource.Rows.Count rngTarget.Rows(iCounter).RowHeight = _ rngSource.Rows(iCounter).RowHeight Next iCounter For iCounter = 1 To rngSource.Columns.Count rngTarget.Columns(iCounter).ColumnWidth = _ rngSource.Columns(iCounter).ColumnWidth Next iCounter 'mx Anpassung Ende Application.CutCopyMode = False Range("A1").Select End Sub

Guten Tag ralf_b und/oder andere Speziakisten/innen.
Danke nochmal für deine gestrige Hilfe.
Ich kann mit meinem Code NUR in der selben Datei, in anderes Tabellenblatt, den kopierten Bereich einfügen. Das klappt gut.
Leider kann man den kopierten Bereich aber NICHT in eine andere, geöffnete Datei/Tabellenblatt einfügen. Es kommt dann zu einem Fehler und diese Codezeilen sind gelb markiert:

Set rngTarget = Application.InputBox _
("Zielbereich eintragen:", Type:=8)

Frage: Wie kann ich den kopierten Bereich auch in eine andere Datei, Tabellenblatt, einfügen?
Wäre schön, wenn vor dem einfügen eine Abfrage kommt, ob in anderer Datei eingefügt werden soll und wenn ja, dann soll die Möglichkeit gehen. Wenn nein, dann in der aktiven Datei kopiertes einfügen.
Mit der Bitte um entsprechende Möglichkeit im Code zu relaiseren,
grüßt, Dieter(Drummer)
Hier nochmal mein jetziger Code:

'https://www.herber.de/mailing/Ueber_InputBox_festzulegenden_Bereich_kopieren.htm
'Mit Anpassung von mx


Sub SuperKopieren()
Dim rngSource As Range, rngTarget As Range
Dim iCounter As Integer 'angepasst
Set rngSource = Application.InputBox _
("Kopierbereich auswählen:", Type:=8)
Worksheets("Tabelle1").Select
Set rngTarget = Application.InputBox _
("Zielbereich eintragen:", Type:=8)
If rngTarget.Cells.Count > 1 Then
If rngTarget.Rows.Count  rngSource.Rows.Count Or _
rngTarget.Columns.Count  _
rngSource.Columns.Count Then
Beep
MsgBox "Quell- und Zielbereich " & _
"müssen die gleiche Grösse haben!"
Exit Sub
End If
End If
rngSource.Copy rngTarget
'mx angepasst
For iCounter = 1 To rngSource.Rows.Count
rngTarget.Rows(iCounter).RowHeight = _
rngSource.Rows(iCounter).RowHeight
Next iCounter
For iCounter = 1 To rngSource.Columns.Count
rngTarget.Columns(iCounter).ColumnWidth = _
rngSource.Columns(iCounter).ColumnWidth
Next iCounter
'mx Anpassung Ende
Application.CutCopyMode = False
Range("A1").Select
End Sub

Beliebteste Forumthreads (12 Monate)

Einfügen mit Zeilenhöhe u Spaltenbreite

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Einfügen mit Zeilenhöhe u Spaltenbreite

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread