|
Guten Morgen liebe Leute,
Ich habe eine Excel Datei und 2 Tabellenblätter darin.
Im Tabellenblatt 1 habe ich z.B. bei Spalte 2 und Zeile 2 ein x.
Nun möchte ich dieses x in mein 2. Tabellenblatt kopieren, wenn die Bezeichnung von Spalte und Zeile die selbe ist, wie die aus dem 1. Tabellenblatt.
Leider hab ich keine Ahnung wie man diese Überprüfung tätigt ?
Für euere Hilfe wäre ich sehr dankbar. Mein Code sieht bisher noch sehr mager aus:
Sub Werte()
'Quelltabelle und Zieltabelle werden definiert'
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
'Variable Zelle und Zähler definieren'
Dim Zelle As Range
Dim Zaehler As Long
Dim i As Integer
Dim rngZ As Range
'Bereich und Zähler um Werte in Tabelle einzufügen'
Zaehler = 2
Bereich = "B2:D4"
i = 0
Set Quelltab = ActiveWorkbook.Worksheets("Tabelle2")
Set Zieltab = ActiveWorkbook.Worksheets("Tabelle1")
For Each Zelle In Quelltab.Range("B2:D4")
'Zieltab.Cells(Zaehler, 2 + i) = Zelle
'On Error Resume Next
'Set rngZ = Quelltab.Columns("Zaehler").SpecialCells(xlCellTypeConstants)
'If Not rngZ Is Nothing Then rngZ.EntireRow.Copy Zieltab.Range("Zelle")
'Zaehler = Zaehler + 1
'i = i + 1
Next Zelle
End Sub
|