Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
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
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte in Tabelle kopieren

Werte in Tabelle kopieren
Felix
Hallo,
Ich habe eine Excel Macro Aufgabe, die ich nur mit dem Makro recorder leider nicht zustande kriege.
Ich moechte Zellen in worksheet 1 auf knopfdruck kopieren und in worksheet 2 in einer Tabelle einfuegen. Die Werte sollen immer in die letzte freie Zeile in der Tabelle eingetragen werden.
Koennte mir jemand mit einem code aushelfen, den ich dann auf meine Zellbezuege abwandeln kann?
Vielen Dank schon mal im Voraus!
Gruesse,
Felix

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Werte in Tabelle kopieren
06.01.2011 08:06:49
Maik
Hy Felix,
versuchs mal damit:
With Sheets("Tabelle1")
.Range("A1:C" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy Sheets("Tabelle2") _
.Cells(Rows.Count, 1).End(xlUp).Offset(1)
End With
Gruß Maik
AW: Werte in Tabelle kopieren
06.01.2011 08:41:54
Felix
Danke Maik,
Dein code ist als Schleife gedacht fuer das Kopieren von einer Tabelle zur anderen oder?
Die werte in worksheet1 sind allerdings nicht in einer Tabelle, sondern in den Zellen B3,B9,B10,F9,F10. Die Werte werden Tag aktualisiert, aber die Zellbezuege bleiben gleich.
Die Werte in den genannten Zellen sollen dann in sheet2 in die Spalten einer Tabelle kopiert werden (jeweils letzte verfuegbare Reihe).
Hoffe das macht es klarer...
Danke und Gruesse,
Felix
Anzeige
Tut mir leid...
06.01.2011 09:05:05
Maik
... aber das übersteigt meinen Wissenshorizont.
Gruß Maik
Nachfrage zu AW: Werte in Tabelle kopieren
06.01.2011 12:30:27
mpb
Hallo Felix,
wohin soll denn nun kopiert werden? Im ersten Posting heißt es:
"Die Werte sollen immer in die letzte freie Zeile in der Tabelle eingetragen werden." (wobei "letzte" hier schon seltsam ist, vermutlich meinst Du "erste")
Im zweiten Posting schreibst Du:
"... in sheet2 in die Spalten einer Tabelle kopiert werden (jeweils letzte verfuegbare Reihe). "
In Excel gibt es in Tabellen keine Reihen, sondern Zeilen, Spalten und Zellen. Was gilt denn nun.
Ich rate mal und sehe zwei Möglichkeiten. Kopiert werden sollen 5 Werte. Die können in Sheet 2 entweder
1. in Spalte A untereinander kopiert werden. Dann wird im ersten Kopiervorgang A1:A5, im zweiten A6:A10 usw. gefüllt.
2. spaltenweise in die ersten 5 Zeilen geschrieben werden. Dann wird im ersten Kopiervorgang A1:A5, im zweiten B1:B5 usw. gefüllt.
Oder willst Du noch etwas anderes?
Gruß
Martin
Anzeige
Nachfrage zu AW: Werte in Tabelle kopieren
06.01.2011 15:24:44
Felix
Hi Martin,
sorry erst mal für meine unpräzise Ausdrucksweise. Mit Reihe meinte ich Zeile.
Es ist keine deiner Vermutungen. Die 5 Werte sollen je in eine SPALTE von sheet2 kopiert werden. Jeden Tag aufs neue, wenn ich den command button drücke, soll dann eine weitere ZEILE von A bis E gefüllt werden.
Sprich heute werden die 5 Werte in den Zellen B3,B9,B10,F9,F10 von sheet 1 nach sheet2 A1:E1 kopiert. Morgen dieselben Zellen in sheet1 nach sheet2 A2:E2.
Das ist es eigentlich schon. Vergiss den Rest meiner Schwafelei...
Danke,
Felix
Lösungsvorschlag
06.01.2011 15:54:32
mpb
Hallo Felix,
versuch's mal so:
Sub Kopieren()
z = Worksheets("Tabelle2").Range("A65536").End(xlUp).Row + 1
With Worksheets("Tabelle1")
Worksheets("Tabelle2").Cells(z, 1) = .Range("B3")
Worksheets("Tabelle2").Cells(z, 2) = .Range("B9")
Worksheets("Tabelle2").Cells(z, 3) = .Range("B10")
Worksheets("Tabelle2").Cells(z, 4) = .Range("F9")
Worksheets("Tabelle2").Cells(z, 5) = .Range("F10")
End With
End Sub
Gruß
Martin
Anzeige
genau was ich wollte!
07.01.2011 01:48:24
Felix
Danke fuer deine Geduld Martin!
AW: Anpassung eines VBA Script
07.01.2011 14:41:17
Felix
Mir ist hier etwas total komisches aufgefallen... wie kommt es, dass meine gesamten Texte hier bearbeitet wurden? Alles was hier von mir steht habe ich so garnicht geschrieben es wurde komplett um formuliert.... wenn das von einem Admin oder Moderator gemacht wurde sollte da wenigstens ein Hinweis stehen oder?
AW: Lösungsvorschlag
07.01.2011 01:49:42
Felix
Genau was ich wollte!
Danke Martin!

305 Forumthreads zu ähnlichen Themen

Adresse des letzten Wertes einer Tabelle?
Moni

Hallo,
ich habe ein Problem, dass ich zum Teil mithilfe des Forums hier schon lösen konnte. Nur ein kleines Stückchen fehlt mir noch.
Zur Situation:
Ich habe eine Tabelle mit einer Spalte (C5:C221) in der ich jeden Tage einen Wert eintrage, bis die Tabelle irgendwann mal voll ist. I...
13.08.2008 14:11:59
Thread-ID: 1001534
9 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
Werte in Tabelle schreiben
uw

Hallo,
ich habe in einer Tabelle die Tagessummen, die in eine andere Tabelle übertragen werden sollen.
In dem Beispiel sind die Daten in dem Blatt "Ausgangstabelle".
Diese Tabelle wird jeden Tag aktualisiert.
In jedem neuen Monat steht wieder in Zelle "B2" der Monatserste.
P...
17.12.2008 16:58:50
Thread-ID: 1033661
6 Beiträge
Anzeige
Werte aus allen Tabellen in ein Tabelle zusammenfü
Kurt

Hallo Zusammen,
ich möchte gern alle Werte aus den vorhandenen Tabellen in eine Tabelle eingelesen werden.
Es dürfen nur nicht aus der "Muster + Alle" Tabelle, geht das per Makro?
Aus folgenden Zellen sollen alle Werte addiert in die "Alle" Tabelle reingesetzt werden.
D17 + D17<...
16.01.2009 16:14:00
Thread-ID: 1040622
10 Beiträge
Werte in Tabelle eintragen
fred


Hallo zusammen
Ich habe eine Arbeitsmappe mit ca 50 Tabellenblättern. Im Sheet Namensliste Im Bereich C9 bis C59 sind Namen eingetragen. Jeder dieser Namen ist ein Name eines Sheets. Ich möchte jetzt gerne für meine Diagramme Werte aus diesen Sheets in Tabelle 1 eingetragen haben.
...
18.01.2009 22:23:00
Thread-ID: 1041281
3 Beiträge
Combobox in tabelle einfügen mit werten
chris

Hallo mal wieder,
bitte bei diesem Problem um Hilfe.
Mit dem unten stehendem Code will ich in Tabelle1 Zeile 1 Comboboxen erstellen lassen.
Das klappt auch.Nur wenn ich jetzt diese zeile mit laufen lassen
Call test
Dann kommt ein fehler.
Laufzeitfehler 9 . Index auserhal...
13.02.2009 10:35:00
Thread-ID: 1050388
7 Beiträge
listbox werte in tabelle suchen
kirsche

hallo leute,
und wieder komme ich nicht weiter und brauche eure hilfe.
ich befülle eine listbox mit den daten aus einer hilfstabelle. nun werden über multiselect werte ausgewählt. über commandbutton1 schreibe ich diese werte in einen 2. tabelle, welche übersicht heißt. das funktioniert...
16.02.2009 12:03:00
Thread-ID: 1051097
3 Beiträge
werte in tabelle suche
kirsche

hallo leute,
mal wieder stehe ich vor einem problem und hoffe auf eure hilfe.
ich möchte über eine userform daten nach bestimmten kriterien von einer tabelle in eine andere übertragen. das klappt mit meinem makro auch schon ganz gut, leider nur solange die reihenfolge des suchbegriffs b...
22.03.2009 20:51:26
Thread-ID: 1062708
3 Beiträge
Anzeige

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
8
3
4
5
8
9
2
6
2
2
5
5
9
10
29
7
9
6
3
2
9
4
11
5
2