Hallo,
kann mir bitte jemand bei folgendem Problem helfen.
Und zwar soll ich z<strong>wei Tabellen</strong> aus je einer Arbeitsmappe getrennt in eine dritte und vierte Arbeitsmappe <strong>einlesen</strong>.
Die erste Spalte hat schon mal hingehauen aber wie bekomme ich auch die restlichen Spalten hinzu ?
Kann mir wer helfen
den Code fertigzustellen ? (Siehe Aufgabenstellung und Code unten)
Vielen Dank vorab.
Viele Grüße
Option Explicit
Sub Stellen()
Dim TGes As Integer
Dim SGes As Integer
Dim n As Integer
Dim k As Integer
Dim m As Integer
Dim h As Integer
SGes = Worksheets("Hauptseite").Cells(5, 1)
TGes = Worksheets("Hauptseite").Cells(8, 1)
For n = 1 To SGes
k = 1 + n
Worksheets("Matrix-ST").Cells(n + 1, 1) = "s" & n
Worksheets("Matrix-TS").Cells(n + 1, 1) = "s" & n
Next n
For m = 1 To TGes
h = 1 + m
Worksheets("Matrix-TS").Cells(h, 1) = "t" & m
Next m
End Sub
Die Aufgabenstellung lautet folgendermaßen: