Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA bestimmte Zellen aus 2Tabellen vereinen

VBA bestimmte Zellen aus 2Tabellen vereinen
07.03.2016 19:08:27
john.doe
Hallo zusammen,
ich bin leider ein Laie was VBA angeht und hoffe nun auf eure Untersützung. Ich möchte bestimme Zellen aus zwei Tabellenblättern in einem dritten vereinen.
Ich möchte überprüfen ob in Tabelle1 in Zelle H20 (und dann abwärts bis zum Schluss) eine 1 oder eine 0 steht.
Für eine 1, sollen die danebenliegenden Zellen B20,...,F20 in Tabelle3 kopiert werden und zwar in die ersten freien Zellen ab B9,...F9 abwärts. (also immer an schon vorhandene unten anfügen).
Für den Fall einer 0, sollen die Zellen B20,...,E20,G20, kopiert werden und in Tabelle3 in die Zellen I9,..., M9 ebenfalls unten an bereits vorhandene angefügt werden.
Derselbe Vorgang dann für Tabelle2 allerdings beginnt es hier schon ab H3.
Vielen lieben Dank schon einmal im voraus!!!
Beste Grüße,
John

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA bestimmte Zellen aus 2Tabellen vereinen
08.03.2016 19:49:35
Piet
Hallo john, doe
Ich gehe davon aus das die Spalten B-E nach Spalte I kommen und G nach M
probier bitte mal den nachfolgenden Code aus.
Ich hoffe er funktioniert wie gewünscht.
mfg Piet
Option Explicit
Const LastAdrH = "H1000"
Const LastAdrI = "I1000"
Dim Tb1 As Object, Tb2 As Object, Tb3 As Object
Dim HW1 As Object, Edr1 As String
Dim HW2 As Object, Edr2 As String
Dim lz3 As Integer  'LastZell Tab3
Sub Spalten_kopieren()
Set Tb1 = Worksheets("Tabelle1")
Set Tb2 = Worksheets("Tabelle2")
Set Tb3 = Worksheets("Tabelle3")
'Anf Zeile in Tabelle3 ermitteln
lz3 = Tb3.Range(LastAdrI).End(xlUp).Row
If lz3 

Anzeige
AW: VBA bestimmte Zellen aus 2Tabellen vereinen
08.03.2016 19:49:35
Piet
Hallo john, doe
Ich gehe davon aus das die Spalten B-E nach Spalte I kommen und G nach M
probier bitte mal den nachfolgenden Code aus.
Ich hoffe er funktioniert wie gewünscht.
mfg Piet
Option Explicit
Const LastAdrH = "H1000"
Const LastAdrI = "I1000"
Dim Tb1 As Object, Tb2 As Object, Tb3 As Object
Dim HW1 As Object, Edr1 As String
Dim HW2 As Object, Edr2 As String
Dim lz3 As Integer  'LastZell Tab3
Sub Spalten_kopieren()
Set Tb1 = Worksheets("Tabelle1")
Set Tb2 = Worksheets("Tabelle2")
Set Tb3 = Worksheets("Tabelle3")
'Anf Zeile in Tabelle3 ermitteln
lz3 = Tb3.Range(LastAdrI).End(xlUp).Row
If lz3 

Anzeige
AW: offen gesetzt
08.03.2016 19:54:05
Piet
,,,

AW: geschlossen (oW)
11.03.2016 21:14:32
Piet

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige