Das Archiv des Excel-Forums

Daten in "Excel-Datenbank" kopieren

nach unten


Betrifft: Daten in "Excel-Datenbank" kopieren
von: Aaron

Geschrieben am: 30.09.2019 15:02:15

Hallo liebe Community,
ich habe ein Problem, für das ich trotz einer Recherche und ausprobieren noch keine Lösung gefunden habe.
Ich würde gerne bestimmte Zellinhalte aus einem Tabellenblatt in eine "Excel-Datenbank" kopieren.
______________2019______2020______2021______......
Datenreihe 1___Wert1_____Wert2_____Wert3_____......
Datenreihe 2___Wert234___Wert235___......
Datenreihe n___......
In der Zieldatei sollen die Werte alle hintereinander in einer Zeile aufgelistet werden. Beispiel:
Wert 1 Wert 2 Wert3 Wert234 Wert235 Wert....
Leider weiss ich nicht, wie die Schleife für das Makro aussehen muss. Aus diesem Grund bin ich euch sehr dankbar, wenn Ihr mir helfen könntet?
Vielen Dank im Voraus und herzliche Grüße
Aaron

Betrifft: AW: Daten in "Excel-Datenbank" kopieren
von: Oberschlumpf
Geschrieben am: 30.09.2019 16:47:53
Hi Aaron,
zeig das Ganze doch mal bitte per Upload in einer XL-Bsp-Datei.
Ciao
Thorsten

Betrifft: AW: Daten in "Excel-Datenbank" kopieren
von: MCO

Geschrieben am: 04.10.2019 13:03:09
Hallo Aaron,
Probier das mal, Ausgabe muß noch angepasst werden.
Gruß, MCO
Sub Werte_zusammenfassen()
Dim Tabelle As Range
Dim rw As Range
Dim werte As Range
Dim kette As String
Dim wert As Range
Set Tabelle = Range("A1").CurrentRegion 'Bereich bestimmen
For Each rw In Tabelle.Rows 'zeilenweise durchgehen
Set werte = rw.SpecialCells(xlCellTypeFormulas) 'nur formelwerte, leere ignorieren
'Set werte = rw.SpecialCells(xlCellTypeConstants) 'nur Konstanten, leere ignorieren
kette = "" 'Zurücksetzen
For Each wert In werte 'Werte durchgehen
kette = kette & " " & wert 'Kette bilden
Next wert
Cells(rw.Row, Tabelle.Columns.Count + 2) = Trim(kette) 'ausgeben
Next rw
End Sub


Excel-Beispiele zum Thema "Daten in "Excel-Datenbank" kopieren"

Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download