Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
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
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Diverse Spalten einer Zeile kopieren

VBA Diverse Spalten einer Zeile kopieren
gemanna
Hallo Excel Freunde,
suche schon seit tagen nach der Lösung für mein Problem, komme aber nicht weiter.
Ich habe mehrere Tabelen mit verschidenen Artikeln und Preisen. Ich habe die Artikeln in 4 verschidene Gruppen unterteilt (TT, AT, PP, IT). Für die 4 Gruppen müssen 4 neue Tabelenblätter angelegt werden, wo die Artikeln, Artikel Gruppe und Preis übertragen wird. (das klappt)
Mein Problem ist es, dass der Preis in den Ausgangstabellen in den diversen Spalten (tabelle 1 "G"; tabelle 2 "I") steht. Und Makro Kopiert alle Spalten aus dem angegebenen Bereich
ArrayData = .Range("A2", .Cells(n, 1)).Resize(, 13).Value2
Anbei ist die Test Datei die mehr erklärt als meine Worte.
https://www.herber.de/bbs/user/74435.xls
Vielen Dank für eure Tipps
Gruß Gemanna

    • 2
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Benutzer
    Anzeige
    AW: VBA Diverse Spalten einer Zeile kopieren
    18.04.2011 06:49:59
    Marc
    Guten Morgen!
    Ich hab zwar nicht ein Array benutzt, aber es funktioniert und ist auch noch übersichtlicher (find ich)
    Gruß, Marc
    Option Explicit
    Sub TT()
Dim n As Long, Preis_Spalte, x, i
With Sheets("TT")
.Range("2:100").ClearContents
x = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End With
'Tabelle1 *****************************************
With Tabelle1
Preis_Spalte = .Range("1:1").Find("preis", lookat:=xlWhole).Column
n = .Cells(.Rows.Count, 1).End(xlUp).Row
If n > 1 Then
For i = 2 To n
If .Cells(i, 3) = "TT" Then
With Sheets("TT")
.Cells(x, 1) = Tabelle1.Cells(i, 1)
.Cells(x, 2) = "TT"
.Cells(x, 3) = Tabelle1.Cells(i, Preis_Spalte)
x = x + 1
End With
End If
Next i
End If
End With
'Tabelle2 *****************************************
With Tabelle2
Preis_Spalte = .Range("1:1").Find("preis", lookat:=xlWhole).Column
n = .Cells(.Rows.Count, 1).End(xlUp).Row
If n > 1 Then
For i = 2 To n
If .Cells(i, 3) = "TT" Then
With Sheets("TT")
.Cells(x, 1) = Tabelle2.Cells(i, 1)
.Cells(x, 2) = "TT"
.Cells(x, 3) = Tabelle2.Cells(i, Preis_Spalte)
x = x + 1
End With
End If
Next i
End If
End With
End Sub

    Anzeige
    AW: VBA Diverse Spalten einer Zeile kopieren
    18.04.2011 09:48:11
    gemanna
    Hallo Marc,
    echt Super und Variable dazu.
    Du hast recht, Deine Lösung ist viel übersichtlicher und verständlicher vor allem für solche Anfänger wie mich.
    Vielen, Vielen Dank!
    Gruß
    Gemanna

    332 Forumthreads zu ähnlichen Themen

    Beim Kopieren eines Tabellenblattes den VBA-Code e
    Alfi

    Hallo Excel-Gemeinde!
    ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
    Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
    Wer kann mir helfen?
    So sieht der...
    09.09.2008 09:58:00
    Thread-ID: 1008333
    8 Beiträge
    Anzeige
    VBA--Zellen finden/vergleichen/kopieren
    Christian

    Hallo
    einen Beispieldatei ist anbei!!
    Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
    Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
    07.10.2008 10:15:00
    Thread-ID: 1014634
    3 Beiträge
    In Zwischenablage kopieren
    Claudia

    Hallo liebe VBA-Profis,
    ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
    Ich könnte das natürlich mit der Hand machen, d...
    15.12.2008 18:19:49
    Thread-ID: 1033106
    4 Beiträge
    Anzeige
    VBA Code mit VBA in Tabelle kopieren - Fehler?!
    Andreas

    Hallo Herber Fans,
    ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
    Der Code dafü...
    11.02.2009 15:56:00
    Thread-ID: 1049657
    3 Beiträge
    suchen kopieren einfügen vba
    Bea

    Hallo zusammen
    Ich hab folgendes Problem.
    in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
    10.03.2009 11:55:49
    Thread-ID: 1058557
    9 Beiträge
    variable Zeilenanzahl kopieren, einfügen (VBA)
    Alex

    Hallo Leute,
    In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
    (das geht wunderbar)
    Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
    18.03.2009 17:23:56
    Thread-ID: 1061522
    3 Beiträge
    Mit VBA Zeilen in neue Register kopieren
    Andreas

    Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
    Im Detail soll dies wie folgt fun...
    08.06.2009 12:29:49
    Thread-ID: 1079883
    3 Beiträge
    Gesperrte Zellen in Zwischenablage kopieren
    Elias

    Hallo Forum,
    ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
    Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
    -Die Zellen sind gesperrt.
    -Das PW darf nicht im VBA-Code hinterlegt werden, da das...
    13.06.2009 23:26:05
    Thread-ID: 1081337
    6 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
    7
    1
    2
    3
    10
    2
    8
    2
    2
    5
    7
    6
    1
    4
    7
    3
    1
    5
    5
    6
    8
    2
    8
    1
    9