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
1396to1400
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
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile in andere Tabelle kopieren

Zeile in andere Tabelle kopieren
13.12.2014 17:48:19
Wolfgang

Hallo,
in Tabelle "Zwischenpark" befindet sich in Zeile 2 ein Datensatz. Wie könnte ich über VBA realisieren, dass die Zeile 2 ab B2 in die Tabelle "Gesamtdaten" hinter die jeweils aktivierte Zelle (befindet sich in Spalte A)eingefügt wird?
Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile in andere Tabelle kopieren
13.12.2014 18:09:17
hary
Moin Wolfgang 
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim spalte As Long
Set wksQ = Worksheets("Textimport")
Set wksZ = Worksheets("Zwischenpark")
spalte = wksZ.Cells(2, Columns.Count).End(xlToLeft).Column 'letzte belegte Spalte in Zeile 2
wksZ.Cells(2, 1).Resize(1, spalte).Copy Selection.Offset(0, 1)
Set wksQ = Nothing
Set wksZ = Nothing

gruss hary

AW: Korrektur
13.12.2014 18:13:55
hary
Moin
War etwas viel durch's kopieren. 
Dim wksZ As Worksheet
Dim spalte As Long
Set wksZ = Worksheets("Zwischenpark")
spalte = wksZ.Cells(2, Columns.Count).End(xlToLeft).Column
wksZ.Cells(2, 1).Resize(1, spalte).Copy Selection.Offset(0, 1)
Set wksZ = Nothing

gruss hary

Anzeige
AW: Zeile in andere Tabelle kopieren
13.12.2014 18:40:27
Wolfgang
Hallo Hary,
danke erneut. Habe den Code getestet. Er kopiert aktuell noch ab Spalte A und fügt in Spalte B der Zieltabelle ein. Was müsste noch verändert werden, wenn aus Tabelle Zwischenpark auch der Text erst ab Spalte B kopiert werden soll (A2 bleibt außen vor)?
Gruß - Wolfgang

AW: Zeile in andere Tabelle kopieren
13.12.2014 18:45:30
hary
Moin 
wksZ.Cells(2, 2).Resize(1, spalte).Copy Selection.Offset(0, 1)

gruss hary

Danke Hary - läuft nun tadellos
13.12.2014 19:06:58
Wolfgang
Hallo Hary,
danke!! - Der Code läuft nun so, wie ich es mir vorgestellt hatte. Freue mich sehr.
Gruß - Wolfgang

AW: Zeile in andere Tabelle kopieren
13.12.2014 18:43:04
fcs
Hallo Wolfgang,
hier mein Makrovorschlag
Gruß
Franz 
Sub Copy_to_Gesamtdaten()
Dim Zeile As Long, intCopy As Integer, rngAktiv As Range
intCopy = 2 '1 = Alles, 2 = Formate+Werte, 3 = nur Werte - Wert ggf. anpassen
With ActiveWorkbook
Application.ScreenUpdating = False
.Worksheets("Gesamtdaten").Activate
Set rngAktiv = ActiveCell 'aktive Zelle merken
Zeile = rngAktiv.Row      'Einfügezeile
'geparkte Zellen kopieren
With .Worksheets("Zwischenpark")
.Range(.Cells(2, 2), .Cells(2, .Columns.Count).End(xlToLeft)).Copy
End With
With .Worksheets("Gesamtdaten").Cells(Zeile, 2)
Select Case intCopy
Case 1 'alles einfügen
.PasteSpecial Paste:=xlPasteAll
Case 2 'Formate und Werte einfügen
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteValues
Case 3 'nur Werte einfügen
.PasteSpecial Paste:=xlPasteValues
End Select
End With
rngAktiv.Select 'gemerkte Zelle wieder selektieren
Application.CutCopyMode = False
'        .Worksheets("Zwischenpark").Activate
Application.ScreenUpdating = True
End With
End Sub

Anzeige
Danke, Franz
13.12.2014 19:13:56
Wolfgang
Hallo Franz,
danke auch Dir sehr herzlich für den überlassenen Code. Ich habe ihn gleich "eingebaut", er läuft ebenfalls einwandfrei und super. Als Laie kann ich nun die Unterschiede zwischen Deinem Code und dem Code von Hary nicht festmachen. Klären konnte ich, dass beide Codes prima laufen. Nochmals vielen Dank!!!
Einen schönen Abend sowie ein schönes Wochenende.
Gruß - Wolfgang

303 Forumthreads zu ähnlichen 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
Anzeige
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Anzeige
Objekte in neues Tabellenblatt kopieren
Bertram

Hallo zusammen,
ich kopiere ein komplettes Tabellenblatt per VBA in ein (temporäres) neues Tabellenblatt ohne den Code des TBs zu kopieren, verschiebe dieses und speichere es als neue Datei ab. Soweit so gut. Allerdings habe ich auch 4 Kästchen (OK1 bis OK4) auf meinem Tabellenblatt, die ic...
27.01.2009 15:22:00
Thread-ID: 1044271
4 Beiträge
Mittelwerte in ein neues Blatt kopieren per VBA
Drusilla

Hallo liebe Profis
Da mir letztes Mal so gut geholfen wurde, würde ich euch gerne nochmals fragen. Ich möchte per Makro folgendes erreichen:
-neues Blatt generieren mit dem Namen „Uebersicht“
-dort Mittelwerte (sind schon berechnet, schreibe das nur, damit ihr wisst, dass in der...
06.05.2009 09:51:09
Thread-ID: 1073265
2 Beiträge
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 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
Daten aus Tabellenblättern in ein Blatt kopieren
Jens

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ca. 20 Tabellenblätter.
Auf allen Tabellenblättern sind drei Zellen (A4, A6, S41), deren Werte ich gerne auf Tabellenblatt 1 (Tabelle1) kopiert hätte.
Es sollen nur Werte, keine Formate kopiert werden [.PasteSpecial Paste:=xlP...
15.07.2009 12:25:07
Thread-ID: 1088795
5 Beiträge

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
2
6
3
4
15
3
1
1
6
4
1
9
5
2
6
4
2
7
2
6
10
5
2
1
7