Werte aus unterschiedlichen Spalten einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Copy_Selection_BC_J_Z_to_AB_K_M() Dim wksZiel As Worksheet Dim rngSelection As Range, rngArea Dim iCount As Integer Dim arrZiel Dim rowZiel As Long, rngZiel As Range On Error GoTo Beenden Set wksZiel = Worksheets(2) 'Worksheets("Tabelle2") Set rngSelection = Application.Intersect(Selection.EntireRow, Range("B:C,J:J,Z:Z")) arrZiel = Array("A", "K", "M") wksZiel.Activate Set rngZiel = Application.InputBox("Bitte Zelle in Einfügezeile auswählen", "Kopieren _ Spezial", ActiveCell.Address, Type:=8) rowZiel = rngZiel.Row For Each rngArea In rngSelection.Areas rngArea.Copy wksZiel.Range(arrZiel(iCount) & rowZiel) iCount = iCount + 1 Next Range("A" & rowZiel).Select Beenden: End Sub

Hallo,
vielleicht kannst du damit schon mal etwas anfangen.
Das Problem ist bei dir, dass du die Zeile nicht komplett kopierst und die Zielzellen am Ende auch noch andere werden sollen. Zudem verschiebt sich der Abstand der letzten Spalte auch noch.
Macht die Sache an sich halt schwieriger.
Vielleicht findet jemand noch eine passende Lösung, ich bin dazu leider nicht in der Lage, wie ich feststellen musste.
Ich habe versucht, das über Inputboxen zu lösen, so dass man also in Tabelle 1 die Zeilennummer angibt, die man kopieren will und in Tabelle 2 die Nummer, in welche das ganze eingefügt werden soll.
So als Anstoß vielleicht.
Jedenfalls, folgender Code fragt dich via Inputbox nach der Zeilennummer (ich habe in Spalte A eine Hilfsspalte eingefügt, wo ich einfach die Nummerierung eingefügt habe, Spalte A wird im Code durchsucht.)

Private Sub Worksheet_Activate()
'Sucht die laufende Nummer und überträgt die Kundendaten in das Blatt "Bericht"
Dim Eingabe As String
Dim Suche As Range
Dim Quelle As Worksheet, Ziel As Worksheet
Dim zelleE
Set Quelle = Sheets("Tabelle1")
Set Ziel = Sheets("Tabelle2")
Eingabe = InputBox("Bitte die gewünschte Lfd. Nr. eingeben", "Befunddatenblatt bearbeiten")
Set Suche = Quelle.Range("A1:A10000").Find(what:=Eingabe, LookIn:=xlValues, lookat:=xlWhole) _
If Not Suche Is Nothing Then
With Ziel
.Range("A1") = Quelle.Cells(Suche.Row, "B")
.Range("B1") = Quelle.Cells(Suche.Row, "C")
.Range("K1") = Quelle.Cells(Suche.Row, "J")
.Range("M1") = Quelle.Cells(Suche.Row, "Z")
End With
Else
MsgBox "Es wurde kein Treffer gefunden"
End If
End Sub

Ist wie gesagt alles nur ein Ansatz bzw. Gedankenanstoß für dich.
Ach ja...Derzeit wird eine Zeile in tabelle2 Zeile 1 eingefügt und diese wird jedes Mal überschrieben, leider schaffe ich es auch nicht so recht, dass wenigstens immer die nächste freie Zeile genommen wird.
Gruß Pierre
PS: Den Code habe ich in der Grundform von folgender Seite: https://www.ms-office-forum.net/forum/showthread.php?t=360490

Erstmal vielen Dank euch beiden.
Ok das ist dann doch komplexer als ich zu beginn dachte. Wollte das wirklich nur mit copy/paste lösen ohne Inputboxen usw.
Dann ist es wohl doch besser das ganze gleich mit einer direkten Verknüpfung zu machen und per Button ein File mit den benötigten werten zu erstellen.
Der Grundgedanke war das ich eine Werkzeugdatenbank habe wo pro Zeile von A:P Informationen für jedes Werkzeug stehen. Ich möchte dann einen Leihbeleg für diverse Werkzeuge drucken. benötige aber im Leihbeleg nur die Infos aus B:C,J:J,Z:Z und diese müssen in A:B,K:K,M:M im anderen File eingetragen werden. die erste Zeile im neuen File ist immer 17.
Jetzt wäre halt interessant wenn man mehrere Werkzeuge in einen Leihbeleg übertragen möchte ob man dies über Checkboxen oder Inputboxen löst. Man müsste dann halt immer die erste freie Zeile wählen.
Ich werde mich mal auf die Suche begeben ob ich hier und da Codeschnipsel finden werde.
Trotzdem vielen Dank dafür. LG

Beliebteste Forumthreads (12 Monate)

Werte aus unterschiedlichen Spalten einfügen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus unterschiedlichen Spalten einfügen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread