Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile in andere Tabelle kopieren

Forumthread: Zeile in andere Tabelle kopieren

Zeile in andere Tabelle kopieren
30.12.2022 12:03:32
Kurt
Guten Morgen
ich möchte gern eine Zeile in eine andere Sheet kopieren.
Bereich: von B2-K ende der Tabelle soll durch Spalte "B" ermittelt werden.
Name Tabelle: "Bestand"
Name neue Tabelle: "Information"
Wenn ich also in B12 stehe, soll die Zeile B12 - K12 in die Tabelle "Information" in A5 bis A15 kopiert werden.
Das klappt allerdings auch nicht, hatte ich gegoogelt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:K65000")) Is Nothing Then
Cancel = True
MsgBox "jetzt kopieren"
End If
End Sub
gruß kurt
Anzeige

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile in andere Tabelle kopieren
30.12.2022 12:06:23
kurt
Das klappt jetzt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Application.EnableEvents = True
If Not Intersect(Target, Range("B2:K65000")) Is Nothing Then
Cancel = True
MsgBox "jetzt kopieren"
End If
End Sub
gr kurt
Anzeige
AW: dann ist der thread auch nicht mehr offen owT
30.12.2022 12:10:45
neopa
Gruß Werner
.. , - ...
AW: Zeile in andere Tabelle kopieren
30.12.2022 12:14:06
ChrisL
Hi
Speziell deine Lösung. Ich hätte es so gemacht:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:K65000")) Is Nothing Then
Cancel = True
Worksheets("Information").Range("A5:A14") = Application.Transpose(Range(Cells(Target.Row, 2), Cells(Target.Row, 11)).Value)
End If
End Sub
cu
Chris
Anzeige
Super, danke ! -)
30.12.2022 13:05:02
kurt
Danke Chris, einwandfrei !
Guten rutsch und ein gesundes neues Jahr ! Natürlich an Alle.
gr kurt
Hallo Chris, kleine Nachfrage
30.12.2022 14:00:06
kurt
Hallo Chris,
klappt alles !
Kleine Nachfrage:
Wie muss die Zeile im normalen Makro sein,
so klappt es nicht:

Private Sub Zeile_kopieren()
Worksheets("Information").Range("b5:b13") = Application.Transpose(Range(Cells(ActiveSheet.Row, 2), Cells(ActiveSheet.Row, 10)).Value)
End Sub
gr kurt
Anzeige
AW: Hallo Chris, kleine Nachfrage
30.12.2022 14:13:57
ChrisL
Hi Kurt
so...

Sub Zeile_kopieren()
Worksheets("Information").Range("B5:B13") = Application.Transpose(Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)).Value)
End Sub
cu
Chris
Passt, Danke ! -)
30.12.2022 14:38:07
kurt
Nachfrage
30.12.2022 18:56:13
kurt
Guten Abend,
ich habe aus einer anderen Grunddatei meine Datei geöffnet.
Nun möchte ich die Zeile selektierte Zeile aus der geöffneten Datei in die Grunddatei kopieren.
Habe diese zusammengesetzt:
wb.Worksheets(ze).Range("K12:K20") = ActiveSheet.Transpose(Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)).Value)
Der Dateiname=wb und Tabellenname= ze stimmen, beim Durchlauf mit F8
Mit KD habe ich vorher die Datei benannt aus der ich kopiere.
Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht
Was habe ich "Holzkopf" den Falsch gemacht.
gr kurt
Anzeige
AW: Nachfrage
30.12.2022 19:02:07
kurt
Sorry,
hier die Zeile:
wb.Worksheets(ze).Range("K12:K20") = ActiveSheet.Application.Transpose(Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)).Value)
gr kurt
AW: Nachfrage
30.12.2022 20:45:26
wb.Worksheets(ze).Range(K12:K20)
oder so 

wb.Worksheets(ze).Range("K12:K20") = Application.Transpose(Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)))

Anzeige
Hier mal das Makro
30.12.2022 21:40:34
kurt
Hallo,
In der Datei "Rg_Vorlage_kopieren.xlsm" , starte ich mittels Button
die "KD_Adressen.xlsm" hier wird das Makro mittels Button ausgeführt.
anbei mal das Makro:

Private Sub Rg_Vorlage_kopieren()
Dim wb As Workbook
Dim b As Boolean
Dim i
For Each wb In Application.Workbooks
If wb.name Like "__Rg_Vorlage_kopiere.xlsm" Then
b = True
Exit For
End If
Next wb
'   Stop
If Not b Then
'    MsgBox "nix gefunden"
Exit Sub
End If
wb.Activate
Dim ze
ze = ActiveSheet.name
wb.Worksheets(ze).Range("K12:K20") = Application.Transpose(Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)))
Application.ScreenUpdating = True
End Sub
gr kurt
Anzeige
AW: Hier mal das Makro
30.12.2022 22:05:58
wb.Worksheets(ze).Range(K12:K20)
nur so auf Verdacht

Private Sub Rg_Vorlage_kopieren()
Dim wb     As Workbook
Dim thiswb As Workbook
Dim b      As Boolean
Dim i&, ze
Set thiswb = ThisWorkbook
i = ActiveCell.Row
ze = ActiveSheet.Name
For Each wb In Application.Workbooks
If wb.Name Like "__Rg_Vorlage_kopiere.xlsm" Then
b = True
Exit For
End If
Next wb
'   Stop
If Not b Then
' MsgBox "nix gefunden"
Exit Sub
End If
With thiswb
wb.Worksheets(ze).Range("K12:K20") = Application.Transpose(.Range(.Cells(i, 2), .Cells(i, 10)))
End With
Application.ScreenUpdating = True
End Sub

Anzeige
Hallo leider nicht
31.12.2022 12:27:07
kurt
Hallo Chris,
leider Fehlermeldung.
Mir ist aufgefallen, wenn ich Msgbox wb einfüge kommt Fehleldung.
Obwohl oben im Makro wb.name der Richtige Name angezeigt wird.
wb.Worksheets(ze) wird bei ze die Tabelle vom exportierende Datei angezeigt wird.
gr kurt
Noch Info
31.12.2022 12:32:37
kurt
Hallo,
diese Makro klappt von der Listbox (aus der UF) aus, da ich jetzt keine Listbox habe sondern nur die aktive Tabelle,
müsste man hier anpassen.
Habe aber keine Ahnung.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim wb As Workbook
Dim b As Boolean
Dim i
For Each wb In Application.Workbooks
If wb.name Like "__Rechnungs-Programm Vers.*.xlsm" Then
b = True
Exit For
End If
Next wb
If Not b Then
'    MsgBox "nix gefunden"
Exit Sub
End If
wb.Activate
wb.Activate
Dim ze
ze = ActiveSheet.name
For i = 0 To 5
wb.Worksheets(ze).Range("K12").Cells(i + 1, 1) = ListBox1.Column(i)
Next i
'Unload Me
End Sub
gr kurt
Anzeige
Hurra !!!
31.12.2022 12:48:57
kurt
Hallo,
es klappt so:
'---- orginal von chris ----------------

Private Sub Rg_Vorlage_kopieren()
Dim wb     As Workbook
Dim thiswb As Workbook
Dim b      As Boolean
Dim i&, ze
Set thiswb = ThisWorkbook
i = ActiveCell.Row
ze = ActiveSheet.name
For Each wb In Application.Workbooks
If wb.name Like "__Rechnungs-Programm Vers.*.xlsm" Then
b = True
Exit For
End If
Next wb
'   Stop
If Not b Then
' MsgBox "nix gefunden"
Exit Sub
End If
With ActiveSheet
wb.Worksheets("Rg_MG").Range("K12:K20") = Application.Transpose(.Range(.Cells(i, 2), .Cells(i, 10)))
End With
wb.Activate
Application.ScreenUpdating = True
End Sub
anstelle von: wb.Worksheets(ze)
habe ich die Tabelle angegeben
wb.Worksheets("Rg_MG")
bei ze wurde der Tabellenname von der aktiven Datei angezeigt.
gruß kurt
Anzeige
AW: Hurra -> Dann schliessen !!! (owT)
31.12.2022 13:09:37
EtoPHG

Nein nicht schließen, siehe letzte Info !
31.12.2022 13:11:50
kurt
Hier die Version mit Variable und ein Wunsch
31.12.2022 13:11:05
kurt
Hallo,
anbei:
'---- orginal von chris, mit meiner kleinen Änderung ----------------

Private Sub Rg_Vorlage_kopieren()
Dim wb     As Workbook
Dim thiswb As Workbook
Dim b      As Boolean
Dim i&, ze
Set thiswb = ThisWorkbook
i = ActiveCell.Row
For Each wb In Application.Workbooks
If wb.name Like "__Rechnungs-Programm Vers.*.xlsm" Then
b = True
Exit For
End If
Next wb
'   Stop
If Not b Then
' MsgBox "nix gefunden"
Exit Sub
End If
'------- ab hier meine Änderung --------------------------------
wb.Activate
ze = ActiveSheet.name
'- somit wird der Tabellenname von der Empfängerdatei übernommen
'---- und zurück ------------------------------------------------------
thiswb.Activat
With ActiveSheet
wb.Worksheets(ze).Range("K12:K20") = Application.Transpose(.Range(.Cells(i, 2), .Cells(i, 10)))
End With
wb.Activate
Application.ScreenUpdating = True
End Sub
funktioniert einwandfrei.
Meine Frage, wie kann ich dieses Makro für Doppelklick auf Zelle einbinden ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Application.EnableEvents = True
If Not Intersect(Target, Range("B2:K65000")) Is Nothing Then
Cancel = True
ActiveSheet.Unprotect (getStrPasswort)
Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Select       'selektieren
ActiveSheet.Range("K12:K20") = Application.Transpose(Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Value)
End Sub
gruß kurt
Anzeige
AW: Zeile in andere Tabelle kopieren
31.12.2022 13:21:45
GerdL
Moin Kurt
zum Anpassen.

Sub Unit()
Dim Quelle As Variant, Ziel As Range
Quelle = ActiveSheet.Cells(ActiveCell.Row, 2).Resize(1, 9).Value
Set Ziel = ThisWorkbook.Worksheets(1).Range("K12:K20")
Ziel.Value = Application.Transpose(Quelle)
Set Ziel = Nothing
End Sub
Gruß Gerd
Anzeige
Leider nicht...
31.12.2022 13:52:40
kurt
Hallo Gerd,,
habe mal so eingesetzt,
Daten werden nicht kopiert.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Application.EnableEvents = True
If Not Intersect(Target, Range("B2:K65000")) Is Nothing Then
Cancel = True
ActiveSheet.Unprotect (getStrPasswort)
Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Select       'selektieren
ActiveSheet.Range("K12:K20") = Application.Transpose(Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Value)
'Stop
Dim Quelle As Variant, Ziel As Range
Dim wb     As Workbook
Dim b      As Boolean
Set Quelle = ThisWorkbook
Set Ziel = ThisWorkbook.Worksheets(2).Range("K12:K20")
For Each wb In Application.Workbooks
If wb.name Like "__Rechnungs-Programm Vers.*.xlsm" Then
b = True
Exit For
End If
Next wb
Quelle = ActiveSheet.Cells(ActiveCell.Row, 2).Resize(1, 9).Value
MsgBox Ziel
Ziel.Value = Application.Transpose(Quelle)
Set Ziel = Nothing
End Sub
Gr kurt
Anzeige
Jetzt bin ich glücklich -)
31.12.2022 14:01:47
kurt
Hallo zusammen,
so funktioniert es, bin also nicht ganz so unfähig:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Application.EnableEvents = True
If Not Intersect(Target, Range("B2:K65000")) Is Nothing Then
Cancel = True
ActiveSheet.Unprotect (getStrPasswort)
Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Select       'selektieren
ActiveSheet.Range("K12:K20") = Application.Transpose(Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Value)
Call In_Vorlage_kopieren
End If
End Sub


Private Sub In_Vorlage_kopieren()
Dim wb     As Workbook
Dim thiswb As Workbook
Dim b      As Boolean
Dim i&, ze
Set thiswb = ThisWorkbook
i = ActiveCell.Row
For Each wb In Application.Workbooks
If wb.name Like "__Rechnungs-Programm Vers.*.xlsm" Then
b = True
Exit For
End If
Next wb
'   Stop
If Not b Then
' MsgBox "nix gefunden"
Exit Sub
End If
wb.Activate
ze = ActiveSheet.name
'- somit wird der Tabellenname von der Empfängerdatei übernommen
'---- und zurück --
thiswb.Activate
With ActiveSheet
wb.Worksheets(ze).Range("K12:K20") = Application.Transpose(.Range(.Cells(i, 2), .Cells(i, 10)))
End With
wb.Activate
Application.ScreenUpdating = True
End Sub
einen guten Rutsch und ein gesundes neues JAHR,
herzlichst an ALLE,
gruß kurt
Anzeige

Forumthreads zu verwandten Themen

Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Letzte Zeile in neues Blatt kopieren
Matthias

Hallo zusammen,
ich habe zwar in der Suche einiges über die LETZTE ZEILE gefunden, aber mein Problem konnte ich dennoch nicht richtig lösen.
Hier, was ich habe:
- In einer Excel-Datei mehrere Tabellen, die Anzahl kann sich ändern (z.B. Tabelle1, Tabelle2, Tabelle3...Tabelle 30)
...
11.09.2008 07:20:00
Thread-ID: 1008963
7 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Bei wert in Spalte zeile A bis P in Neues Blatt
juergen

Hallo liebe Excel Freunde
Hab da ein kleines Problem.
Ich hab da 2 Tabellen eine mit Eingaben und eine zum Auswerten.
Nun soll das Makro:
Wenn in der Spalte (D) der Tabelle Eingaben eine Wert bzw.eine Zahl steht , dann soll die Zeile von A bis P in die Tabelle Rechentab fortlauf...
25.02.2009 18:12:34
Thread-ID: 1054119
2 Beiträge
Letzte Zeile finden und in neues Blatt schreiben
Claudia

Hallo zusammen,
wie ich die erste frei Zeile finde, weiß ich. :-)
Sub erste_leere_zelle_finden() Range("a65536").End(xlUp).Offset(1, 0).Select End Sub
Jetzt brauche ich aber Eure Hilfe!
Ich bräuchte ein Makro, was über sämtliche Tabellen einer Datei die letzte belegte Zeile i...
06.04.2009 12:17:04
Thread-ID: 1067080
5 Beiträge
Zeilen in anderes Arbeitsblatt kopieren
Alex

Hallo @ all
ich habe folgendes Problem:
Tabelle 1 enthält eine Vielzahl von Daten. Diese will ich nun filtern und die jeweilige Zeile, die in N "TGA" enthält in Tabelle 2 kopieren.
Ich weiß, dass das Ganze mit wenn(summe... funktioniert, aber vermute, man muss hier feste Zahlen ange...
06.07.2009 11:29:58
Thread-ID: 1086570
7 Beiträge
Werte in anderes Tabellenblatt übertragen
Marcus

Hallo, zusammen,
Ich habe hier ein dolles Makro, was mir hier jemand aus diesem Forum geschrieben hat. Dieses Makro funktionierte bisher auch ganz gut, bis durch ein Zufall ein Fehler entdeckt wurde. Dieser Fehler liesse sich durch genau festgelegte Bedingungen umgehen, aber vielleicht läss...
03.10.2009 20:46:05
Thread-ID: 1106914
6 Beiträge
Zeilen suchen und in neues Blatt uebertragen
TT

Hallo liebe Excel- und VBA-Cracks!
Möchte zur Zeiterfassung von mehreren Personen, die alle in mehrerer Projekten und darin in unterschiedlichen Arbeitspaketen arbeiten, folgendes tun:
Projektmitarbeiter fuellt in einem Monatsblatt alle notwendigen Angaben aus, wobei er fuer jede Tätigk...
21.10.2009 06:33:49
Thread-ID: 1110868
2 Beiträge
Anzeige
Zellen in anderes Blatt übertragen wenn ....
Micha*
So vielleicht?Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$3" Then
If Tabelle1.Range("A1") > 0 Then
Tabelle1.Range("B1:D1").Copy
Tabelle2.Activate
Tabelle2.Range("B1:D1").Activate
ActiveSheet.Paste
14.04.2002 10:18:27
Thread-ID: 113125
2 Beiträge
Zeile in anderes Tabellenblatt kopieren
Carle

Hallo zusammen!
Ich würde gerne in einem Arbeitsblatt die Kopfzeile einer Tabelle in ein anderes Tabellenblatt derselben Arbeitsmappe kopieren, und zwar in der Weise, dass bei einer Änderung der Tabellenzeile (z. B. durch Einfügen einer neuen Spalte oder Änderung des Werts einer Zelle) sich...
01.02.2010 20:51:08
Thread-ID: 1134230
3 Beiträge
werte in anderes tabellenblatt mit ; kopieren
Helmut

hallo liebe vba’ler,
noch eine letzte frage für heute:
ich habe ein excel-sheet. In diesem habe ich 5 spalten, in denen sich daten (Zahlen, Worte) befinden. Wie kann ich über ein vba-script diese daten in ein anderes tabellenblatt des sheets kopieren, und zwar so, dass die kopierten dat...
08.03.2010 17:51:04
Thread-ID: 1144386
7 Beiträge
Wert in anderes Tabellenblatt übertragen
Ute

Hallo,
ich brauche dringend eure Hilfe.
Ich habe mehrere Tabellenblätter das erste Tabellenblatt erhält mehrere Termine zu bestimmten Schulungen,
gerne möchte ich neben den Terminen, die Anzahl der noch verfügbaren Plätze angeben.
In dem anderen Tabellenblatt können sich die T...
16.03.2010 16:56:40
Thread-ID: 1146342
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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