Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1992to1996
1992to1996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten in anderes Blatt untereinander kopieren

Forumthread: Spalten in anderes Blatt untereinander kopieren

Spalten in anderes Blatt untereinander kopieren
01.10.2024 12:33:56
Dorit
Hallo,

inzwischen versuche ich mich schon eine Weile an VBA, um meinen Vegetationsdatensatz umzustrukturieren. Der finale Erfolg hat sich noch nicht einstellen wollen und ich würde mich sehr über Hilfe freuen.

Mein Ziel ist folgendes:

Ich habe eine Ausgangstabelle ("Vegtab Original"), in der die verschiedenen Aufnahmen in Spalten angeordnet sind. Nun habe ich versucht, zu programmieren, daß die erste Spalte (C) nach nichtleeren Zellen gefiltert wird. Dann sollen die Arten aus Spalte A, die übrig bleiben, mitsamt den Werten, die in Spalte C übrig bleiben, in die neue Tabelle in Spalten D & E kopiert werden ("Vegtab neu"). Anschließend soll der Code der Aufnahme aus Feld C1 in "Vegtab Original" in alle Felder in Spalte A in "Vegtab neu" kopiert werden, in deren Zeilen ich vorher die Arten kopiert habe. Dann den Filter aus Spalte C in "Vegtab Original" wieder löschen.

Anschließend soll der Prozeß für die nächste Spalte aus "Vegtab Original" wiederholt werden, deren Daten in Spalte D & E unter die zuletzt eingefügten kopiert werden sollen. Und so weiter.

Ich scheitere daran, die jeweils korrekten Zellbereiche anzugeben und wäre für Hilfe sehr dankbar.

Unter folgendem Link ist meine Tabelle: https://www.herber.de/bbs/user/172510.xlsm

Liebe Grüße,
Dorit
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten in anderes Blatt untereinander kopieren
01.10.2024 13:07:53
Eifeljoi 5
Hallo

Ohne jetzt die Datei geöffnet zu haben, warum VBA??
Denn du hast eine neue Version von Office dann nutze diese Funktionen auch die darin sind.
Vielleicht ist es ja auch mit Power Query zu lösen.
AW: Spalten in anderes Blatt untereinander kopieren
01.10.2024 13:44:22
Dorit
Hallo,

vielen Dank für den Tipp. Mit Power Query habe ich gar keine Erfahrung und auf den ersten Blick auch keine Ahnung, wie es zu machen wäre. Problem wurde dankenswerter Weise schon gelöst.

LG Dorit
Anzeige
AW: Spalten in anderes Blatt untereinander kopieren
01.10.2024 13:32:28
MCO
Hallo Dorit!

Ich hab mal einige Sachen angepasst, unter anderem die umständlichen Zellbereiche vereinfacht.
Final2 brauchst du auch nicht, dafür aber die zahl der Datensätze.

Probier es mal aus. 
Sub CopyOriginalToNeu()

    

    Dim x As Long, lrow As Long, FinalRow1 As Long, FinalRow2 As Long

    Dim wsTab1 As Worksheet

    Dim wsTab2 As Worksheet

    Dim rng As Range

    Dim Anz_Dat_sätze As Long

    

    Application.ScreenUpdating = False 'Zeitgewinn durch abschalten der Bildschirmaktualisierung

    Application.Calculation = xlCalculationManual 'Zeitgewinn durch Abschalten der Zellberechnung

    

    Set wsTab1 = Worksheets("Vegtab Original") 'objectvariable auf blatt1 gesetzt

    Set wsTab2 = Worksheets("Vegtab neu")

    

    x = 3 'Beginn Schleife ab Spalte "C"

    

    Do While wsTab1.Cells(1, x).Value > vbNullString ' schleife bis kein wert in zeile 1 spalte x

       

          With wsTab1

           'Spalten x in "Vegtab neu" filtern

               .AutoFilterMode = False  'evtl.Filter ausschalten

               .Range("A8:KS1332").AutoFilter Field:=x, Criteria1:=">" 'filter auf Spalte setzen

                   

           'letze Zeilen ermitteln

               lrow = .Cells(Rows.Count, x).End(xlUp).Row 'letzte zeile in "Vegtab Original" nach Filter ermitteln

               FinalRow1 = wsTab2.Cells(Rows.Count, 1).End(xlUp).Row + 1 'erste leere zelle in "Vegtab neu" Spalte 1 ermitteln

               

           'Spalten 1 in "Vegtab neu" kopieren

                Set rng = .Range(.Cells(9, 1), .Cells(lrow, 1)).SpecialCells(xlCellTypeVisible)

                Anz_Dat_sätze = rng.Count

               rng.Copy

               wsTab2.Cells(FinalRow1, 4).PasteSpecial Paste:=xlPasteValues

               

           'Spalten x in "Vegtab neu" kopieren

               .Range(.Cells(9, x), .Cells(lrow, x)).SpecialCells(xlCellTypeVisible).Copy

                wsTab2.Cells(FinalRow1, 5).PasteSpecial Paste:=xlPasteValues

           

           '"Code Aufnahme" kopieren in erste leere Zeile bis letzte Zeile von Spalte 4

               wsTab2.Range(wsTab2.Cells(FinalRow1, 1), wsTab2.Cells(FinalRow1 + Anz_Dat_sätze - 1, 1)) = .Cells(1, x)

               

               'Filter ausschalten

               .AutoFilterMode = False

          End With

         

         x = x + 1 'spaltenzähler hochsetzen

    Loop

    

    Application.CutCopyMode = False

    

    'Zurücksetzten der Zeitgewinnoptionen

    Application.Calculation = xlCalculationAutomatic

    'Application.ScreenUpdating = True 'unnötig, wird automatisch zurückgesetzt

End Sub

Gruß, MCO
Anzeige
AW: Spalten in anderes Blatt untereinander kopieren
01.10.2024 14:51:33
snb
Einfach so: 

Sub M_snb()

  sn = Tabelle6.UsedRange

  ReDim sp(UBound(sn) * UBound(sn, 2), 0)

  ReDim sq(UBound(sn) * UBound(sn, 2), 1)

  

  For jj = 3 To UBound(sn, 2)

    For j = 9 To UBound(sn)

      If sn(j, jj) > "" Then

         sp(n, 0) = sn(1, jj)

         sq(n, 0) = sn(j, 1)

         sq(n, 1) = sn(j, jj)

         n = n + 1

       End If

     Next

   Next

   

   With Tabelle5.Cells(Rows.Count, 1).End(xlUp).Offset(1)

     .Resize(n) = sp

     .Offset(, 3).Resize(n, 2) = sq

    End With

End Sub

Anzeige
AW: Spalten in anderes Blatt untereinander kopieren
01.10.2024 13:42:02
Dorit
Hallo, MCO,

vielen herzlichen Dank für die schnelle Nachricht! Das funktioniert hervorragend und ich habe wieder was gelernt.

Liebe Grüße,
Dorit
;

Forumthreads zu verwandten Themen

Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Anzeige
Daten aus tmp-Datei importieren
Wolfgang

Hallo,
ich suche nach einer Möglichkeit, aus einer .tmp-Datei die wohl im Format *"?xml version="1.0" encoding="UTF-8"?*" geschrieben ist, Daten in Excel zu importieren. Über das übliche Verfahren "Daten importieren" bekomme ich das nicht hin. Hat evtl. jemand eine Idee, was ich da machen k...
09.09.2008 08:52:00
Thread-ID: 1008298
7 Beiträge
Anzeige
Daten aus einer anderen xls Datei importieren
Michi

Hallo,
Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 E...
08.11.2008 13:02:47
Thread-ID: 1022899
2 Beiträge
Ausgewählte Daten aus HTML in Excel importieren
Ferenz

Hallo VBA-Spezialisten,
ich möchte gezielt aus der Betfair-Webseite (Sportwetten, Speziell Fußball-Wetten IN-PLAY) Daten in Excel importieren. Mit der in Excel integrierten Funktion "Web-Abfrage" kann ich immer nur einen bestimmten Bereich importieren. Deshalb kommt für mich diese Funktion...
03.04.2009 16:00:35
Thread-ID: 1066723
11 Beiträge
Spalte A in andere Tabelle kopieren
Ben

Hallo,
ich habe folgendes Problem:
zwei Tabellen mit dem gleichen Aufbau, in Spalte A stehen immer Bezeichnungen und in den weiteren Spalten folgen Werte.
Ich versuche nun die Spalte A aller Tabellenblätter der ersten Tabelle (besitzt 41 Tabellenblätter) in die andere Tabelle zu k...
22.01.2010 20:13:26
Thread-ID: 1132034
8 Beiträge
Daten aus anderer Datei auslesen und eintragen | Herbers Excel-Forum
Bernd
Hallo Freaks,
ich suche seit heute 12 h nach einer Lösung im Archiv, bin aber nicht fündig geworden bzw. nicht in der Lage, das makro anzupassen.
Problem: aus einem Verzeichnis eine Datei aussuchen und aus zwei exakt benannten Blättern die Daten eines bestimmten Bereiches einlesen. Dabei ha...
24.01.2010 19:45:10
Thread-ID: 1132528
4 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
Anzeige
Bereich aus anderer Excel-Tabelle importieren
Jens

Hallo an alle!
Ich habe folgendes Problem: Ich möchte einen Bereich aus einer Excel-Tabelle in einer anderen Excel-Tabelle importieren. Über Daten -- Externe Daten importieren... bekomme ich nur einen kompletten Tabellensheet importiert. Gibt es eine Möglichkeit nur oben genannten Bereich z...
01.03.2010 11:06:41
Thread-ID: 1142312
9 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
Anzeige
Dateipfad, Daten aus anderer Tabelle
KLE

Hallo,
...ich habe eine Datei, welche Kundendaten anzeigen soll (Anschrift etc.). Diese Daten liegen in einer anderen Datei im Selben Pfad - nur in einem Unterordner.
Wie kann ich nun in meinem VBA-Code es am besten schreiben, wenn ich anstatt:
Worksheets("Kunden").Range("A2").Selec...
19.08.2010 15:09:19
Thread-ID: 1173124
4 Beiträge
Daten aus anderer Tabelle
Werner

Hallo
ich habe ein kleines Problem zu der ich leider keine Lösung finde.
Sollte jedoch ganz einfach sein.
Problem:
In Tabelle 1 steht in Spalte C folgende Formel:
=WENN(B112=0;"";SVERWEIS(B112;Obststamm!$1:$65536;2;FALSCH))
mit der folge, das wenn in B112 Spalte B...
12.09.2010 19:46:21
Thread-ID: 1177127
2 Beiträge
Daten in anderes Tabellenblatt kopieren
Werner

Hallo zusammen,
ich möchte Daten von Activen Tabellenblatt in die Tabelle1 kopieren. Ich habe es mit nen Makrorekorter propiert aber ohne Erfolg.
Es sollen im Act. Tabellenblatt die Bereiche:
A1:A30 in die Tabelle1 in die gleichen Zellen (A1:A30) kopiert werden.
C1:A30 in die Ta...
15.09.2010 20:26:28
Thread-ID: 1177919
10 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