Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datentransfer

Forumthread: Datentransfer

Datentransfer
27.04.2017 16:07:26
springreiter
Hallo,
ich möchte ein Makro installieren, bei welchem auf Knopfdruck Werte einer Tabelle von einer Ausgangstabelle in eine Sammeltabelle (anderes Tabellenblatt) übertragen werden. Dabei soll beachtet werden, dass wenn in der Datumszelle c4 "3" steht, die Werte in der Sammeltabelle in die Spalte mit der Überschrift "3" übertragen werden, bei "4" in die Spalte "4", u.s.w.
Besten Dank!
Grüße
Anhang-Beispiel, siehe
https://www.herber.de/bbs/user/113157.xlsx
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Datentransfer
27.04.2017 16:16:50
ChrisL
Hi
Sub t()
Dim WS1 As Worksheet: Set WS1 = Worksheets("Sammeltabelle")
Dim WS2 As Worksheet: Set WS2 = Worksheets("Ausgangstabelle")
WS2.Range("C7:C13").Copy _
WS1.Cells(5, Application.Match(WS2.Range("C4"), WS1.Rows(4), 0))
End Sub

cu
Chris
Anzeige
AW: Datentransfer
27.04.2017 16:35:41
UweD
Hi
Sub Uebertrag()
Dim TB As Worksheet
Dim RNG As Range, ZW As Integer, ZSP As Integer
With Sheets("Ausgangstabelle")
ZW = .Range("C4")
Set RNG = .Range("C7:C13")
Set TB = Sheets("Sammeltabelle")
On Error GoTo Fehler
ZSP = WorksheetFunction.Match(ZW, TB.Rows(4), 0)
RNG.Copy TB.Cells(5, ZSP)
End With
Exit Sub
Fehler:
MsgBox "Zielspalte " & ZW & " nicht gefunden"
End Sub

LG UweD
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige