Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten einfügen aus anderem Sheet

Forumthread: Daten einfügen aus anderem Sheet

Daten einfügen aus anderem Sheet
19.04.2024 12:58:59
Andre
Hallo ich habe in dem Sheet "qu" 5 Datensätze
jeweils ein Titel und dann Datum

https://www.herber.de/bbs/user/168856.xlsx

Ich möchte am besten mit einem Makro
in das sheet "Video Neu" den Titel und DANEBEN das Datum einfügen
(beginnend mit der Spalte O für den Titel und Spalte Q für das Datum
und zwar jeweils beim Einfügen in der Zeile beginnen - wo der Curser steht
(als hier in der O5)

und so weiter auch mit den anderen 5 Titeln mit Datum

Wichtig ist mir, dass das Einfügen immer dort in O beginnt wo der Cursor steht.
Damit daten nicht überschrieben werden, wenn ich weitere aus "Qu" einfügen will.

Wie könnte das Makro aussehen ?
lg Andre
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten einfügen aus anderem Sheet
19.04.2024 19:57:29
Yal
Hallo Andre,

so könnte das Makro aussehen. 

Sub Übertragen()

Dim i As Long

Dim Titel(1 To 5) As String

Dim Datum(1 To 5) As String

    

    For i = 1 To 5

        With Worksheets("qu")

            Titel(i) = .Cells(3 * (i - 1) + 1, 1).Value

            Datum(i) = .Cells(3 * (i - 1) + 2, 1).Value

        End With

    Next

    With Worksheets("Video neu")

        .Cells(5, "O").Resize(5, 1) = Application.Transpose(Titel)

        .Cells(5, "Q").Resize(5, 1) = Application.Transpose(Datum)

    End With

End Sub


VG
Yal
Anzeige
AW: Daten einfügen aus anderem Sheet
19.04.2024 20:59:32
Andre
danke es kappt dieses aber leider nur einmal - wenn ich dann die nächsten 30 daten einfüge - überschreibt er die alten mit den ersten 5 von den nächsten 30 - obwohl ich ja in der ja wollte, dass die daten die ich neue einfügte anschließend eingefügt werden sollen :( - ich schaue mir deine 2.Lösung jetzt an.
Anzeige
AW: Daten einfügen aus anderem Sheet
19.04.2024 20:01:11
Yal
Man könnte aber auch so machen 

Sub Übertragen()

Dim wsZ As Worksheet 'Z für Ziel

Dim i As Long



    Set wsZ = Worksheets("Video neu")

    With Worksheets("qu")

        For i = 1 To 5

            wsZ.Cells(i + 4, "O") = .Cells(3 * (i - 1) + 1, 1).Value

            wsZ.Cells(i + 4, "Q") = .Cells(3 * (i - 1) + 2, 1).Value

        Next

    End With

End Sub


VG
Yal

Anzeige
AW: Daten einfügen aus anderem Sheet
19.04.2024 21:06:14
Andre
ja auch bei dem überschreibt er immer nur die ersten 5 - auch wenn ich neue daten einfüge

Ziel wäre:
Er fügt solange daten ein bis er nach der Leerzeile auf eine weitere Trifft also keine neuen mehr drinnen sind
und 2. dass der die Daten dort einfügt wo jeweils der Curser im sheet video neu steht einfügt.
Aber als erster Ansatz mal super:) danke
Anzeige
AW: Daten einfügen aus anderem Sheet
19.04.2024 21:23:57
Yal
Hallo Andre, 

Sub Übertragen()

Dim wsZ As Worksheet 'Z für Ziel

Dim i As Long



    Set wsZ = Worksheets("Video neu")

    With Worksheets("qu")

        For i = 1 To 5

            With wsZ.Range("O99999").End(xlUp)

                .Offset(1, 0) = .Cells(3 * (i - 1) + 1, 1).Value

                .Offset(1, 2) = .Cells(3 * (i - 1) + 2, 1).Value

            End With

        Next

    End With

End Sub


Wichtig: die Zelle qu!O4 darf nicht leer sein. Es reicht einen Leerzeichen oder besser -weil sichtbar- einen Punkt. Sonst geht der End(xlUp) zu weit nach oben (nur bei der ersten übertragung, danach irrelevant)

VG
Yal
Anzeige
AW: Daten einfügen aus anderem Sheet
19.04.2024 22:31:50
Andre
nein leider habe in video neu - das meintest du in o4 den Punkt gemacht - weil aus qu kommen ja die daten

Dann zb auf o8 den cursor platziert und das makro das du mir jetzt geschickt hat gestartet.

Es macht jetzt nur einen Punkt in o5

https://www.herber.de/bbs/user/168871.xlsm

lg Andre


Anzeige
AW: Daten einfügen aus anderem Sheet
20.04.2024 19:17:39
Yal
Hallo Andre,

Lese dieses Code, bis Du jeden einzelnen Punkte verstanden hast,was da passiert. Sonst können wir nicht weiter.
Es geht nicht darum, dass ich liefere, was sich in deiner Vorstellung abspielt, sondern einen Code, der entspricht, was ich verstanden habe was Du erwartest.
Wenn es nicht macht, was du willst, musst Du den Code eben anpassen.

Wir sind "Helfer", aber keine persönliche Assistent. Ohne deine Mitwirkung, wird es sehr viele Schleife geben, bis es passt. Und gelernt wirst Du dabei nichts.

VG
Yal
Anzeige
AW: Daten einfügen aus anderem Sheet
20.04.2024 22:23:45
Andre
danke für Deine Mühe
AW: Daten einfügen aus anderem Sheet
22.04.2024 09:20:09
schauan
Hallöchen,

um bei der ursprünglichen Aufgabenstellung zu bleiben - im Prinzip müsst doch beim einfügen nur die ersten 5er im ersten Codevorschlag durch ActiveCell.Row ersetzt werden.

Wichtig ist mir, dass das Einfügen immer dort in O beginnt wo der Cursor steht.

also 
...

    With Worksheets("Video neu")

        .Cells(ActiveCell.Row, "O").Resize(5, 1) = Application.Transpose(Titel)

        .Cells(ActiveCell.Row, "Q").Resize(5, 1) = Application.Transpose(Datum)

    End With

...


1)
wobei ich wg. der Aufgabenstellung davon ausgehe, dass sich der TE beim Ausführen des Makros auf dem neuen Blatt befindet
--> sonst müsste man die Zeile anders feststellen
--> bräuchte man kein With, also kürzer 
...

        Cells(ActiveCell.Row, "O").Resize(5, 1) = Application.Transpose(Titel)

        Cells(ActiveCell.Row, "Q").Resize(5, 1) = Application.Transpose(Datum)

...


2)
wobei das natürlich nicht das Problem beseitigt, dass man zufälligerweise anderswo, in einer unerwünschten Zeile, steht :-(
Anzeige
AW: Daten einfügen aus anderem Sheet
25.04.2024 02:57:52
Andre
danke es klappt nun alles lg Andre
;

Forumthreads zu verwandten Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Gültigkeit (Liste): Daten von anderem Blatt?
anderem

Moin,
ich wollte gerne per Makro Gültigkeiten auf einem Blatt eintragen. Und zwar sollen es Listenfelder werden. Nur derzeit ist das Problem, dass die Daten für die Gültigkeitslisten auf einem anderen Blatt liegen und ich sie nicht übertragen kann. Das läßt mein Excel (2000) nicht zu.
04.03.2009 21:16:21
Thread-ID: 1056583
2 Beiträge
Listenkriterien aus anderem Blatt
Philipp

Hallo liebe Herber-Gemeinde,
ich möchte für meine Dropdown-Auswahlliste die Kriterien aus einem anderen Tabellenblatt verwenden.
Unter [Daten] - [Gültigkeit] - [Zulassen] - [Liste] steht allerdings, dass die Kriterien in der selben Tabelle abegelegt sein müssen.
Geht das auch ander...
14.04.2009 10:12:55
Thread-ID: 1068538
18 Beiträge
Daten aus Tabellenblatt einlesen - ohne ADO record
Gonzer

Hallo zusammen,
ich habe folgendes Problem. Mit lieber 2 Tabellen in der gleichen Arbeitsmappe vor. Eine unformatierte Tabelle "Quelle" und eine leere mit Überschriften versehene Tabelle "einlesen".
In der Tabelle "einlesen" finden sich Überschriften wieder welche auch in der Tabelle "...
19.04.2009 10:59:37
Thread-ID: 1069584
3 Beiträge
Anzeige
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Anzeige
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
Anzeige
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
Anzeige
Daten aus verschiedenen Blättern
Karl-Ludwig

Hallo zusammen,
eine kleine Date habe ich angehäng, in der ich die Daten aus verschiedenen Blättern auf ein Blatt eintragen möchte.
Kann mir hier jemand helfen?
Dankeschön+ Gruß
KL
https://www.herber.de/bbs/user/64123.xls
31.08.2009 07:29:10
Thread-ID: 1099510
4 Beiträge
Altersdaten aus mehreren Arbeitsblättern ermitterl
GILARD@AOL.com

Hallo zusammen. Ich habe insgesamt fünf Arbeitsblätter in denen uner anderem in der Spalte F das Alter verschiedener Personen mit einer Formel berechnet wird. Nun möchte ich gerne wissen, wieviele Personen in der Altetsgruppe 0 bis 14, 15 bis 21, 22 bis 45, 46 bis 61 und älter als 61 sind.
...
03.09.2009 08:07:11
Thread-ID: 1100213
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige